From: Miles Bader Date: Thu, 16 Aug 2001 07:40:51 +0000 (+0000) Subject: (line-move): Pass an ESCAPE-FROM-EDGE argument of t when calling X-Git-Tag: emacs-pretest-21.0.105~172 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1369261b86e75d10776a68914f811d5faf6c0ac5;p=emacs.git (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 da8a24cdf71..7b3fb57d7d0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-08-16 Miles Bader + + * 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 * emacs-lisp/cl-indent.el (lisp-indent-defmethod): New function. diff --git a/lisp/simple.el b/lisp/simple.el index 51887986f60..3a373bada39 100644 --- 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)