From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 8 Jun 2008 21:46:14 +0000 (+0000)
Subject: (toplevel): Put `doc-string-elt' properties on `defun-mh'
X-Git-Tag: emacs-pretest-23.0.90~4992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=524fec4d83c8a166b77ab213e7e04105d36fc781;p=emacs.git

(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 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)