Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 90192:173dee4e2611

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-61 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 353-357) - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Jun 2005 07:13:03 +0000
parents f042e7c0fe20 a19780959d63
children b7da78284d4c
comparison
equal deleted inserted replaced
90191:c766b49f5bbd 90192:173dee4e2611
127 (put 'deftheme 'doc-string-elt 2) 127 (put 'deftheme 'doc-string-elt 2)
128 (put 'defconst 'doc-string-elt 3) 128 (put 'defconst 'doc-string-elt 3)
129 (put 'defmacro 'doc-string-elt 3) 129 (put 'defmacro 'doc-string-elt 3)
130 (put 'defmacro* 'doc-string-elt 3) 130 (put 'defmacro* 'doc-string-elt 3)
131 (put 'defsubst 'doc-string-elt 3) 131 (put 'defsubst 'doc-string-elt 3)
132 (put 'defstruct 'doc-string-elt 2)
132 (put 'define-skeleton 'doc-string-elt 2) 133 (put 'define-skeleton 'doc-string-elt 2)
133 (put 'define-derived-mode 'doc-string-elt 4) 134 (put 'define-derived-mode 'doc-string-elt 4)
134 (put 'define-compilation-mode 'doc-string-elt 3) 135 (put 'define-compilation-mode 'doc-string-elt 3)
135 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) 136 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2)
136 (put 'define-minor-mode 'doc-string-elt 2) 137 (put 'define-minor-mode 'doc-string-elt 2)
192 ;; Look within the line for a ; following an even number of backslashes 193 ;; Look within the line for a ; following an even number of backslashes
193 ;; after either a non-backslash or the line beginning. 194 ;; after either a non-backslash or the line beginning.
194 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") 195 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *")
195 (make-local-variable 'font-lock-comment-start-skip) 196 (make-local-variable 'font-lock-comment-start-skip)
196 ;; Font lock mode uses this only when it KNOWS a comment is starting. 197 ;; Font lock mode uses this only when it KNOWS a comment is starting.
197 (setq font-lock-comment-start-skip ";+ *") 198 (setq font-lock-comment-start-skip ";+ *")
198 (make-local-variable 'comment-add) 199 (make-local-variable 'comment-add)
199 (setq comment-add 1) ;default to `;;' in comment-region 200 (setq comment-add 1) ;default to `;;' in comment-region
200 (make-local-variable 'comment-column) 201 (make-local-variable 'comment-column)
201 (setq comment-column 40) 202 (setq comment-column 40)
202 ;; Don't get confused by `;' in doc strings when paragraph-filling. 203 ;; Don't get confused by `;' in doc strings when paragraph-filling.