From: Mauro Aranda <maurooaranda@gmail.com>
Date: Thu, 6 Mar 2025 08:45:50 +0000 (-0300)
Subject: Fix some widgets in customize-dirlocals
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f715536c93107599228232d05209e32159b4e06a;p=emacs.git

Fix some widgets in customize-dirlocals

* lisp/cus-edit.el (custom-dynamic-cons-value-create): Make sure
to eval the keymap property.  (Bug#76756)

(cherry picked from commit 93ac2cb742f6fb90a36d758617cecb36c3d33e46)
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 1bdc5a287d6..3b9b32f3360 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -6039,7 +6039,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)))
@@ -6048,7 +6048,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)))