Mercurial > emacs
changeset 95688:33aa6dc538c6
(toplevel): Put `doc-string-elt' properties on `defun-mh'
and `defmacro-mh'.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Sun, 08 Jun 2008 21:46:14 +0000 |
| parents | 18c9a69d751f |
| children | 5f60e74ca391 |
| files | lisp/mh-e/mh-acros.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/mh-acros.el Sun Jun 08 19:11:43 2008 +0000 +++ b/lisp/mh-e/mh-acros.el Sun Jun 08 21:46:14 2008 +0000 @@ -91,6 +91,7 @@ `(defalias ',name ',function) `(defun ,name ,arg-list ,@body)))) (put 'defun-mh 'lisp-indent-function 'defun) +(put 'defun-mh 'doc-string-elt 4) ;;;###mh-autoload (defmacro defmacro-mh (name macro arg-list &rest body) @@ -102,6 +103,7 @@ `(defalias ',name ',macro) `(defmacro ,name ,arg-list ,@body)))) (put 'defmacro-mh 'lisp-indent-function 'defun) +(put 'defmacro-mh 'doc-string-elt 4)