diff options
| author | Stefan Monnier | 2015-04-15 13:02:15 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-04-15 13:02:15 -0400 |
| commit | 58376670d83682e2135175dccf05a23eb815bfe6 (patch) | |
| tree | fcba04f4cb5b8202d50e42818be1db5171799e44 | |
| parent | d338998775330f59a7e6dfef7705b605d2c99033 (diff) | |
| download | emacs-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.el | 6 | ||||
| -rw-r--r-- | lisp/loadup.el | 4 |
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 |