Mercurial > emacs
comparison lisp/newcomment.el @ 80271:f74b83c18a6a
(comment-kill): Docstring improvement.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 03 Mar 2008 21:20:21 +0000 |
| parents | 73661ddc7ac7 |
| children | 8faef799d3b8 d999f30304bc |
comparison
equal
deleted
inserted
replaced
| 80270:e36e32d01703 | 80271:f74b83c18a6a |
|---|---|
| 661 (t (setq comment-column (current-column)) | 661 (t (setq comment-column (current-column)) |
| 662 (message "Comment column set to %d" comment-column)))) | 662 (message "Comment column set to %d" comment-column)))) |
| 663 | 663 |
| 664 ;;;###autoload | 664 ;;;###autoload |
| 665 (defun comment-kill (arg) | 665 (defun comment-kill (arg) |
| 666 "Kill the comment on this line, if any. | 666 "Kill the first comment on this line, if any. |
| 667 With prefix ARG, kill comments on that many lines starting with this one." | 667 With prefix ARG, kill comments on that many lines starting with this one." |
| 668 (interactive "P") | 668 (interactive "P") |
| 669 (comment-normalize-vars) | 669 (comment-normalize-vars) |
| 670 (dotimes (_ (prefix-numeric-value arg)) | 670 (dotimes (_ (prefix-numeric-value arg)) |
| 671 (save-excursion | 671 (save-excursion |