mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

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

Browse Source 
* 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
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/which-key.el
View File

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