* e/eterm.ti: Add a comment.

* e/eterm: Regenerate.

* term.el (ansi-term-color-vector): Use the xterm colors.
(term-raw-map): Don't add mappings for \eO and \e[. Map
deletechar.

diff --git a/etc/ChangeLog b/etc/ChangeLog
index 47e867e4248606e0c3545e7a148d0d1e5145e453..b7a470f9618c7540914e792e20be17d24a6b2664 100644 (file)
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-25  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * e/eterm.ti: Add a comment.
+       * e/eterm: Regenerate.
+
 2005-04-25  Alex Ott  <ott@jet.msk.su>
 
        * TUTORIAL.ru: Update.

diff --git a/etc/e/eterm b/etc/e/eterm
index 0fcb95170ee59464b7c3fad64bc82cf5ff415192..09d184fd762080c3a995f36459a781a29d1a86ab 100644 (file)
Binary files a/etc/e/eterm and b/etc/e/eterm differ

diff --git a/etc/e/eterm.ti b/etc/e/eterm.ti
index 2b600df0a12e6d743d4ad3f78a4bfa1a2b2becc7..8f88f0e6f884ebfbcc30df355e8f4403f2d89001 100644 (file)
--- a/etc/e/eterm.ti
+++ b/etc/e/eterm.ti
@@ -1,4 +1,4 @@
-eterm,
+eterm|Emacs term.el terminal emulator term-protocol-version 0.96,
        colors#8,
        cols#80,
        lines#24,

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34240ae912417614b85e12d74c90c4898d3ef716..490d410e8583efa0d6967cf2e45f6a5dcf31ea6d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-04-25  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * term.el (ansi-term-color-vector): Use the xterm colors.
+       (term-raw-map): Don't add mappings for \eO and \e[. Map
+       deletechar.
+
 2005-04-25  Lute Kamstra  <lute@gnu.org>
 
        * font-core.el (font-lock-defaults): Fix docstring.

diff --git a/lisp/term.el b/lisp/term.el
index b1ce432144ec8085009e8feea314ee7e2dd27b28..473fafd558a2ebdee61581913b39de8cc2820ba8 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -711,9 +711,10 @@ Buffer local variable.")
   :group 'term
   :type 'string)
 
+;;; Use the same colors that xterm uses, see `xterm-standard-colors'.
 (defvar ansi-term-color-vector
-  [unspecified "black" "red" "green" "yellow" "blue"
-   "magenta" "cyan" "white"])
+  [unspecified "black" "red3" "green3" "yellow3" "blue2"
+   "magenta3" "cyan3" "white"])
 
 ;;; Inspiration came from comint.el -mm
 (defvar term-buffer-maximum-size 2048
@@ -886,7 +887,9 @@ is buffer-local.")
        (i 0))
   (while (< i 128)
     (define-key map (make-string 1 i) 'term-send-raw)
-    (define-key esc-map (make-string 1 i) 'term-send-raw-meta)
+    ;; Avoid O and [. They are used in escape sequences for various keys.
+    (unless (or (eq i ?O) (eq i 91)) 
+               (define-key esc-map (make-string 1 i) 'term-send-raw-meta))
     (setq i (1+ i)))
   (dolist (elm (generic-character-list))
     (define-key map (vector elm) 'term-send-raw))
@@ -909,6 +912,7 @@ is buffer-local.")
     (define-key term-raw-map [right] 'term-send-right)
     (define-key term-raw-map [left] 'term-send-left)
     (define-key term-raw-map [delete] 'term-send-del)
+    (define-key term-raw-map [deletechar] 'term-send-del)
     (define-key term-raw-map [backspace] 'term-send-backspace)
     (define-key term-raw-map [home] 'term-send-home)
     (define-key term-raw-map [end] 'term-send-end)