Commit e3034a95 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(lisp-mode-variables): Bind comment-indent-function locally.

parent a044cd1f
...@@ -202,6 +202,8 @@ ...@@ -202,6 +202,8 @@
(setq comment-column 40) (setq comment-column 40)
;; Don't get confused by `;' in doc strings when paragraph-filling. ;; Don't get confused by `;' in doc strings when paragraph-filling.
(set (make-local-variable 'comment-use-global-state) t) (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) (make-local-variable 'imenu-generic-expression)
(setq imenu-generic-expression lisp-imenu-generic-expression) (setq imenu-generic-expression lisp-imenu-generic-expression)
(make-local-variable 'multibyte-syntax-as-symbol) (make-local-variable 'multibyte-syntax-as-symbol)
...@@ -714,7 +716,7 @@ which see." ...@@ -714,7 +716,7 @@ which see."
(setq debug-on-error new-value)) (setq debug-on-error new-value))
value))))) value)))))
;; Used for comment-indent-function in Lisp modes.
(defun lisp-comment-indent () (defun lisp-comment-indent ()
(if (looking-at "\\s<\\s<\\s<") (if (looking-at "\\s<\\s<\\s<")
(current-column) (current-column)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment