From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Dec 2004 14:19:01 +0000 (+0000)
Subject: (widget-specify-field): Add `real-field' property to boundary.
X-Git-Tag: ttn-vms-21-2-B4~3436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=263a40a61b9f1d72d22cc41a0ee7162889498b58;p=emacs.git

(widget-specify-field): Add `real-field' property to boundary.
(widget-field-at): Use it.
---

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)