Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 63764:9c5c3700b037

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-mode-variables): Bind comment-indent-function locally.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Jun 2005 14:10:23 +0000
parents 83144542b6da
children 7f1acc9f0399 bb71c6cf2009
comparison
equal deleted inserted replaced
63763:121f7f14ce00 63764:9c5c3700b037
200 (setq comment-add 1) ;default to `;;' in comment-region 200 (setq comment-add 1) ;default to `;;' in comment-region
201 (make-local-variable 'comment-column) 201 (make-local-variable 'comment-column)
202 (setq comment-column 40) 202 (setq comment-column 40)
203 ;; Don't get confused by `;' in doc strings when paragraph-filling. 203 ;; Don't get confused by `;' in doc strings when paragraph-filling.
204 (set (make-local-variable 'comment-use-global-state) t) 204 (set (make-local-variable 'comment-use-global-state) t)
205 (make-local-variable 'comment-indent-function)
206 (setq comment-indent-function 'lisp-comment-indent)
205 (make-local-variable 'imenu-generic-expression) 207 (make-local-variable 'imenu-generic-expression)
206 (setq imenu-generic-expression lisp-imenu-generic-expression) 208 (setq imenu-generic-expression lisp-imenu-generic-expression)
207 (make-local-variable 'multibyte-syntax-as-symbol) 209 (make-local-variable 'multibyte-syntax-as-symbol)
208 (setq multibyte-syntax-as-symbol t) 210 (setq multibyte-syntax-as-symbol t)
209 (set (make-local-variable 'syntax-begin-function) 'beginning-of-defun) 211 (set (make-local-variable 'syntax-begin-function) 'beginning-of-defun)
712 (setq new-value debug-on-error)) 714 (setq new-value debug-on-error))
713 (unless (eq old-value new-value) 715 (unless (eq old-value new-value)
714 (setq debug-on-error new-value)) 716 (setq debug-on-error new-value))
715 value))))) 717 value)))))
716 718
717 719 ;; Used for comment-indent-function in Lisp modes.
718 (defun lisp-comment-indent () 720 (defun lisp-comment-indent ()
719 (if (looking-at "\\s<\\s<\\s<") 721 (if (looking-at "\\s<\\s<\\s<")
720 (current-column) 722 (current-column)
721 (if (looking-at "\\s<\\s<") 723 (if (looking-at "\\s<\\s<")
722 (let ((tem (or (calculate-lisp-indent) (current-column)))) 724 (let ((tem (or (calculate-lisp-indent) (current-column))))