/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.136 by rms, Sat Jan 29 17:21:12 2005 UTC revision 1.137 by dpe, Tue Apr 5 06:41:09 2005 UTC
# Line 1185  When not inside a field, move to the pre Line 1185  When not inside a field, move to the pre
1185      ;; or if a special `boundary' field has been added after the widget      ;; or if a special `boundary' field has been added after the widget
1186      ;; field.      ;; field.
1187      (if (overlayp overlay)      (if (overlayp overlay)
1188          (if (and (not (eq (get-char-property (overlay-end overlay)          (if (and (not (eq (with-current-buffer
1189                                               'field                                (widget-field-buffer widget)
1190                                               (widget-field-buffer widget))                              (save-restriction
1191                                  ;; `widget-narrow-to-field' can be
1192                                  ;; active when this function is called
1193                                  ;; from an change-functions hook. So
1194                                  ;; temporarily remove field narrowing
1195                                  ;; before to call `get-char-property'.
1196                                  (widen)
1197                                  (get-char-property (overlay-end overlay)
1198                                                     'field)))
1199                            'boundary))                            'boundary))
1200                   (or widget-field-add-space                   (or widget-field-add-space
1201                       (null (widget-get widget :size))))                       (null (widget-get widget :size))))

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26