aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2015-04-15 13:02:15 -0400
committerStefan Monnier2015-04-15 13:02:15 -0400
commit58376670d83682e2135175dccf05a23eb815bfe6 (patch)
treefcba04f4cb5b8202d50e42818be1db5171799e44
parentd338998775330f59a7e6dfef7705b605d2c99033 (diff)
downloademacs-58376670d83682e2135175dccf05a23eb815bfe6.tar.gz
emacs-58376670d83682e2135175dccf05a23eb815bfe6.zip
Fix recent cus-start changes that added customize-rogues
* lisp/cus-start.el (custom-delayed-init-variables): Initialize the vars early. * lisp/loadup.el ("cus-start"): Move to the end to reduce customize-rogue.
-rw-r--r--lisp/cus-start.el6
-rw-r--r--lisp/loadup.el4
2 files changed, 6 insertions, 4 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 05135b80e8e..29ef371669c 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -632,7 +632,11 @@ since it could result in memory overflow and make Emacs crash."
632 (put symbol 'custom-set (cadr prop))) 632 (put symbol 'custom-set (cadr prop)))
633 ;; Note this is the _only_ initialize property we handle. 633 ;; Note this is the _only_ initialize property we handle.
634 (if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay) 634 (if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay)
635 (push symbol custom-delayed-init-variables)) 635 ;; These vars are defined early and should hence be initialized
636 ;; early, even if this file happens to be loaded late. so add them
637 ;; to the end of custom-delayed-init-variables. Otherwise,
638 ;; auto-save-file-name-transforms will appear in M-x customize-rogue.
639 (add-to-list 'custom-delayed-init-variables symbol 'append))
636 ;; If this is NOT while dumping Emacs, set up the rest of the 640 ;; If this is NOT while dumping Emacs, set up the rest of the
637 ;; customization info. This is the stuff that is not needed 641 ;; customization info. This is the stuff that is not needed
638 ;; until someone does M-x customize etc. 642 ;; until someone does M-x customize etc.
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 51339253ddd..bfec75fc2c9 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -101,8 +101,6 @@
101(load "env") 101(load "env")
102(load "format") 102(load "format")
103(load "bindings") 103(load "bindings")
104;; This sets temporary-file-directory, used by eg
105;; auto-save-file-name-transforms in files.el.
106(load "window") ; Needed here for `replace-buffer-in-windows'. 104(load "window") ; Needed here for `replace-buffer-in-windows'.
107(setq load-source-file-function 'load-with-code-conversion) 105(setq load-source-file-function 'load-with-code-conversion)
108(load "files") 106(load "files")
@@ -143,7 +141,6 @@
143 ;; In case loaddefs hasn't been generated yet. 141 ;; In case loaddefs hasn't been generated yet.
144 (file-error (load "ldefs-boot.el"))) 142 (file-error (load "ldefs-boot.el")))
145 143
146(load "cus-start") ;After loaddefs to autoload pcase-dolist.
147(load "emacs-lisp/nadvice") 144(load "emacs-lisp/nadvice")
148(load "emacs-lisp/cl-preloaded") 145(load "emacs-lisp/cl-preloaded")
149(load "minibuffer") ;After loaddefs, for define-minor-mode. 146(load "minibuffer") ;After loaddefs, for define-minor-mode.
@@ -284,6 +281,7 @@
284(load "uniquify") 281(load "uniquify")
285(load "electric") 282(load "electric")
286(load "emacs-lisp/eldoc") 283(load "emacs-lisp/eldoc")
284(load "cus-start") ;Late to reduce customize-rogue (needs loaddefs.el anyway)
287(if (not (eq system-type 'ms-dos)) (load "tooltip")) 285(if (not (eq system-type 'ms-dos)) (load "tooltip"))
288 286
289;; This file doesn't exist when building a development version of Emacs 287;; This file doesn't exist when building a development version of Emacs