From 524fec4d83c8a166b77ab213e7e04105d36fc781 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sun, 8 Jun 2008 21:46:14 +0000 Subject: [PATCH] (toplevel): Put `doc-string-elt' properties on `defun-mh' and `defmacro-mh'. --- lisp/mh-e/mh-acros.el | 2 ++ 1 file changed, 2 insertions(+) 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) -- 2.39.2