mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/autoload.el (make-autoload): Accept nil doc-string-elt.

Browse source 
Add cl-defun and cl-defmacro.

Fixes: debbugs:11649
This commit is contained in:
Stefan Monnier 2012-06-13 08:46:33 -04:00
parent 87e6e64f99
commit a12ac9d795
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2012-06-13 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/autoload.el (make-autoload): Accept nil doc-string-elt
(bug#11649). Add cl-defun and cl-defmacro.
2012-06-13 Drew Adams <drew.adams@oracle.com>
* help-mode.el (help-bookmark-make-record, help-bookmark-jump):

5
lisp/emacs-lisp/autoload.el
View file

@ -151,7 +151,8 @@ expression, in which case we want to handle forms differently."
easy-mmode-define-global-mode define-global-minor-mode
define-globalized-minor-mode
easy-mmode-define-minor-mode define-minor-mode
defun* defmacro* define-overloadable-function))
cl-defun defun* cl-defmacro defmacro*
define-overloadable-function))
(let* ((macrop (memq car '(defmacro defmacro*)))
(name (nth 1 form))
(args (cl-case car
@ -161,7 +162,7 @@ expression, in which case we want to handle forms differently."
((define-generic-mode define-derived-mode
define-compilation-mode) nil)
(t)))
(body (nthcdr (get car 'doc-string-elt) form))
(body (nthcdr (or (get car 'doc-string-elt) 3) form))
(doc (if (stringp (car body)) (pop body))))
;; Add the usage form at the end where describe-function-1
;; can recover it.