changeset 38833:5ddaed302dc3

(line-move): Pass an ESCAPE-FROM-EDGE argument of t when calling `constrain-to-field', to avoid problems with comint prompts.
author Miles Bader <miles@gnu.org>
date Thu, 16 Aug 2001 07:40:32 +0000
parents ce6b6f1fd86f
children 3b44716c4df4
files lisp/simple.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Wed Aug 15 17:06:15 2001 +0000
+++ b/lisp/simple.el	Thu Aug 16 07:40:32 2001 +0000
@@ -2590,8 +2590,8 @@
       ;; 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 @@
 	    (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)