From 318d030ef51bbb3272901316cede489ce7cdf558 Mon Sep 17 00:00:00 2001 From: David Ponce Date: Tue, 5 Apr 2005 06:41:09 +0000 Subject: [PATCH] (widget-field-end): Temporarily remove field narrowing before to call `get-char-property'. --- lisp/wid-edit.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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))))