/[emacs]/emacs/lisp/newcomment.el
ViewVC logotype

Diff of /emacs/lisp/newcomment.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by monnier, Tue Sep 10 06:20:52 2002 UTC revision 1.53 by lektu, Wed Sep 11 09:31:55 2002 UTC
# Line 622  comment markers." Line 622  comment markers."
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    

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26