aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2003-05-06 14:06:34 +0000
committerStefan Monnier2003-05-06 14:06:34 +0000
commit2abd03067395fc6360e70cbd8e60c7b165b6a199 (patch)
treec9a8afb87ce8adeffbf3209d119b70a8134f1136
parent824c61ddc607ae740b244d8cee999defc3eae7a0 (diff)
downloademacs-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.el3
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.
534With prefix ARG, kill comments on that many lines starting with this one." 535With 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."
941in which case call `uncomment-region'. If a prefix arg is given, it 943in which case call `uncomment-region'. If a prefix arg is given, it
942is passed on to the respective function." 944is 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))