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

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/24 18:10:48

Modified files:
        lisp           : ChangeLog term.el 

Log message:
        (term-set-scroll-region, term-handle-ansi-escape):
        Undo last change, which didn't fix the problem and introduced others.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16252&r2=1.16253
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term.el?cvsroot=emacs&r1=1.121&r2=1.122

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16252
retrieving revision 1.16253
diff -u -b -r1.16252 -r1.16253
--- ChangeLog   24 Sep 2009 12:29:39 -0000      1.16252
+++ ChangeLog   24 Sep 2009 18:10:44 -0000      1.16253
@@ -1,3 +1,8 @@
+2009-09-24  Stefan Monnier  <address@hidden>
+
+       * term.el (term-set-scroll-region, term-handle-ansi-escape):
+       Undo last change, which didn't fix the problem and introduced others.
+
 2009-09-24  Nick Roberts  <address@hidden>
 
        * progmodes/gdb-mi.el: Don't require speedbar.

Index: term.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term.el,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -b -r1.121 -r1.122
--- term.el     24 Sep 2009 02:15:14 -0000      1.121
+++ term.el     24 Sep 2009 18:10:47 -0000      1.122
@@ -3369,8 +3369,7 @@
    ((eq char ?r)
     (term-set-scroll-region
      (1- term-terminal-previous-parameter)
-     (1- term-terminal-parameter))
-    (term-goto 0 0))
+     (1- term-terminal-parameter)))
    (t)))
 
 (defun term-set-scroll-region (top bottom)
@@ -3390,7 +3389,8 @@
        (or (term-using-alternate-sub-buffer)
            (not (and (= term-scroll-start 0)
                      (= term-scroll-end term-height)))))
-  (term-move-columns (- (term-current-column))))
+  (term-move-columns (- (term-current-column)))
+  (term-goto 0 0))
 
 ;; (defun term-switch-to-alternate-sub-buffer (set)
 ;;   ;; If asked to switch to (from) the alternate sub-buffer, and already 
(not)