Mercurial > emacs

comparison lisp/term/internal.el @ 83716:a73440d2f146 merge-multi-tty-to-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge multi-tty branch Revision: emacs@sv.gnu.org/emacs--devo--0--patch-866
author Miles Bader <miles@gnu.org>
date Wed, 29 Aug 2007 05:28:10 +0000
parents 65663fcd2caa
children 107ccd98fa12 bdb3fe0ba9fa
comparison
equal deleted inserted replaced
82950:ed8435ec5652 83716:a73440d2f146
27 ;;; Code: 27 ;;; Code:
28 28
29 ;; --------------------------------------------------------------------------- 29 ;; ---------------------------------------------------------------------------
30 ;; keyboard setup -- that's simple! 30 ;; keyboard setup -- that's simple!
31 (set-input-mode nil nil 0) 31 (set-input-mode nil nil 0)
32 (define-key function-key-map [backspace] "\177") ; Normal behaviour for BS 32 (define-key local-function-key-map [backspace] "\177") ; Normal behaviour for BS
33 (define-key function-key-map [delete] "\C-d") ; ... and Delete 33 (define-key local-function-key-map [delete] "\C-d") ; ... and Delete
34 (define-key function-key-map [tab] [?\t]) 34 (define-key local-function-key-map [tab] [?\t])
35 (define-key function-key-map [linefeed] [?\n]) 35 (define-key local-function-key-map [linefeed] [?\n])
36 (define-key function-key-map [clear] [11]) 36 (define-key local-function-key-map [clear] [11])
37 (define-key function-key-map [return] [13]) 37 (define-key local-function-key-map [return] [13])
38 (define-key function-key-map [escape] [?\e]) 38 (define-key local-function-key-map [escape] [?\e])
39 (define-key function-key-map [M-backspace] [?\M-\d]) 39 (define-key local-function-key-map [M-backspace] [?\M-\d])
40 (define-key function-key-map [M-delete] [?\M-d]) 40 (define-key local-function-key-map [M-delete] [?\M-d])
41 (define-key function-key-map [M-tab] [?\M-\t]) 41 (define-key local-function-key-map [M-tab] [?\M-\t])
42 (define-key function-key-map [M-linefeed] [?\M-\n]) 42 (define-key local-function-key-map [M-linefeed] [?\M-\n])
43 (define-key function-key-map [M-clear] [?\M-\013]) 43 (define-key local-function-key-map [M-clear] [?\M-\013])
44 (define-key function-key-map [M-return] [?\M-\015]) 44 (define-key local-function-key-map [M-return] [?\M-\015])
45 (define-key function-key-map [M-escape] [?\M-\e]) 45 (define-key local-function-key-map [M-escape] [?\M-\e]))
46 (put 'backspace 'ascii-character 127) 46 (put 'backspace 'ascii-character 127)
47 (put 'delete 'ascii-character 127) 47 (put 'delete 'ascii-character 127)
48 (put 'tab 'ascii-character ?\t) 48 (put 'tab 'ascii-character ?\t)
49 (put 'linefeed 'ascii-character ?\n) 49 (put 'linefeed 'ascii-character ?\n)
50 (put 'clear 'ascii-character 12) 50 (put 'clear 'ascii-character 12)