622 |
(save-excursion |
(save-excursion |
623 |
(goto-char beg) |
(goto-char beg) |
624 |
(setq end (copy-marker end)) |
(setq end (copy-marker end)) |
625 |
(let ((numarg (prefix-numeric-value arg)) |
(let* ((numarg (prefix-numeric-value arg)) |
626 |
(ccs comment-continue) |
(ccs comment-continue) |
627 |
(srei (comment-padright ccs 're)) |
(srei (comment-padright ccs 're)) |
628 |
(sre (and srei (concat "^\\s-*?\\(" srei "\\)"))) |
(sre (and srei (concat "^\\s-*?\\(" srei "\\)"))) |
629 |
spt) |
spt) |
630 |
(while (and (< (point) end) |
(while (and (< (point) end) |
631 |
(setq spt (comment-search-forward end t))) |
(setq spt (comment-search-forward end t))) |
632 |
(let* ((ipt (point)) |
(let ((ipt (point)) |
633 |
;; Find the end of the comment. |
;; Find the end of the comment. |
634 |
(ept (progn |
(ept (progn |
635 |
(goto-char spt) |
(goto-char spt) |
636 |
(unless (comment-forward) |
(unless (comment-forward) |
637 |
(error "Can't find the comment end")) |
(error "Can't find the comment end")) |
638 |
(point))) |
(point))) |
639 |
(box nil) |
(box nil) |
640 |
(box-equal nil)) ;Whether we might be using `=' for boxes. |
(box-equal nil)) ;Whether we might be using `=' for boxes. |
641 |
(save-restriction |
(save-restriction |
642 |
(narrow-to-region spt ept) |
(narrow-to-region spt ept) |
643 |
|
|