diff options
| author | John Paul Wallington | 2008-06-08 21:46:14 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2008-06-08 21:46:14 +0000 |
| commit | 524fec4d83c8a166b77ab213e7e04105d36fc781 (patch) | |
| tree | 0c8dcd9e928edb85ad003308d036c9d8ce7b46f8 | |
| parent | 8871e7f50365c00552fbb80184744baf55d18fc2 (diff) | |
| download | emacs-524fec4d83c8a166b77ab213e7e04105d36fc781.tar.gz emacs-524fec4d83c8a166b77ab213e7e04105d36fc781.zip | |
(toplevel): Put `doc-string-elt' properties on `defun-mh'
and `defmacro-mh'.
| -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." | |||
| 91 | `(defalias ',name ',function) | 91 | `(defalias ',name ',function) |
| 92 | `(defun ,name ,arg-list ,@body)))) | 92 | `(defun ,name ,arg-list ,@body)))) |
| 93 | (put 'defun-mh 'lisp-indent-function 'defun) | 93 | (put 'defun-mh 'lisp-indent-function 'defun) |
| 94 | (put 'defun-mh 'doc-string-elt 4) | ||
| 94 | 95 | ||
| 95 | ;;;###mh-autoload | 96 | ;;;###mh-autoload |
| 96 | (defmacro defmacro-mh (name macro arg-list &rest body) | 97 | (defmacro defmacro-mh (name macro arg-list &rest body) |
| @@ -102,6 +103,7 @@ Otherwise, create macro NAME with ARG-LIST and BODY." | |||
| 102 | `(defalias ',name ',macro) | 103 | `(defalias ',name ',macro) |
| 103 | `(defmacro ,name ,arg-list ,@body)))) | 104 | `(defmacro ,name ,arg-list ,@body)))) |
| 104 | (put 'defmacro-mh 'lisp-indent-function 'defun) | 105 | (put 'defmacro-mh 'lisp-indent-function 'defun) |
| 106 | (put 'defmacro-mh 'doc-string-elt 4) | ||
| 105 | 107 | ||
| 106 | 108 | ||
| 107 | 109 | ||