(comint-show-output): Really set point at the beginning of the output

when not using `comint-use-prompt-regexp'.
This commit is contained in:
Romain Francoise 2005-09-28 17:47:00 +00:00
parent 0f4aca467e
commit 07f1355e6d
2 changed files with 10 additions and 1 deletions

View file

@ -1,3 +1,8 @@
2005-09-28 Romain Francoise <romain@orebokech.com>
* comint.el (comint-show-output): Really set point at the
beginning of the output when not using `comint-use-prompt-regexp'.
2005-09-27 Jay Belanger <belanger@truman.edu>
* calc/calc-lang.el (math-oper-table): Raise the precedence of "/"

View file

@ -2056,7 +2056,11 @@ Sets mark to the value of point when this command is run."
(set-window-start (selected-window) (point))
(comint-skip-prompt))
(t
(goto-char (field-beginning pos))
(let* ((beg (field-beginning pos))
(pt (if (= (point-min) beg)
(point-min)
(1+ beg))))
(goto-char pt))
(set-window-start (selected-window) (point))))))