diff options
| -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 | ||