From e3034a95bce31f347a8738452cb9fb7ae8aa4e33 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jun 2005 14:10:23 +0000 Subject: [PATCH] (lisp-mode-variables): Bind comment-indent-function locally. --- lisp/emacs-lisp/lisp-mode.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2