Mercurial > emacs
changeset 105173:500233eb2d72
* term.el (term-set-scroll-region): Don't move cursor any more.
(term-handle-ansi-escape): Call term-goto here instead.
Suggested by Ivan Kanis <apple@kanis.eu>.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 24 Sep 2009 02:15:11 +0000 |
| parents | 69e85f510ced |
| children | 13f171fbff05 |
| files | lisp/ChangeLog lisp/term.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Sep 24 02:04:25 2009 +0000 +++ b/lisp/ChangeLog Thu Sep 24 02:15:11 2009 +0000 @@ -1,5 +1,9 @@ 2009-09-24 Stefan Monnier <monnier@iro.umontreal.ca> + * term.el (term-set-scroll-region): Don't move cursor any more. + (term-handle-ansi-escape): Call term-goto here instead. + Suggested by Ivan Kanis <apple@kanis.eu>. + * term.el: Require CL. (term-ansi-reset): New function. (term-mode, term-emulate-terminal, term-handle-colors-array): Use it.
--- a/lisp/term.el Thu Sep 24 02:04:25 2009 +0000 +++ b/lisp/term.el Thu Sep 24 02:15:11 2009 +0000 @@ -3369,7 +3369,8 @@ ((eq char ?r) (term-set-scroll-region (1- term-terminal-previous-parameter) - (1- term-terminal-parameter))) + (1- term-terminal-parameter)) + (term-goto 0 0)) (t))) (defun term-set-scroll-region (top bottom) @@ -3389,8 +3390,7 @@ (or (term-using-alternate-sub-buffer) (not (and (= term-scroll-start 0) (= term-scroll-end term-height))))) - (term-move-columns (- (term-current-column))) - (term-goto 0 0)) + (term-move-columns (- (term-current-column)))) ;; (defun term-switch-to-alternate-sub-buffer (set) ;; ;; If asked to switch to (from) the alternate sub-buffer, and already (not)