# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1102256341 0
# Node ID 4b3cfed7370ff0b112479dba11644d4f23ccd257
# Parent  9a73265ddd161c0450ce88ae645111fd3a7837ee
(widget-specify-field): Add `real-field' property to boundary.
(widget-field-at): Use it.

diff -r 9a73265ddd16 -r 4b3cfed7370f lisp/wid-edit.el
--- 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)