From 3bca7ca557f99e07c117874a2802e2d2434571a4 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 7 Aug 2009 07:04:02 +0000 Subject: [PATCH] * term.el (term-handle-ansi-escape): Add comments with the terminfo capabilities implemented. * e/eterm-color.ti (msgr, u6, u7): New capabilities. --- etc/ChangeLog | 4 ++++ etc/e/eterm-color | Bin 1163 -> 1179 bytes etc/e/eterm-color.ti | 3 +++ lisp/ChangeLog | 5 +++++ lisp/term.el | 3 ++- 5 files changed, 14 insertions(+), 1 deletion(-) 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 + + * e/eterm-color.ti (msgr, u6, u7): New capabilities. + 2009-08-02 Michael Albinus * NEWS: Autorevert Tail mode works now for remote files. diff --git a/etc/e/eterm-color b/etc/e/eterm-color index 5a208473e3e869e5ca870d3d606801fe1c9e5525..bd3f5003ae620db49b89a2c1387b0ba1c836f4f1 100644 GIT binary patch delta 77 zcmeC?oXyEC#puq!&%n=+$>=$eJB*z%fZ_jt35Lmxj3OIr{Ft}|8D$v%|NsAAk#X`x h#wunlMyt(%%p#1us+p=O)~YE%4ARkNd6Sb^Gy&|Q6fFP% delta 59 zcmbQu+0Dr<#puq!$H32!$!Ix|JB*znfZ_jt35Lmxj3OIr{Fo*SFmf;nGETn8Sj8;G PsI@teS%h(NDT^8adtnVA 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 + + * term.el (term-handle-ansi-escape): Add comments with the + terminfo capabilities implemented. + 2009-08-06 Dmitry Dzhus * 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)))))