(widget-specify-field): Revert to using local-map

property, not keymap.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index afc0df372b3..bfed43794a6 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -331,7 +331,9 @@ new value.")
       ;; one character.
       (let ((overlay (make-overlay (1- to) to nil t nil)))
         (overlay-put overlay 'field 'boundary)
-        (overlay-put overlay 'keymap keymap)
+        ;; Use `local-map' here, not `keymap', so that normal editing
+        ;; works in the field when, say, Custom uses `suppress-keymap'.
+        (overlay-put overlay 'local-map keymap)
         (overlay-put overlay 'face face)
         (overlay-put overlay 'help-echo help-echo))
       (setq to (1- to))
@@ -340,7 +342,7 @@ new value.")
       (widget-put widget :field-overlay overlay)
       ;;(overlay-put overlay 'detachable nil)
       (overlay-put overlay 'field widget)
-      (overlay-put overlay 'keymap keymap)
+      (overlay-put overlay 'local-map keymap)
       (overlay-put overlay 'face face)
       (overlay-put overlay 'help-echo help-echo)))
   (widget-specify-secret widget))