# HG changeset patch
# User David Ponce <david@dponce.com>
# Date 1112683269 0
# Node ID 8fc6a70b402a23d579e6ef050aec1f785f267467
# Parent  0592ebb755988709eef605856482e5ad49372de4
(widget-field-end): Temporarily remove field
narrowing before to call `get-char-property'.

diff -r 0592ebb75598 -r 8fc6a70b402a lisp/wid-edit.el
--- a/lisp/wid-edit.el	Tue Apr 05 06:40:12 2005 +0000
+++ b/lisp/wid-edit.el	Tue Apr 05 06:41:09 2005 +0000
@@ -1185,9 +1185,17 @@
     ;; or if a special `boundary' field has been added after the widget
     ;; field.
     (if (overlayp overlay)
-	(if (and (not (eq (get-char-property (overlay-end overlay)
-					     'field
-					     (widget-field-buffer widget))
+	(if (and (not (eq (with-current-buffer
+			      (widget-field-buffer widget)
+			    (save-restriction
+			      ;; `widget-narrow-to-field' can be
+			      ;; active when this function is called
+			      ;; from an change-functions hook. So
+			      ;; temporarily remove field narrowing
+			      ;; before to call `get-char-property'.
+			      (widen)
+			      (get-char-property (overlay-end overlay)
+						 'field)))
 			  'boundary))
 		 (or widget-field-add-space
 		     (null (widget-get widget :size))))