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): Generate `(autoload ...)' form for

Browse Source 
`(define-skeleton ...)'
This commit is contained in:
Karl Heuer 1995-07-07 19:20:09 +00:00
parent 95b7ed4801
commit 5950a4fce1
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,24 +32,29 @@
(defun make-autoload (form file)
"Turn FORM, a defun or defmacro, into an autoload for source file FILE.
Returns nil if FORM is not a defun or defmacro."
Returns nil if FORM is not a defun, define-skeleton or defmacro."
(let ((car (car-safe form)))
(if (memq car '(defun defmacro))
(if (memq car '(defun define-skeleton defmacro))
(let ((macrop (eq car 'defmacro))
name doc)
(setq form (cdr form))
(setq name (car form))
;; Ignore the arguments.
(setq form (cdr (cdr form)))
(setq doc (car form))
(setq form (cdr form)
name (car form)
;; Ignore the arguments.
form (cdr (if (eq car 'define-skeleton)
form
(cdr form)))
doc (car form))
(if (stringp doc)
(setq form (cdr form))
(setq doc nil))
(list 'autoload (list 'quote name) file doc
(eq (car-safe (car form)) 'interactive)
(or (eq car 'define-skeleton)
(eq (car-safe (car form)) 'interactive))
(if macrop (list 'quote 'macro) nil)))
nil)))
(put 'define-skeleton 'doc-string-elt 3)
(defconst generate-autoload-cookie ";;;###autoload"
"Magic comment indicating the following form should be autoloaded.
Used by \\[update-file-autoloads]. This string should be