diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2025-03-06 05:45:50 -0300 |
|---|---|---|
| committer | Mauro Aranda <maurooaranda@gmail.com> | 2025-03-06 05:45:50 -0300 |
| commit | 93ac2cb742f6fb90a36d758617cecb36c3d33e46 (patch) | |
| tree | c3370981c8e8f5846a2cbb1d212521546b56206c /lisp/cus-edit.el | |
| parent | 42a4c847e286957bef579390e9cb9854699dacfd (diff) | |
| download | emacs-93ac2cb742f6fb90a36d758617cecb36c3d33e46.tar.gz emacs-93ac2cb742f6fb90a36d758617cecb36c3d33e46.tar.bz2 emacs-93ac2cb742f6fb90a36d758617cecb36c3d33e46.zip | |
Fix some widgets in customize-dirlocals
* lisp/cus-edit.el (custom-dynamic-cons-value-create): Make sure
to eval the keymap property. (Bug#76756)
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 91e77c7af47..2ecae541fed 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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))) |