[Emacs-commit] emacs/lisp/mh-e mh-acros.el

[John Paul Wallington]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     John Paul Wallington <jpw>      08/06/08 21:46:15

Modified files:
        lisp/mh-e      : mh-acros.el 

Log message:
        (toplevel): Put `doc-string-elt' properties on `defun-mh'
        and `defmacro-mh'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-acros.el?cvsroot=emacs&r1=1.25&r2=1.26

Patches:
Index: mh-acros.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-acros.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- mh-acros.el 6 May 2008 03:56:45 -0000       1.25
+++ mh-acros.el 8 Jun 2008 21:46:14 -0000       1.26
@@ -91,6 +91,7 @@
         `(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 @@
         `(defalias ',name ',macro)
       `(defmacro ,name ,arg-list ,@body))))
 (put 'defmacro-mh 'lisp-indent-function 'defun)
+(put 'defmacro-mh 'doc-string-elt 4)