(toplevel): Put `doc-string-elt' properties on `defun-mh'

and `defmacro-mh'.

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index 2ab1d9e3f0b26d0feffaf03124c87a6bb38c55c0..d4fd2cccb3ba71ceb35a903a66d7c84efd63be9c 100644 (file)
--- 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)
 
 \f