summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>2005-06-25 14:10:23 +0000
committerRichard M. Stallman <rms@gnu.org>2005-06-25 14:10:23 +0000
commite3034a95bce31f347a8738452cb9fb7ae8aa4e33 (patch)
tree0d35e7d29c1d7b4fb0e7b9c362acd7e8cea3bade /lisp/emacs-lisp
parenta044cd1f02585027c9028341553d207588bc87e4 (diff)
downloademacs-e3034a95bce31f347a8738452cb9fb7ae8aa4e33.tar.gz
emacs-e3034a95bce31f347a8738452cb9fb7ae8aa4e33.tar.bz2
emacs-e3034a95bce31f347a8738452cb9fb7ae8aa4e33.zip
(lisp-mode-variables): Bind comment-indent-function locally.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/lisp-mode.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 1ffc33835e9..972fe6bafc8 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -202,6 +202,8 @@
(setq comment-column 40)
;; Don't get confused by `;' in doc strings when paragraph-filling.
(set (make-local-variable 'comment-use-global-state) t)
+ (make-local-variable 'comment-indent-function)
+ (setq comment-indent-function 'lisp-comment-indent)
(make-local-variable 'imenu-generic-expression)
(setq imenu-generic-expression lisp-imenu-generic-expression)
(make-local-variable 'multibyte-syntax-as-symbol)
@@ -714,7 +716,7 @@ which see."
(setq debug-on-error new-value))
value)))))
-
+;; Used for comment-indent-function in Lisp modes.
(defun lisp-comment-indent ()
(if (looking-at "\\s<\\s<\\s<")
(current-column)