diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2005-04-25 18:11:33 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2005-04-25 18:11:33 +0000 |
| commit | c9b630f7f218cfb2231504c8fe63004d7aad0bf8 (patch) | |
| tree | 80361d6c2dce63688884231a7d43fcf6909a80b3 /lisp/term.el | |
| parent | 70ca7cb36ef86a64f3a2fc9efcb008e02767e63b (diff) | |
| download | emacs-c9b630f7f218cfb2231504c8fe63004d7aad0bf8.tar.gz | |
* 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.
Diffstat (limited to 'lisp/term.el')
| -rw-r--r-- | lisp/term.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/term.el b/lisp/term.el index b1ce432144e..473fafd558a 100644 --- 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) |