[Emacs-diffs] Changes to emacs/lisp/term.el

[Dan Nicolaescu]

Index: emacs/lisp/term.el
diff -c emacs/lisp/term.el:1.66 emacs/lisp/term.el:1.67
*** emacs/lisp/term.el:1.66     Mon Apr 11 20:47:24 2005
--- emacs/lisp/term.el  Mon Apr 25 18:11:33 2005
***************
*** 711,719 ****
    :group 'term
    :type 'string)
  
  (defvar ansi-term-color-vector
!   [unspecified "black" "red" "green" "yellow" "blue"
!    "magenta" "cyan" "white"])
  
  ;;; Inspiration came from comint.el -mm
  (defvar term-buffer-maximum-size 2048
--- 711,720 ----
    :group 'term
    :type 'string)
  
+ ;;; Use the same colors that xterm uses, see `xterm-standard-colors'.
  (defvar ansi-term-color-vector
!   [unspecified "black" "red3" "green3" "yellow3" "blue2"
!    "magenta3" "cyan3" "white"])
  
  ;;; Inspiration came from comint.el -mm
  (defvar term-buffer-maximum-size 2048
***************
*** 886,892 ****
         (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)
      (setq i (1+ i)))
    (dolist (elm (generic-character-list))
      (define-key map (vector elm) 'term-send-raw))
--- 887,895 ----
         (i 0))
    (while (< i 128)
      (define-key map (make-string 1 i) 'term-send-raw)
!     ;; 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,914 ****
--- 912,918 ----
      (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)