# HG changeset patch # User Juanma Barranquero # Date 1118141496 0 # Node ID a19780959d6303cc1379d3ed5b89b65d56e55c43 # Parent f3551fda8850ab482465c0fb17b03209f1ff05e1 (defstruct): Set 'doc-string-elt property. diff -r f3551fda8850 -r a19780959d63 lisp/emacs-lisp/lisp-mode.el --- a/lisp/emacs-lisp/lisp-mode.el Tue Jun 07 03:30:21 2005 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Tue Jun 07 10:51:36 2005 +0000 @@ -129,6 +129,7 @@ (put 'defmacro 'doc-string-elt 3) (put 'defmacro* 'doc-string-elt 3) (put 'defsubst 'doc-string-elt 3) +(put 'defstruct 'doc-string-elt 2) (put 'define-skeleton 'doc-string-elt 2) (put 'define-derived-mode 'doc-string-elt 4) (put 'define-compilation-mode 'doc-string-elt 3) @@ -194,7 +195,7 @@ (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") (make-local-variable 'font-lock-comment-start-skip) ;; Font lock mode uses this only when it KNOWS a comment is starting. - (setq font-lock-comment-start-skip ";+ *") + (setq font-lock-comment-start-skip ";+ *") (make-local-variable 'comment-add) (setq comment-add 1) ;default to `;;' in comment-region (make-local-variable 'comment-column)