Mercurial > emacs
changeset 58766:4b3cfed7370f
(widget-specify-field): Add `real-field' property to boundary.
(widget-field-at): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 05 Dec 2004 14:19:01 +0000 |
| parents | 9a73265ddd16 |
| children | d2c6a8b592f2 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Sun Dec 05 14:16:19 2004 +0000 +++ b/lisp/wid-edit.el Sun Dec 05 14:19:01 2004 +0000 @@ -339,6 +339,8 @@ ;; one character. (let ((overlay (make-overlay (1- to) to nil t nil))) (overlay-put overlay 'field 'boundary) + ;; We need the real field for tabbing. + (overlay-put overlay 'real-field widget) ;; 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) @@ -1149,7 +1151,7 @@ "Return the widget field at POS, or nil if none." (let ((field (get-char-property (or pos (point)) 'field))) (if (eq field 'boundary) - nil + (get-char-property (or pos (point)) 'real-field) field))) (defun widget-field-buffer (widget)