Mercurial > emacs
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)