From: Dave Love <fx@gnu.org>
Date: Thu, 26 Oct 2000 09:21:21 +0000 (+0000)
Subject: (widget-specify-field): Revert to using local-map
X-Git-Tag: emacs-pretest-21.0.90~557
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5701edda1ed4ce2a21124dfb6ddbaf919089485a;p=emacs.git

(widget-specify-field): Revert to using local-map
property, not keymap.
---

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))