comparison lisp/emacs-lisp/autoload.el @ 22249:9a8adf8f1efa

(make-autoload): Doc fix.

22248:70d9ba94ce39

(defconst generate-autoload-section-continuation ";;;;;; "
  "String to add on each continuation of the section header form.")

(defun make-autoload (form file)
  "Turn FORM into an autoload or defvar for source file FILE.
Returns nil if FORM is not a defun, define-skeleton, define-derived-mode, 
defmacro or defcustom."
  (let ((car (car-safe form)))
    (if (memq car '(defun define-skeleton defmacro define-derived-mode))
	(let ((macrop (eq car 'defmacro))
	      name doc)
	  (setq form (cdr form)

22249:9a8adf8f1efa

(defconst generate-autoload-section-continuation ";;;;;; "
  "String to add on each continuation of the section header form.")

(defun make-autoload (form file)
  "Turn FORM into an autoload or defvar for source file FILE.
Returns nil if FORM is not a `defun', `define-skeleton', `define-derived-mode',
`defmacro' or `defcustom'."
  (let ((car (car-safe form)))
    (if (memq car '(defun define-skeleton defmacro define-derived-mode))
	(let ((macrop (eq car 'defmacro))
	      name doc)
	  (setq form (cdr form)