(line-move): Pass an ESCAPE-FROM-EDGE argument of t when calling

`constrain-to-field', to avoid problems with comint prompts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da8a24cdf71b64348f189b91bf6d01f68468adf6..7b3fb57d7d0851adc2c812098be41a9c0dc05dd4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-16  Miles Bader  <miles@gnu.org>
+
+       * simple.el (line-move): Pass an ESCAPE-FROM-EDGE argument of t
+       when calling `constrain-to-field', to avoid problems with comint
+       prompts.
+
 2001-08-15  Gerd Moellmann  <gerd@gnu.org>
 
        * emacs-lisp/cl-indent.el (lisp-indent-defmethod): New function.

diff --git a/lisp/simple.el b/lisp/simple.el
index 51887986f60e425ea5fa4e8301923915b3206974..3a373bada399b7050a2ab833e868196102d0aecb 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2590,8 +2590,8 @@ Outline mode sets this."
       ;; with intangibility and point-motion hooks enabled this time.
       (goto-char opoint)
       (setq inhibit-point-motion-hooks nil)
-      (goto-char (constrain-to-field new opoint nil t
-                                    'inhibit-line-move-field-capture))
+      (goto-char
+       (constrain-to-field new opoint t t 'inhibit-line-move-field-capture))
       ;; If intangibility processing moved us to a different line,
       ;; readjust the horizontal position within the line we ended up at.
       (when (or (< (point) line-beg) (> (point) line-end))
@@ -2606,8 +2606,8 @@ Outline mode sets this."
            (setq new (point)))
        (goto-char (point-min))
        (setq inhibit-point-motion-hooks nil)
-       (goto-char (constrain-to-field new opoint nil t
-                                      'inhibit-line-move-field-capture))
+       (goto-char
+        (constrain-to-field new opoint t t 'inhibit-line-move-field-capture))
        )))
   nil)