Mercurial > emacs

comparison lisp/term.el @ 89483:2f877ed80fa6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 12:53:41 +0000
parents 375f2633d815 ef8a864d950c
children 68c22ea6027c
comparison
equal deleted inserted replaced
88123:375f2633d815 89483:2f877ed80fa6
893 (i 0)) 893 (i 0))
894 (while (< i 128) 894 (while (< i 128)
895 (define-key map (make-string 1 i) 'term-send-raw) 895 (define-key map (make-string 1 i) 'term-send-raw)
896 (define-key esc-map (make-string 1 i) 'term-send-raw-meta) 896 (define-key esc-map (make-string 1 i) 'term-send-raw-meta)
897 (setq i (1+ i))) 897 (setq i (1+ i)))
898 (dolist (elm (generic-character-list))
899 (define-key map (vector elm) 'term-send-raw))
900 (define-key map "\e" esc-map) 898 (define-key map "\e" esc-map)
901 (setq term-raw-map map) 899 (setq term-raw-map map)
902 (setq term-raw-escape-map 900 (setq term-raw-escape-map
903 (copy-keymap (lookup-key (current-global-map) "\C-x"))) 901 (copy-keymap (lookup-key (current-global-map) "\C-x")))
904 902