Mercurial > emacs

comparison lisp/term/internal.el @ 91041:bdb3fe0ba9fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 866-879) - Merge multi-tty branch - Update from CVS - Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
author Miles Bader <miles@gnu.org>
date Thu, 11 Oct 2007 16:22:07 +0000
parents f55f9811f5d7 65663fcd2caa
children 606f2d163a64
comparison
equal deleted inserted replaced
91040:14c4a6aac623 91041:bdb3fe0ba9fa
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)