Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki 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))))