mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

cus-start.el: Fix bug#78637

Browse source 
* lisp/cus-start.el <toplevel>: Test `dump-mode` rather than
`after-init-time` for `custom-delayed-init-variables`.
This commit is contained in:
Stefan Monnier 2025-06-24 18:16:04 -04:00
parent b687f02a73
commit 189ae7b1ed
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/cus-start.el
View file

@ -946,19 +946,18 @@ since it could result in memory overflow and make Emacs crash."
(put symbol 'custom-set (cadr prop)))
;; This is used by describe-variable.
(if version (put symbol 'custom-version version))
;; 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.
(unless dump-mode
(if dump-mode
;; Don't re-add to custom-delayed-init-variables post-startup.
;; 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))
;; Add it to the right group(s).
(if (listp group)
(dolist (g group)