Mercurial > emacs
comparison lisp/term.el @ 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 | d4014c213e7e |
| children | a7e02ef1e3d6 08185296b491 |
comparison
equal
deleted
inserted
replaced
| 61829:bfa373ffccf6 | 61830:7167a1afa2aa |
|---|---|
| 709 (defcustom term-default-bg-color 'unspecified | 709 (defcustom term-default-bg-color 'unspecified |
| 710 "Default color for background in `term'." | 710 "Default color for background in `term'." |
| 711 :group 'term | 711 :group 'term |
| 712 :type 'string) | 712 :type 'string) |
| 713 | 713 |
| 714 ;;; Use the same colors that xterm uses, see `xterm-standard-colors'. | |
| 714 (defvar ansi-term-color-vector | 715 (defvar ansi-term-color-vector |
| 715 [unspecified "black" "red" "green" "yellow" "blue" | 716 [unspecified "black" "red3" "green3" "yellow3" "blue2" |
| 716 "magenta" "cyan" "white"]) | 717 "magenta3" "cyan3" "white"]) |
| 717 | 718 |
| 718 ;;; Inspiration came from comint.el -mm | 719 ;;; Inspiration came from comint.el -mm |
| 719 (defvar term-buffer-maximum-size 2048 | 720 (defvar term-buffer-maximum-size 2048 |
| 720 "*The maximum size in lines for term buffers. | 721 "*The maximum size in lines for term buffers. |
| 721 Term buffers are truncated from the top to be no greater than this number. | 722 Term buffers are truncated from the top to be no greater than this number. |
| 884 (let* ((map (make-keymap)) | 885 (let* ((map (make-keymap)) |
| 885 (esc-map (make-keymap)) | 886 (esc-map (make-keymap)) |
| 886 (i 0)) | 887 (i 0)) |
| 887 (while (< i 128) | 888 (while (< i 128) |
| 888 (define-key map (make-string 1 i) 'term-send-raw) | 889 (define-key map (make-string 1 i) 'term-send-raw) |
| 889 (define-key esc-map (make-string 1 i) 'term-send-raw-meta) | 890 ;; Avoid O and [. They are used in escape sequences for various keys. |
| 891 (unless (or (eq i ?O) (eq i 91)) | |
| 892 (define-key esc-map (make-string 1 i) 'term-send-raw-meta)) | |
| 890 (setq i (1+ i))) | 893 (setq i (1+ i))) |
| 891 (dolist (elm (generic-character-list)) | 894 (dolist (elm (generic-character-list)) |
| 892 (define-key map (vector elm) 'term-send-raw)) | 895 (define-key map (vector elm) 'term-send-raw)) |
| 893 (define-key map "\e" esc-map) | 896 (define-key map "\e" esc-map) |
| 894 (setq term-raw-map map) | 897 (setq term-raw-map map) |
| 907 (define-key term-raw-map [up] 'term-send-up) | 910 (define-key term-raw-map [up] 'term-send-up) |
| 908 (define-key term-raw-map [down] 'term-send-down) | 911 (define-key term-raw-map [down] 'term-send-down) |
| 909 (define-key term-raw-map [right] 'term-send-right) | 912 (define-key term-raw-map [right] 'term-send-right) |
| 910 (define-key term-raw-map [left] 'term-send-left) | 913 (define-key term-raw-map [left] 'term-send-left) |
| 911 (define-key term-raw-map [delete] 'term-send-del) | 914 (define-key term-raw-map [delete] 'term-send-del) |
| 915 (define-key term-raw-map [deletechar] 'term-send-del) | |
| 912 (define-key term-raw-map [backspace] 'term-send-backspace) | 916 (define-key term-raw-map [backspace] 'term-send-backspace) |
| 913 (define-key term-raw-map [home] 'term-send-home) | 917 (define-key term-raw-map [home] 'term-send-home) |
| 914 (define-key term-raw-map [end] 'term-send-end) | 918 (define-key term-raw-map [end] 'term-send-end) |
| 915 (define-key term-raw-map [S-prior] 'scroll-down) | 919 (define-key term-raw-map [S-prior] 'scroll-down) |
| 916 (define-key term-raw-map [S-next] 'scroll-up) | 920 (define-key term-raw-map [S-next] 'scroll-up) |