From 590bc48b85b79f29dde2d9e0a0881e2fd8e77529 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 7 Jun 2005 10:52:08 +0000 Subject: [PATCH] (defstruct): Set 'doc-string-elt property. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/lisp-mode.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d3f7c9e175c..120457322ef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-06-07 David McCabe (tiny change) + + * emacs-lisp/lisp-mode.el (defstruct): Set 'doc-string-elt property. + 2005-06-06 Stefan Monnier * international/iso-cvt.el (iso-sgml2iso-trans-tab): Add NBSP. diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index bb815481bf0..72924417109 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -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) -- 2.39.5