1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00

(make-autoload): Remove special handling of

minor modes, redundant with the custom-autoload line above.
This commit is contained in:
Stefan Monnier 2006-07-13 18:13:06 +00:00
parent e17833bc7d
commit 02dcdad34e
2 changed files with 9 additions and 15 deletions

View file

@ -1,7 +1,11 @@
2006-07-13 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/autoload.el (make-autoload): Remove special handling of
minor modes, redundant with the custom-autoload line above.
2006-07-12 Chong Yidong <cyd@stupidchicken.com> 2006-07-12 Chong Yidong <cyd@stupidchicken.com>
* longlines.el (longlines-post-command-function): Handle open-line * longlines.el (longlines-post-command-function): Handle open-line too.
too.
2006-07-12 Richard Stallman <rms@gnu.org> 2006-07-12 Richard Stallman <rms@gnu.org>
@ -55,8 +59,8 @@
(vc-print-log): Run log-view-mode in process sentinel inside (vc-print-log): Run log-view-mode in process sentinel inside
inhibit-read-only. Don't shrink window due to timing issues. inhibit-read-only. Don't shrink window due to timing issues.
* progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid * progmodes/ebrowse.el (ebrowse-display-member-buffer):
using with-output-to-temp-buffer, which clobbers local vars. Avoid using with-output-to-temp-buffer, which clobbers local vars.
2006-07-11 Stefan Monnier <monnier@iro.umontreal.ca> 2006-07-11 Stefan Monnier <monnier@iro.umontreal.ca>

View file

@ -124,17 +124,7 @@ or macro definition or a defcustom)."
) )
`(progn `(progn
(defvar ,varname ,init ,doc) (defvar ,varname ,init ,doc)
(custom-autoload ',varname ,file) (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) ((eq car 'defgroup)
;; In Emacs this is normally handled separately by cus-dep.el, but for ;; In Emacs this is normally handled separately by cus-dep.el, but for