Mercurial > emacs
changeset 65724:e0ee2d15f961
(comint-show-output): Really set point at the beginning of the output
when not using `comint-use-prompt-regexp'.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Wed, 28 Sep 2005 17:47:00 +0000 |
| parents | b88d5090aa86 |
| children | 6abb433dad86 |
| files | lisp/ChangeLog lisp/comint.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 28 10:48:20 2005 +0000 +++ b/lisp/ChangeLog Wed Sep 28 17:47:00 2005 +0000 @@ -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 "/"
--- a/lisp/comint.el Wed Sep 28 10:48:20 2005 +0000 +++ b/lisp/comint.el Wed Sep 28 17:47:00 2005 +0000 @@ -2056,7 +2056,11 @@ (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))))))