From: David Ponce <david@dponce.com>
Date: Tue, 5 Apr 2005 06:41:09 +0000 (+0000)
Subject: (widget-field-end): Temporarily remove field
X-Git-Tag: ttn-vms-21-2-B4~1206
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=318d030ef51bbb3272901316cede489ce7cdf558;p=emacs.git

(widget-field-end): Temporarily remove field
narrowing before to call `get-char-property'.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index f89095fd7fc..74bda990aed 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1185,9 +1185,17 @@ When not inside a field, move to the previous button or field."
     ;; 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))))