From ddee16047157a15fb4de0dba8ee2bcdb59d2fe00 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Sun, 28 Sep 2008 16:56:48 +0000 Subject: (comint-show-output): Adjust to stickiness changes of the output field. --- lisp/comint.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'lisp/comint.el') diff --git a/lisp/comint.el b/lisp/comint.el index c639053c1ca..1070652d777 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2125,11 +2125,7 @@ Sets mark to the value of point when this command is run." (set-window-start (selected-window) (point)) (comint-skip-prompt)) (t - (let* ((beg (field-beginning pos)) - (pt (if (= (point-min) beg) - (point-min) - (1+ beg)))) - (goto-char pt)) + (goto-char (field-beginning pos)) (set-window-start (selected-window) (point)))))) -- cgit v1.2.1