comparison lisp/emacs-lisp/autoload.el @ 26552:88324520c7fc

(make-autoload): Recognize the new `define-minor-mode'. (define-minor-mode): Specify `doc-string-elt'.

26551:271f77895660

  "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', `define-generic-mode', `defmacro', `defcustom'
or `easy-mmode-define-minor-mode'."
  (let ((car (car-safe form)))
    (if (memq car '(defun define-skeleton defmacro define-derived-mode 
		     define-generic-mode easy-mmode-define-minor-mode
		     defun*))
	(let ((macrop (eq car 'defmacro))
	      name doc)
	  (setq form (cdr form)
		name (car form)
		;; Ignore the arguments.
		form (cdr (cond 
			   ((memq car '(define-skeleton 
					 easy-mmode-define-minor-mode)) form)
			   ((eq car 'define-derived-mode) (cdr (cdr form)))
			   ((eq car 'define-generic-mode) 
			    (cdr (cdr (cdr (cdr (cdr form))))))
			   (t (cdr form))))

	  ;; `define-generic-mode' quotes the name, so take care of that
	  (list 'autoload (if (listp name) name (list 'quote name)) file doc
		(or (eq car 'define-skeleton) (eq car 'define-derived-mode)
		    (eq car 'define-generic-mode) 
		    (eq car 'easy-mmode-define-minor-mode)
		    (eq (car-safe (car form)) 'interactive))
		(if macrop (list 'quote 'macro) nil)))
      ;; Convert defcustom to a simpler (and less space-consuming) defvar,
      ;; but add some extra stuff if it uses :require.
      (if (eq car 'defcustom)

(put 'defconst 'doc-string-elt 3)
(put 'defmacro 'doc-string-elt 3)
(put 'define-skeleton 'doc-string-elt 3)
(put 'define-derived-mode 'doc-string-elt 3)
(put 'easy-mmode-define-minor-mode 'doc-string-elt 3)
(put 'define-generic-mode 'doc-string-elt 3)


(defun autoload-trim-file-name (file)
  ;; Returns a relative pathname of FILE

26552:88324520c7fc

  "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', `define-generic-mode', `defmacro', `defcustom',
`define-minor-mode' or `easy-mmode-define-minor-mode'."
  (let ((car (car-safe form)))
    (if (memq car '(defun define-skeleton defmacro define-derived-mode 
		     define-generic-mode easy-mmode-define-minor-mode
		     define-minor-mode defun*))
	(let ((macrop (eq car 'defmacro))
	      name doc)
	  (setq form (cdr form)
		name (car form)
		;; Ignore the arguments.
		form (cdr (cond 
			   ((memq car '(define-skeleton define-minor-mode
					 easy-mmode-define-minor-mode)) form)
			   ((eq car 'define-derived-mode) (cdr (cdr form)))
			   ((eq car 'define-generic-mode) 
			    (cdr (cdr (cdr (cdr (cdr form))))))
			   (t (cdr form))))

	  ;; `define-generic-mode' quotes the name, so take care of that
	  (list 'autoload (if (listp name) name (list 'quote name)) file doc
		(or (eq car 'define-skeleton) (eq car 'define-derived-mode)
		    (eq car 'define-generic-mode) 
		    (eq car 'easy-mmode-define-minor-mode)
		    (eq car 'define-minor-mode)
		    (eq (car-safe (car form)) 'interactive))
		(if macrop (list 'quote 'macro) nil)))
      ;; Convert defcustom to a simpler (and less space-consuming) defvar,
      ;; but add some extra stuff if it uses :require.
      (if (eq car 'defcustom)

(put 'defconst 'doc-string-elt 3)
(put 'defmacro 'doc-string-elt 3)
(put 'define-skeleton 'doc-string-elt 3)
(put 'define-derived-mode 'doc-string-elt 3)
(put 'easy-mmode-define-minor-mode 'doc-string-elt 3)
(put 'define-minor-mode 'doc-string-elt 3)
(put 'define-generic-mode 'doc-string-elt 3)


(defun autoload-trim-file-name (file)
  ;; Returns a relative pathname of FILE