Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 90199:bb71c6cf2009

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-67 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 447-458) - Update from CVS - Update from CVS: lisp/subr.el (add-to-ordered-list): Doc fix. - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 83-85) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 30 Jun 2005 00:31:46 +0000
parents b7da78284d4c 9c5c3700b037
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90198:97f6c3a96df1 90199:bb71c6cf2009
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))))