diff options
author | John Paul Wallington <jpw@pobox.com> | 2008-06-08 21:46:14 +0000 |
---|---|---|
committer | John Paul Wallington <jpw@pobox.com> | 2008-06-08 21:46:14 +0000 |
commit | 524fec4d83c8a166b77ab213e7e04105d36fc781 (patch) | |
tree | 0c8dcd9e928edb85ad003308d036c9d8ce7b46f8 /lisp/mh-e/mh-acros.el | |
parent | 8871e7f50365c00552fbb80184744baf55d18fc2 (diff) | |
download | emacs-524fec4d83c8a166b77ab213e7e04105d36fc781.tar.gz |
(toplevel): Put `doc-string-elt' properties on `defun-mh'
and `defmacro-mh'.
Diffstat (limited to 'lisp/mh-e/mh-acros.el')
-rw-r--r-- | lisp/mh-e/mh-acros.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el index 2ab1d9e3f0b..d4fd2cccb3b 100644 --- a/lisp/mh-e/mh-acros.el +++ b/lisp/mh-e/mh-acros.el @@ -91,6 +91,7 @@ Otherwise, create function NAME with ARG-LIST and BODY." `(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 @@ Otherwise, create macro NAME with ARG-LIST and BODY." `(defalias ',name ',macro) `(defmacro ,name ,arg-list ,@body)))) (put 'defmacro-mh 'lisp-indent-function 'defun) +(put 'defmacro-mh 'doc-string-elt 4) |