Commit 6f2971ab authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/comint.el (comint-line-beginning-position): Revert searching for

the prompt when comint-use-prompt-regexp is non-nil because it
doesn't distinguish input from output.  Check the field property
`output' for the case when comint-use-prompt-regexp is nil.

Fixes: debbugs:19710
parent 65d8ac7c
2015-02-19 Juri Linkov <juri@linkov.net>
* comint.el (comint-line-beginning-position): Revert searching for
the prompt when comint-use-prompt-regexp is non-nil because it
doesn't distinguish input from output. Check the field property
`output' for the case when comint-use-prompt-regexp is nil.
(Bug#19710)
2015-02-15 Jérémy Compostella <jeremy.compostella@gmail.com>
 
* net/tramp-sh.el (tramp-remote-process-environment): Disable paging
......
......@@ -2267,8 +2267,6 @@ a buffer local variable."
;; Use comint-prompt-regexp
(save-excursion
(beginning-of-line)
(unless (looking-at comint-prompt-regexp)
(re-search-backward comint-prompt-regexp nil t))
(comint-skip-prompt)
(point))
;; Use input fields. Note that, unlike the behavior of
......@@ -2278,7 +2276,10 @@ a buffer local variable."
;; if there are two fields on a line, then the first one is the
;; prompt, and the second one is an input field, and is front-sticky
;; (as input fields should be).
(constrain-to-field (field-beginning) (line-end-position))))
(constrain-to-field (if (eq (field-at-pos (point)) 'output)
(line-beginning-position)
(field-beginning))
(line-end-position))))
(defun comint-bol (&optional arg)
"Go to the beginning of line, then skip past the prompt, if any.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment