(define-derived-mode): Add `doc-string' declaration.

This commit is contained in:
John Paul Wallington 2008-06-21 20:00:04 +00:00
parent 536db356f9
commit a86a16098e
2 changed files with 8 additions and 1 deletions

View file

@ -162,7 +162,8 @@ The new mode runs the hook constructed by the function
See Info node `(elisp)Derived Modes' for more details."
(declare (debug (&define name symbolp sexp [&optional stringp]
[&rest keywordp sexp] def-body)))
[&rest keywordp sexp] def-body))
(doc-string 4))
(when (and docstring (not (stringp docstring)))
;; Some trickiness, since what appears to be the docstring may really be