diff options
| author | Dave Love <fx@gnu.org> | 2000-10-26 09:21:21 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-10-26 09:21:21 +0000 |
| commit | 6e2be64c55eff127b05307ef2239f1325444c258 (patch) | |
| tree | 2bbe7a715156b4f21b77ccc88252a26945509f51 /lisp/wid-edit.el | |
| parent | 4d6eb7c0ee206c45330d95ce1b4870d4d9af6c2e (diff) | |
| download | emacs-6e2be64c55eff127b05307ef2239f1325444c258.tar.gz | |
(widget-specify-field): Revert to using local-map
property, not keymap.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 6 |
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)) |