Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 71955:e768c05d6e71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-autoload): Use new arg.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 17 Jul 2006 21:27:17 +0000
parents e727167b07e4
children 7a3f13e2dd57 8a8e69664178
comparison
equal deleted inserted replaced
71954:628aeba24139 71955:e768c05d6e71
122 (doc (car-safe (cdr-safe (cdr-safe (cdr-safe form))))) 122 (doc (car-safe (cdr-safe (cdr-safe (cdr-safe form)))))
123 ;; (rest (cdr-safe (cdr-safe (cdr-safe (cdr-safe form))))) 123 ;; (rest (cdr-safe (cdr-safe (cdr-safe (cdr-safe form)))))
124 ) 124 )
125 `(progn 125 `(progn
126 (defvar ,varname ,init ,doc) 126 (defvar ,varname ,init ,doc)
127 (custom-autoload ',varname ,file)))) 127 (custom-autoload ',varname ,file
128 ,(condition-case nil
129 (null (cadr (memq :set form)))
130 (error nil))))))
128 131
129 ((eq car 'defgroup) 132 ((eq car 'defgroup)
130 ;; In Emacs this is normally handled separately by cus-dep.el, but for 133 ;; In Emacs this is normally handled separately by cus-dep.el, but for
131 ;; third party packages, it can be convenient to explicitly autoload 134 ;; third party packages, it can be convenient to explicitly autoload
132 ;; a group. 135 ;; a group.