[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-acros.el
From: |
John Paul Wallington |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-acros.el |
Date: |
Sun, 08 Jun 2008 21:46:15 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-acros.el,
John Paul Wallington <=