From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 7 Aug 2009 07:04:02 +0000 (+0000)
Subject: * term.el (term-handle-ansi-escape): Add comments with the
X-Git-Tag: emacs-pretest-23.1.90~1941
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bca7ca557f99e07c117874a2802e2d2434571a4;p=emacs.git

* term.el (term-handle-ansi-escape): Add comments with the
terminfo capabilities implemented.

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

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
Binary files a/etc/e/eterm-color and b/etc/e/eterm-color differ
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)))))