From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 13 Jul 2006 18:13:06 +0000 (+0000)
Subject: (make-autoload): Remove special handling of
X-Git-Tag: emacs-pretest-22.0.90~1467
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02dcdad34e95289a98dfb5784cb4c51f16fe0ae5;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b23e8b538b0..b73a218acfc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
-	* longlines.el (longlines-post-command-function): Handle open-line
-	too.
+	* longlines.el (longlines-post-command-function): Handle open-line too.
 
 2006-07-12  Richard Stallman  <rms@gnu.org>
 
@@ -55,8 +59,8 @@
 	(vc-print-log): Run log-view-mode in process sentinel inside
 	inhibit-read-only.  Don't shrink window due to timing issues.
 
-	* progmodes/ebrowse.el (ebrowse-display-member-buffer): Avoid
-	using with-output-to-temp-buffer, which clobbers local vars.
+	* progmodes/ebrowse.el (ebrowse-display-member-buffer):
+	Avoid using with-output-to-temp-buffer, which clobbers local vars.
 
 2006-07-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 76699f10df8..4000b4da282 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -124,17 +124,7 @@ or macro definition or a defcustom)."
 	    )
 	`(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))))))
+	   (custom-autoload ',varname ,file))))
 
      ((eq car 'defgroup)
       ;; In Emacs this is normally handled separately by cus-dep.el, but for