mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(widget-field-end): Temporarily remove field

Browse Source 
narrowing before to call `get-char-property'.
This commit is contained in:
David Ponce 2005-04-05 06:41:09 +00:00
parent 0e73959747
commit 318d030ef5
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/wid-edit.el
View File

@ -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))))