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

property, not keymap.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index afc0df372b3c3af729fa16ac12d0c262e8ecb5cb..bfed43794a6dab37c7d5f3e3c84e2909f46c183f 100644 (file)
--- 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))