diff options
| author | Miles Bader | 2000-10-26 08:22:40 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-26 08:22:40 +0000 |
| commit | c1545d885dbf0521f7bebfa8eec2e55b6dd7dd72 (patch) | |
| tree | ec6d95bcf1c0b96f80df94b83684f5b009a3d831 | |
| parent | 3c1b77ca339ad317c30425a641c837be00c24827 (diff) | |
| download | emacs-c1545d885dbf0521f7bebfa8eec2e55b6dd7dd72.tar.gz emacs-c1545d885dbf0521f7bebfa8eec2e55b6dd7dd72.zip | |
(widget-field-end):
When checking for a `boundary' field, do so in the correct buffer.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/wid-edit.el | 16 |
2 files changed, 12 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 73dc391a5ca..d971cbf9638 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2000-10-26 Miles Bader <miles@lsi.nec.co.jp> | 1 | 2000-10-26 Miles Bader <miles@lsi.nec.co.jp> |
| 2 | 2 | ||
| 3 | * wid-edit.el (widget-field-end): When checking for a `boundary' | ||
| 4 | field, do so in the correct buffer. | ||
| 5 | |||
| 3 | * simple.el (undo): Correctly distinguish between numeric and | 6 | * simple.el (undo): Correctly distinguish between numeric and |
| 4 | non-numeric prefix args in non-transient-mark-mode, as per the doc | 7 | non-numeric prefix args in non-transient-mark-mode, as per the doc |
| 5 | string. When in transient-mark-mode, treat all prefix-args as | 8 | string. When in transient-mark-mode, treat all prefix-args as |
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index f8bd157a8ee..afc0df372b3 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -1077,13 +1077,15 @@ When not inside a field, move to the previous button or field." | |||
| 1077 | ;; Don't subtract one if local-map works at the end of the overlay, | 1077 | ;; Don't subtract one if local-map works at the end of the overlay, |
| 1078 | ;; or if a special `boundary' field has been added after the widget | 1078 | ;; or if a special `boundary' field has been added after the widget |
| 1079 | ;; field. | 1079 | ;; field. |
| 1080 | (and overlay (if (and (not (eq (get-char-property (overlay-end overlay) | 1080 | (and overlay |
| 1081 | 'field) | 1081 | (if (and (not (eq (get-char-property (overlay-end overlay) |
| 1082 | 'boundary)) | 1082 | 'field |
| 1083 | (or widget-field-add-space | 1083 | (widget-field-buffer widget)) |
| 1084 | (null (widget-get widget :size)))) | 1084 | 'boundary)) |
| 1085 | (1- (overlay-end overlay)) | 1085 | (or widget-field-add-space |
| 1086 | (overlay-end overlay))))) | 1086 | (null (widget-get widget :size)))) |
| 1087 | (1- (overlay-end overlay)) | ||
| 1088 | (overlay-end overlay))))) | ||
| 1087 | 1089 | ||
| 1088 | (defun widget-field-find (pos) | 1090 | (defun widget-field-find (pos) |
| 1089 | "Return the field at POS. | 1091 | "Return the field at POS. |