diff options
| author | Miles Bader <miles@gnu.org> | 2001-08-16 07:40:51 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2001-08-16 07:40:51 +0000 |
| commit | 1369261b86e75d10776a68914f811d5faf6c0ac5 (patch) | |
| tree | 972242dbd99e785b5502ad32b818cd814f69ac86 /lisp/simple.el | |
| parent | 46ff99c07e33882fde37146f5b064ea04ac7eaa9 (diff) | |
| download | emacs-1369261b86e75d10776a68914f811d5faf6c0ac5.tar.gz | |
(line-move): Pass an ESCAPE-FROM-EDGE argument of t when calling
`constrain-to-field', to avoid problems with comint prompts.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 4 insertions, 4 deletions
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) |