(make-autoload): Use new arg.

2006-07-17 21:27:17 +00:00 · 2006-07-17 21:27:17 +00:00 · fb2dd97003
commit fb2dd97003
parent d54fbdfd31
2 changed files with 17 additions and 1 deletions
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@ -124,7 +124,10 @@ or macro definition or a defcustom)."
 	    )
 	`(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