5 files changed, 14 insertions, 1 deletions

diff --git a/etc/ChangeLog b/etc/ChangeLog
index 746c1f9ed85..eb9a310cb28 100644
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
+2009-08-07  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * e/eterm-color.ti (msgr, u6, u7): New capabilities.
+
 2009-08-02  Michael Albinus  <michael.albinus@gmx.de>
 
         * NEWS: Autorevert Tail mode works now for remote files.
diff --git a/etc/e/eterm-color b/etc/e/eterm-color
index 5a208473e3e..bd3f5003ae6 100644
--- a/etc/e/eterm-color
+++ b/etc/e/eterm-color
diff --git a/etc/e/eterm-color.ti b/etc/e/eterm-color.ti
index 19e14976e12..0ddb7ec5408 100644
--- a/etc/e/eterm-color.ti
+++ b/etc/e/eterm-color.ti
@@ -15,6 +15,7 @@ eterm-color|Emacs term.el terminal emulator term-protocol-version 0.96,
         pairs#64,
         am,
         mir,
+        msgr,
         xenl,
         bel=^G,
         bold=\E[1m,
@@ -70,6 +71,8 @@ eterm-color|Emacs term.el terminal emulator term-protocol-version 0.96,
         smir=\E[4h,
         smul=\E[4m,
         smso=\E[7m,
+        u6=\E[%i%d;%dR,
+        u7=\E[6n,
 #       smcup=\E[?47h,
 #       rmcup=\E[?47l,
 #       rs2 may need to be added
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a380d459ff..9ebf971f15f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-07  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * term.el (term-handle-ansi-escape): Add comments with the
+        terminfo capabilities implemented.
+
 2009-08-06  Dmitry Dzhus  <dima@sphinx.net.ru>
 
         * progmodes/gdb-mi.el (gdb-var-create-regexp): Removed.
diff --git a/lisp/term.el b/lisp/term.el
index 68a8e209558..4c2997cd3ba 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3363,10 +3363,11 @@ See `term-prompt-regexp'."
       (term-handle-colors-array term-terminal-previous-parameter))
     (term-handle-colors-array term-terminal-parameter))
 
-   ;; \E[6n - Report cursor position
+   ;; \E[6n - Report cursor position (terminfo: u7)
    ((eq char ?n)
     (term-handle-deferred-scroll)
     (process-send-string proc
+                         ;; (terminfo: u6)
                          (format "\e[%s;%sR"
                                  (1+ (term-current-row))
                                  (1+ (term-horizontal-column)))))