diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-24 02:15:11 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-09-24 02:15:11 +0000 |
commit | 8ad2defcbb0ee596a926ebb77cbe2146574292d2 (patch) | |
tree | 06281f0c5072b6382bc826725cf491e6f096eac5 /lisp/term.el | |
parent | 4a814992b8972f549477673c4470d7307d0adefe (diff) | |
download | emacs-8ad2defcbb0ee596a926ebb77cbe2146574292d2.tar.gz |
* 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>.
Diffstat (limited to 'lisp/term.el')
-rw-r--r-- | lisp/term.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/term.el b/lisp/term.el index b7eb9fd1845..2d52bdc0f1c 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -3369,7 +3369,8 @@ Set it to nil to disable bold.") ((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 @@ The top-most line is line 0." (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) |