diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-09-28 17:47:00 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-09-28 17:47:00 +0000 |
| commit | 07f1355e6dcbf6a7839540f856ccdc85f882cd25 (patch) | |
| tree | 4e6faaac9711ec50c9653a8dfc3cfdca92ea9b12 /lisp/comint.el | |
| parent | 0f4aca467ea8f567c03a7d52057b81982661d65b (diff) | |
| download | emacs-07f1355e6dcbf6a7839540f856ccdc85f882cd25.tar.gz | |
(comint-show-output): Really set point at the beginning of the output
when not using `comint-use-prompt-regexp'.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 6 |
1 files changed, 5 insertions, 1 deletions
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)))))) |