procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
`constrain-to-field', to avoid problems with comint prompts.
This commit is contained in:
Miles Bader 2001-08-16 07:40:51 +00:00
parent 46ff99c07e
commit 1369261b86
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

8
lisp/simple.el
View file

@ -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)