mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(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
Show Stats 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."
(interactive "P")
(if arg
;; Disregard prompt
(let ((inhibit-field-text-motion t))
(beginning-of-line))
;; Unlike `beginning-of-line', forward-line ignores field boundaries
(forward-line 0)
(goto-char (comint-line-beginning-position))))
;; These three functions are for entering text you don't want echoed or