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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/03/17 19:44:22

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.849
retrieving revision 1.850
diff -u -b -r1.849 -r1.850
--- simple.el   8 Mar 2007 14:43:08 -0000       1.849
+++ simple.el   17 Mar 2007 19:44:21 -0000      1.850
@@ -3594,7 +3594,7 @@
                              'end-of-buffer)
                            nil)))
            ;; Move by arg lines, but ignore invisible ones.
-           (let (done line-end)
+           (let (done)
              (while (and (> arg 0) (not done))
                ;; If the following character is currently invisible,
                ;; skip all characters with that same `invisible' property 
value.
@@ -3603,9 +3603,11 @@
                ;; Move a line.
                ;; We don't use `end-of-line', since we want to escape
                ;; from field boundaries ocurring exactly at point.
+               (goto-char (constrain-to-field
                (let ((inhibit-field-text-motion t))
-                 (setq line-end (line-end-position)))
-               (goto-char (constrain-to-field line-end (point) t t))
+                             (line-end-position))
+                           (point) t t
+                           'inhibit-line-move-field-capture))
                ;; If there's no invisibility here, move over the newline.
                (cond
                 ((eobp)