comparison lisp/emacs-lisp/autoload.el @ 71874:e727167b07e4

(make-autoload): Remove special handling of minor modes, redundant with the custom-autoload line above.

71873:0048306da39e

	    (doc (car-safe (cdr-safe (cdr-safe (cdr-safe form)))))
	    ;; (rest (cdr-safe (cdr-safe (cdr-safe (cdr-safe form)))))
	    )
	`(progn
	   (defvar ,varname ,init ,doc)
	   (custom-autoload ',varname ,file)
           ;; The use of :require in a defcustom can be annoying, especially
           ;; when defcustoms are moved from one file to another between
           ;; releases because the :require arg gets placed in the user's
           ;; .emacs.  In order for autoloaded minor modes not to need the
           ;; use of :require, we arrange to store their :setter.
           ,(let ((setter (condition-case nil
                              (cadr (memq :set form))
                            (error nil))))
              (if (equal setter ''custom-set-minor-mode)
                  `(put ',varname 'custom-set 'custom-set-minor-mode))))))

     ((eq car 'defgroup)
      ;; In Emacs this is normally handled separately by cus-dep.el, but for
      ;; third party packages, it can be convenient to explicitly autoload
      ;; a group.

71874:e727167b07e4

	    (doc (car-safe (cdr-safe (cdr-safe (cdr-safe form)))))
	    ;; (rest (cdr-safe (cdr-safe (cdr-safe (cdr-safe form)))))
	    )
	`(progn
	   (defvar ,varname ,init ,doc)
	   (custom-autoload ',varname ,file))))

     ((eq car 'defgroup)
      ;; In Emacs this is normally handled separately by cus-dep.el, but for
      ;; third party packages, it can be convenient to explicitly autoload
      ;; a group.