procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix some widgets in customize-dirlocals

Browse source 
* lisp/cus-edit.el (custom-dynamic-cons-value-create): Make sure
to eval the keymap property.  (Bug#76756)
This commit is contained in:
Mauro Aranda 2025-03-06 05:45:50 -03:00
parent 42a4c847e2
commit 93ac2cb742
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/cus-edit.el
View file

@ -5918,7 +5918,7 @@ The appropriate types are:
(val (car value))) (val (car value)))
(cond (cond
((eq val 'mode) (setf (nth 1 args) ((eq val 'mode) (setf (nth 1 args)
'(symbol :keymap custom-dirlocals-field-map `(symbol :keymap ,custom-dirlocals-field-map
:tag "Minor mode"))) :tag "Minor mode")))
((eq val 'unibyte) (setf (nth 1 args) '(boolean))) ((eq val 'unibyte) (setf (nth 1 args) '(boolean)))
((eq val 'subdirs) (setf (nth 1 args) '(boolean))) ((eq val 'subdirs) (setf (nth 1 args) '(boolean)))
@ -5927,7 +5927,7 @@ The appropriate types are:
(when (custom--editable-field-p w) (when (custom--editable-field-p w)
(widget-put w :keymap custom-dirlocals-field-map)) (widget-put w :keymap custom-dirlocals-field-map))
(setf (nth 1 args) w))) (setf (nth 1 args) w)))
(t (setf (nth 1 args) '(sexp :keymap custom-dirlocals-field-map)))) (t (setf (nth 1 args) `(sexp :keymap ,custom-dirlocals-field-map))))
(widget-put (nth 0 args) :keymap custom-dirlocals-field-map) (widget-put (nth 0 args) :keymap custom-dirlocals-field-map)
(widget-group-value-create widget))) (widget-group-value-create widget)))