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

(comint-bol): Use `forward-line 0' instead of calling beginning-of-line

Browse source 
with inhibit-field-text-motion bound.
This commit is contained in:
Miles Bader 2000-08-14 12:56:03 +00:00
parent 90cbf47ef1
commit 1cc9bc49d8
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/comint.el
View file

@ -1740,9 +1740,8 @@ prompt skip is done by skipping text matching the regular expression
`comint-prompt-regexp', a buffer local variable." `comint-prompt-regexp', a buffer local variable."
(interactive "P") (interactive "P")
(if arg (if arg
;; Disregard prompt ;; Unlike `beginning-of-line', forward-line ignores field boundaries
(let ((inhibit-field-text-motion t)) (forward-line 0)
(beginning-of-line))
(goto-char (comint-line-beginning-position)))) (goto-char (comint-line-beginning-position))))
;; These three functions are for entering text you don't want echoed or ;; These three functions are for entering text you don't want echoed or