Mercurial > emacs

changeset 32903:63244e8732b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(widget-specify-field): Revert to using local-map property, not keymap.
author Dave Love <fx@gnu.org>
date Thu, 26 Oct 2000 09:21:21 +0000
parents b0cee304020f
children 2109c5fb0c3f
files lisp/wid-edit.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/wid-edit.el	Thu Oct 26 08:22:40 2000 +0000
+++ b/lisp/wid-edit.el	Thu Oct 26 09:21:21 2000 +0000
@@ -331,7 +331,9 @@
       ;; 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 @@
       (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))