martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
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)))
(cond
((eq val 'mode) (setf (nth 1 args)
'(symbol :keymap custom-dirlocals-field-map
`(symbol :keymap ,custom-dirlocals-field-map
:tag "Minor mode")))
((eq val 'unibyte) (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)
(widget-put w :keymap custom-dirlocals-field-map))
(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-group-value-create widget)))