mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

* e/eterm.ti: Add a comment.

Browse Source 
* 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.
This commit is contained in:
Dan Nicolaescu 2005-04-25 18:11:33 +00:00
parent 70ca7cb36e
commit c9b630f7f2
5 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
etc/ChangeLog
View File

@ -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.

BIN
etc/e/eterm
View File

Binary file not shown.

2
etc/e/eterm.ti
View File

@ -1,4 +1,4 @@
eterm,
eterm|Emacs term.el terminal emulator term-protocol-version 0.96,
colors#8,
cols#80,
lines#24,

6
lisp/ChangeLog
View File

@ -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.

10
lisp/term.el
View File

@ -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)