mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(make-autoload): Handle `define-compilation-mode'.

Browse Source
This commit is contained in:
Thien-Thi Nguyen 2004-09-08 11:06:23 +00:00
parent d430d2e899
commit bec34fb05f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/autoload.el
View File

@ -86,6 +86,7 @@ or macro definition or a defcustom)."
;; For special function-like operators, use the `autoload' function.
((memq car '(defun define-skeleton defmacro define-derived-mode
define-compilation-mode
define-generic-mode easy-mmode-define-minor-mode
easy-mmode-define-global-mode
define-minor-mode defun* defmacro*))
@ -94,7 +95,8 @@ or macro definition or a defcustom)."
(args (case car
((defun defmacro defun* defmacro*) (nth 2 form))
((define-skeleton) '(&optional str arg))
((define-generic-mode define-derived-mode) nil)
((define-generic-mode define-derived-mode
define-compilation-mode) nil)
(t)))
(body (nthcdr (get car 'doc-string-elt) form))
(doc (if (stringp (car body)) (pop body))))