mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(toplevel): Put doc-string-elt' properties on defun-mh'

Browse source 
and `defmacro-mh'.
This commit is contained in:
John Paul Wallington 2008-06-08 21:46:14 +00:00
parent 8871e7f503
commit 524fec4d83
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mh-e/mh-acros.el
View file

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