diff options
| author | Dave Love <[email protected]> | 2000-10-26 09:21:21 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2000-10-26 09:21:21 +0000 |
| commit | 5701edda1ed4ce2a21124dfb6ddbaf919089485a (patch) | |
| tree | 9db5228f097657c6661b62d669eb6312837fd6a1 | |
| parent | c1545d885dbf0521f7bebfa8eec2e55b6dd7dd72 (diff) | |
(widget-specify-field): Revert to using local-map
property, not keymap.
| -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 afc0df372b..bfed43794a 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)) |