/[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.61 by rms, Tue May 6 10:40:06 2003 UTC revision 1.62 by monnier, Tue May 6 14:06:34 2003 UTC
# Line 517  With any other arg, set comment column t Line 517  With any other arg, set comment column t
517    (cond    (cond
518     ((eq arg '-) (comment-kill nil))     ((eq arg '-) (comment-kill nil))
519     (arg     (arg
520        (comment-normalize-vars)
521      (save-excursion      (save-excursion
522        (beginning-of-line)        (beginning-of-line)
523        (comment-search-backward)        (comment-search-backward)
# Line 533  With any other arg, set comment column t Line 534  With any other arg, set comment column t
534    "Kill the comment on this line, if any.    "Kill the comment on this line, if any.
535  With prefix ARG, kill comments on that many lines starting with this one."  With prefix ARG, kill comments on that many lines starting with this one."
536    (interactive "P")    (interactive "P")
537      (comment-normalize-vars)
538    (dotimes (_ (prefix-numeric-value arg))    (dotimes (_ (prefix-numeric-value arg))
539      (save-excursion      (save-excursion
540        (beginning-of-line)        (beginning-of-line)
# Line 941  end- comment markers additionally to wha Line 943  end- comment markers additionally to wha
943  in which case call `uncomment-region'.  If a prefix arg is given, it  in which case call `uncomment-region'.  If a prefix arg is given, it
944  is passed on to the respective function."  is passed on to the respective function."
945    (interactive "*r\nP")    (interactive "*r\nP")
946      (comment-normalize-vars)
947    (funcall (if (save-excursion ;; check for already commented region    (funcall (if (save-excursion ;; check for already commented region
948                   (goto-char beg)                   (goto-char beg)
949                   (comment-forward (point-max))                   (comment-forward (point-max))

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

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