From 263a40a61b9f1d72d22cc41a0ee7162889498b58 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Dec 2004 14:19:01 +0000 Subject: [PATCH] (widget-specify-field): Add `real-field' property to boundary. (widget-field-at): Use it. --- lisp/wid-edit.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index f659518ee02..4888bf478df 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -339,6 +339,8 @@ new value.") ;; 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 @@ When not inside a field, move to the previous button or field." "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) -- 2.39.5