Mercurial > emacs
changeset 71955:e768c05d6e71
(make-autoload): Use new arg.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 17 Jul 2006 21:27:17 +0000 |
| parents | 628aeba24139 |
| children | 1caee6e0cbe1 |
| files | lisp/ChangeLog lisp/emacs-lisp/autoload.el |
| diffstat | 2 files changed, 17 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 17 21:26:32 2006 +0000 +++ b/lisp/ChangeLog Mon Jul 17 21:27:17 2006 +0000 @@ -1,5 +1,18 @@ 2006-07-17 Stefan Monnier <monnier@iro.umontreal.ca> + * emacs-lisp/autoload.el (make-autoload): Use new arg. + + * custom.el (custom-autoload): Add `noset' argument. + (custom-push-theme): Don't autoload the variable, let callers do it. + (custom-theme-set-variables): Autoload the variable if necessary. + + * cus-edit.el (custom-variable-state-set): If the variable was + originally set outside custom, but to the same value as the default, + consider it to be standard. + + * Makefile.in (mh-loaddefs.el): Finish setting up the default empty + file *before* telling Emacs to add the autoloads, in case it fails. + * progmodes/sh-script.el (sh-quoted-subshell): Don't match escaped `. Use `cond', push', and `dolist'.
--- a/lisp/emacs-lisp/autoload.el Mon Jul 17 21:26:32 2006 +0000 +++ b/lisp/emacs-lisp/autoload.el Mon Jul 17 21:27:17 2006 +0000 @@ -124,7 +124,10 @@ ) `(progn (defvar ,varname ,init ,doc) - (custom-autoload ',varname ,file)))) + (custom-autoload ',varname ,file + ,(condition-case nil + (null (cadr (memq :set form))) + (error nil)))))) ((eq car 'defgroup) ;; In Emacs this is normally handled separately by cus-dep.el, but for