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) |
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) |
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)) |