(line-move-finish): Inhibit field motion when computing `line-end'.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be19ba2a9dc..fcd53795c80 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-06-10  Miles Bader  <miles@gnu.org>
 
+        * simple.el (line-move-finish): Inhibit field motion when
+        computing `line-end'.
+
         * files.el (revert-buffer): Correct typo: variable name is
         `buffer-file-format', not `buffer-file-formats'.
 
diff --git a/lisp/simple.el b/lisp/simple.el
index 6ae43f63770..9f01cef9f66 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2668,7 +2668,8 @@ Outline mode sets this."
             (line-end
              ;; Compute the end of the line
              ;; ignoring effectively intangible newlines.
-             (let ((inhibit-point-motion-hooks nil))
+             (let ((inhibit-point-motion-hooks nil)
+                   (inhibit-field-text-motion t))
                (save-excursion (end-of-line) (point)))))
 
         ;; Move to the desired column.