Fix edge-case with 'which-key-dont-use-unicode' setter

* lisp/which-key.el (which-key-dont-use-unicode): Check if the
user options have a 'standard-value' before proceeding to
reevaluate.  This avoids accidentally setting the symbol value
to nil, before the user option has been declared, overriding the
actual non-nil, default values.  (Bug#72077)
This commit is contained in:
Philip Kaludercic 2024-07-26 23:26:14 +02:00
parent 68a5f1f7d1
commit 1ae2f00447
No known key found for this signature in database

View file

@ -130,9 +130,10 @@ For affected settings, see `which-key-replacement-alist', `which-key-ellipsis'
`which-key-separator'."
:set (lambda (sym val)
(custom-set-default sym val)
(mapc #'custom-reevaluate-setting
'(which-key-separator
which-key-ellipsis)))
(dolist (sym '(which-key-separator
which-key-ellipsis))
(when (get sym 'standard-value)
(custom-reevaluate-setting sym))))
:initialize #'custom-initialize-changed
:type 'boolean
:package-version "1.0" :version "30.1")