diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/comint.el | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c8606f34f51..a1c574298ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2005-09-28 Romain Francoise <romain@orebokech.com> | ||
| 2 | |||
| 3 | * comint.el (comint-show-output): Really set point at the | ||
| 4 | beginning of the output when not using `comint-use-prompt-regexp'. | ||
| 5 | |||
| 1 | 2005-09-27 Jay Belanger <belanger@truman.edu> | 6 | 2005-09-27 Jay Belanger <belanger@truman.edu> |
| 2 | 7 | ||
| 3 | * calc/calc-lang.el (math-oper-table): Raise the precedence of "/" | 8 | * 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." | |||
| 2056 | (set-window-start (selected-window) (point)) | 2056 | (set-window-start (selected-window) (point)) |
| 2057 | (comint-skip-prompt)) | 2057 | (comint-skip-prompt)) |
| 2058 | (t | 2058 | (t |
| 2059 | (goto-char (field-beginning pos)) | 2059 | (let* ((beg (field-beginning pos)) |
| 2060 | (pt (if (= (point-min) beg) | ||
| 2061 | (point-min) | ||
| 2062 | (1+ beg)))) | ||
| 2063 | (goto-char pt)) | ||
| 2060 | (set-window-start (selected-window) (point)))))) | 2064 | (set-window-start (selected-window) (point)))))) |
| 2061 | 2065 | ||
| 2062 | 2066 | ||