[Emacs-diffs] emacs/lisp ChangeLog term.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/24 02:15:14

Modified files:
        lisp           : ChangeLog term.el 

Log message:
        * 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 <address@hidden>.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16245&r2=1.16246
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term.el?cvsroot=emacs&r1=1.120&r2=1.121

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16245
retrieving revision 1.16246
diff -u -b -r1.16245 -r1.16246
--- ChangeLog   24 Sep 2009 02:04:25 -0000      1.16245
+++ ChangeLog   24 Sep 2009 02:15:11 -0000      1.16246
@@ -1,5 +1,9 @@
 2009-09-24  Stefan Monnier  <address@hidden>
 
+       * 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 <address@hidden>.
+
        * term.el: Require CL.
        (term-ansi-reset): New function.
        (term-mode, term-emulate-terminal, term-handle-colors-array): Use it.

Index: term.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term.el,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -b -r1.120 -r1.121
--- term.el     24 Sep 2009 02:04:28 -0000      1.120
+++ term.el     24 Sep 2009 02:15:14 -0000      1.121
@@ -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)