(comint-show-output): Adjust to stickiness changes of the output field.
This commit is contained in:
parent
7581ba4099
commit
ddee160471
2 changed files with 4 additions and 5 deletions
|
@ -1,5 +1,8 @@
|
||||||
2008-09-28 Romain Francoise <romain@orebokech.com>
|
2008-09-28 Romain Francoise <romain@orebokech.com>
|
||||||
|
|
||||||
|
* comint.el (comint-show-output): Adjust to stickiness changes of
|
||||||
|
the output field.
|
||||||
|
|
||||||
* startup.el (command-line): Start the daemon server later.
|
* startup.el (command-line): Start the daemon server later.
|
||||||
|
|
||||||
2008-09-28 Martin Rudalics <rudalics@gmx.at>
|
2008-09-28 Martin Rudalics <rudalics@gmx.at>
|
||||||
|
|
|
@ -2125,11 +2125,7 @@ Sets mark to the value of point when this command is run."
|
||||||
(set-window-start (selected-window) (point))
|
(set-window-start (selected-window) (point))
|
||||||
(comint-skip-prompt))
|
(comint-skip-prompt))
|
||||||
(t
|
(t
|
||||||
(let* ((beg (field-beginning pos))
|
(goto-char (field-beginning pos))
|
||||||
(pt (if (= (point-min) beg)
|
|
||||||
(point-min)
|
|
||||||
(1+ beg))))
|
|
||||||
(goto-char pt))
|
|
||||||
(set-window-start (selected-window) (point))))))
|
(set-window-start (selected-window) (point))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue