comparison lisp/emacs-lisp/autoload.el @ 63785:1220f6122b90

(make-autoload): Add the :setter for defcustoms corresponding to minor modes.

63784:7f1bb68ec043

;; autoload.el --- maintain autoloads in loaddefs.el

;; Copyright (C) 1991,92,93,94,95,96,97, 2001,02,03,04
;;   Free Software Foundation, Inc.

;; Author: Roland McGrath <[e-mail]>
;; Keywords: maint

;; This file is part of GNU Emacs.

	    (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))))

     ;; nil here indicates that this is not a special autoload form.
     (t nil))))

;; Forms which have doc-strings which should be printed specially.

  (apply 'update-directory-autoloads command-line-args-left)
  (setq command-line-args-left nil))

(provide 'autoload)

;;; arch-tag: 00244766-98f4-4767-bf42-8a22103441c6
;;; autoload.el ends here

63785:1220f6122b90

;; autoload.el --- maintain autoloads in loaddefs.el

;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2002, 2003,
;;   2004, 2005  Free Software Foundation, Inc.

;; Author: Roland McGrath <[e-mail]>
;; Keywords: maint

;; This file is part of GNU Emacs.

	    (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))))))

     ;; nil here indicates that this is not a special autoload form.
     (t nil))))

;; Forms which have doc-strings which should be printed specially.

  (apply 'update-directory-autoloads command-line-args-left)
  (setq command-line-args-left nil))

(provide 'autoload)

;; arch-tag: 00244766-98f4-4767-bf42-8a22103441c6
;;; autoload.el ends here