diff options
| author | Stefan Monnier | 2003-05-06 14:06:34 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-05-06 14:06:34 +0000 |
| commit | 2abd03067395fc6360e70cbd8e60c7b165b6a199 (patch) | |
| tree | c9a8afb87ce8adeffbf3209d119b70a8134f1136 | |
| parent | 824c61ddc607ae740b244d8cee999defc3eae7a0 (diff) | |
| download | emacs-2abd03067395fc6360e70cbd8e60c7b165b6a199.tar.gz emacs-2abd03067395fc6360e70cbd8e60c7b165b6a199.zip | |
(comment-set-column, comment-kill, comment-or-uncomment-region):
Call comment-normalize-vars since these functions are autoloaded.
| -rw-r--r-- | lisp/newcomment.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index aa53f50606a..6874da7b4e5 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el | |||
| @@ -517,6 +517,7 @@ With any other arg, set comment column to indentation of the previous comment | |||
| 517 | (cond | 517 | (cond |
| 518 | ((eq arg '-) (comment-kill nil)) | 518 | ((eq arg '-) (comment-kill nil)) |
| 519 | (arg | 519 | (arg |
| 520 | (comment-normalize-vars) | ||
| 520 | (save-excursion | 521 | (save-excursion |
| 521 | (beginning-of-line) | 522 | (beginning-of-line) |
| 522 | (comment-search-backward) | 523 | (comment-search-backward) |
| @@ -533,6 +534,7 @@ With any other arg, set comment column to indentation of the previous comment | |||
| 533 | "Kill the comment on this line, if any. | 534 | "Kill the comment on this line, if any. |
| 534 | With prefix ARG, kill comments on that many lines starting with this one." | 535 | With prefix ARG, kill comments on that many lines starting with this one." |
| 535 | (interactive "P") | 536 | (interactive "P") |
| 537 | (comment-normalize-vars) | ||
| 536 | (dotimes (_ (prefix-numeric-value arg)) | 538 | (dotimes (_ (prefix-numeric-value arg)) |
| 537 | (save-excursion | 539 | (save-excursion |
| 538 | (beginning-of-line) | 540 | (beginning-of-line) |
| @@ -941,6 +943,7 @@ end- comment markers additionally to what `comment-add' already specifies." | |||
| 941 | in which case call `uncomment-region'. If a prefix arg is given, it | 943 | in which case call `uncomment-region'. If a prefix arg is given, it |
| 942 | is passed on to the respective function." | 944 | is passed on to the respective function." |
| 943 | (interactive "*r\nP") | 945 | (interactive "*r\nP") |
| 946 | (comment-normalize-vars) | ||
| 944 | (funcall (if (save-excursion ;; check for already commented region | 947 | (funcall (if (save-excursion ;; check for already commented region |
| 945 | (goto-char beg) | 948 | (goto-char beg) |
| 946 | (comment-forward (point-max)) | 949 | (comment-forward (point-max)) |