martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)