Small cus-start fix for custom-delayed-init-variables

* lisp/cus-start.el (custom-delayed-init-variables):
Only modify it during startup.
This commit is contained in:
Glenn Morris 2018-01-16 21:20:43 -05:00
parent f121b5d7f3
commit 6e9f20b3ff

View file

@ -705,13 +705,15 @@ since it could result in memory overflow and make Emacs crash."
(put symbol 'risky-local-variable (cadr prop)))
(if (setq prop (memq :set rest))
(put symbol 'custom-set (cadr prop)))
;; Note this is the _only_ initialize property we handle.
(if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay)
;; These vars are defined early and should hence be initialized
;; early, even if this file happens to be loaded late. so add them
;; to the end of custom-delayed-init-variables. Otherwise,
;; auto-save-file-name-transforms will appear in M-x customize-rogue.
(add-to-list 'custom-delayed-init-variables symbol 'append))
;; Don't re-add to custom-delayed-init-variables post-startup.
(unless after-init-time
;; Note this is the _only_ initialize property we handle.
(if (eq (cadr (memq :initialize rest)) 'custom-initialize-delay)
;; These vars are defined early and should hence be initialized
;; early, even if this file happens to be loaded late. so add them
;; to the end of custom-delayed-init-variables. Otherwise,
;; auto-save-file-name-transforms will appear in customize-rogue.
(add-to-list 'custom-delayed-init-variables symbol 'append)))
;; If this is NOT while dumping Emacs, set up the rest of the
;; customization info. This is the stuff that is not needed
;; until someone does M-x customize etc.