/[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.43 by monnier, Fri Dec 14 21:53:29 2001 UTC revision 1.44 by pj, Sun Jan 13 09:59:39 2002 UTC
# Line 677  comment markers." Line 677  comment markers."
677                           (forward-line 1)                           (forward-line 1)
678                           (re-search-forward sre (line-end-position) t))                           (re-search-forward sre (line-end-position) t))
679                    (replace-match "" t t nil (if (match-end 2) 2 1)))))                    (replace-match "" t t nil (if (match-end 2) 2 1)))))
680              ;; Go the the end for the next comment.              ;; Go to the end for the next comment.
681              (goto-char (point-max)))))              (goto-char (point-max)))))
682        (set-marker end nil))))        (set-marker end nil))))
683    

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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