aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2000-10-26 08:22:40 +0000
committerMiles Bader2000-10-26 08:22:40 +0000
commitc1545d885dbf0521f7bebfa8eec2e55b6dd7dd72 (patch)
treeec6d95bcf1c0b96f80df94b83684f5b009a3d831
parent3c1b77ca339ad317c30425a641c837be00c24827 (diff)
downloademacs-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/ChangeLog3
-rw-r--r--lisp/wid-edit.el16
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 @@
12000-10-26 Miles Bader <miles@lsi.nec.co.jp> 12000-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.