X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/ecae6af979abcbb5b45c33ee05ceb297678ec9a0..10d1d0af5f6421603cd841e0c1c5805e2b2fb67d:/lisp/mh-e/mh-acros.el

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index 2ab1d9e3f0..d4fd2cccb3 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)