# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1249628642 0
# Node ID ffb29f8afea36c229e1f4062b008ad85109efd15
# Parent  a443b35b34e027ec6986da4cdc65cb50bcffa5be
* term.el (term-handle-ansi-escape): Add comments with the
terminfo capabilities implemented.

* e/eterm-color.ti (msgr, u6, u7): New capabilities.

diff -r a443b35b34e0 -r ffb29f8afea3 etc/ChangeLog
--- a/etc/ChangeLog	Fri Aug 07 05:46:34 2009 +0000
+++ b/etc/ChangeLog	Fri Aug 07 07:04:02 2009 +0000
@@ -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 -r a443b35b34e0 -r ffb29f8afea3 etc/e/eterm-color
Binary file etc/e/eterm-color has changed
diff -r a443b35b34e0 -r ffb29f8afea3 etc/e/eterm-color.ti
--- a/etc/e/eterm-color.ti	Fri Aug 07 05:46:34 2009 +0000
+++ b/etc/e/eterm-color.ti	Fri Aug 07 07:04:02 2009 +0000
@@ -15,6 +15,7 @@
 	pairs#64,
 	am,
 	mir,
+	msgr,
 	xenl,
 	bel=^G,
 	bold=\E[1m,
@@ -70,6 +71,8 @@
 	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 -r a443b35b34e0 -r ffb29f8afea3 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Aug 07 05:46:34 2009 +0000
+++ b/lisp/ChangeLog	Fri Aug 07 07:04:02 2009 +0000
@@ -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 -r a443b35b34e0 -r ffb29f8afea3 lisp/term.el
--- a/lisp/term.el	Fri Aug 07 05:46:34 2009 +0000
+++ b/lisp/term.el	Fri Aug 07 07:04:02 2009 +0000
@@ -3363,10 +3363,11 @@
       (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)))))