Mercurial > emacs
changeset 61830:7167a1afa2aa
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 25 Apr 2005 18:11:33 +0000 |
| parents | bfa373ffccf6 |
| children | 82f10a9c9eb3 |
| files | etc/ChangeLog etc/e/eterm etc/e/eterm.ti lisp/ChangeLog lisp/term.el |
| diffstat | 5 files changed, 19 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/ChangeLog Mon Apr 25 11:42:25 2005 +0000 +++ b/etc/ChangeLog Mon Apr 25 18:11:33 2005 +0000 @@ -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.
--- a/etc/e/eterm.ti Mon Apr 25 11:42:25 2005 +0000 +++ b/etc/e/eterm.ti Mon Apr 25 18:11:33 2005 +0000 @@ -1,4 +1,4 @@ -eterm, +eterm|Emacs term.el terminal emulator term-protocol-version 0.96, colors#8, cols#80, lines#24,
--- a/lisp/ChangeLog Mon Apr 25 11:42:25 2005 +0000 +++ b/lisp/ChangeLog Mon Apr 25 18:11:33 2005 +0000 @@ -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.
--- a/lisp/term.el Mon Apr 25 11:42:25 2005 +0000 +++ b/lisp/term.el Mon Apr 25 18:11:33 2005 +0000 @@ -711,9 +711,10 @@ :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 @@ (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 @@ (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)