From 07f1355e6dcbf6a7839540f856ccdc85f882cd25 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Wed, 28 Sep 2005 17:47:00 +0000 Subject: [PATCH] (comint-show-output): Really set point at the beginning of the output when not using `comint-use-prompt-regexp'. --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c8606f34f51..a1c574298ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-09-28 Romain Francoise + + * 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 * calc/calc-lang.el (math-oper-table): Raise the precedence of "/" diff --git a/lisp/comint.el b/lisp/comint.el index 0977663808a..c92d0a10ad3 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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)))))) -- 2.39.2