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