[Emacs-diffs] Changes to emacs/lisp/simple.el,v

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/09/29 18:18:42

Index: simple.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/simple.el,v
retrieving revision 1.828
retrieving revision 1.829
diff -u -b -r1.828 -r1.829
--- simple.el   24 Sep 2006 21:58:12 -0000      1.828
+++ simple.el   29 Sep 2006 18:18:42 -0000      1.829
@@ -3735,8 +3735,15 @@
        (goto-char opoint)
        (let ((inhibit-point-motion-hooks nil))
          (goto-char
+          ;; Ignore field boundaries if the initial and final
+          ;; positions have the same `field' property, even if the
+          ;; fields are non-contiguous.  This seems to be "nicer"
+          ;; behavior in many situations.
+          (if (eq (get-char-property new 'field)
+                  (get-char-property opoint 'field))
+              new
           (constrain-to-field new opoint t t
-                              'inhibit-line-move-field-capture)))
+                                'inhibit-line-move-field-capture))))
 
        ;; If all this moved us to a different line,
        ;; retry everything within that new line.