252 |
;; Map certain keypad keys into ASCII characters that people usually expect |
;; Map certain keypad keys into ASCII characters that people usually expect |
253 |
(define-key function-key-map [return] [?\C-m]) |
(define-key function-key-map [return] [?\C-m]) |
254 |
(define-key function-key-map [M-return] [?\M-\C-m]) |
(define-key function-key-map [M-return] [?\M-\C-m]) |
255 |
|
(define-key function-key-map [tab] [?\t]) |
256 |
|
(define-key function-key-map [M-tab] [?\M-\t]) |
257 |
|
(define-key function-key-map [backspace] [127]) |
258 |
|
(define-key function-key-map [M-backspace] [?\M-\d]) |
259 |
|
(define-key function-key-map [escape] [?\e]) |
260 |
|
(define-key function-key-map [M-escape] [?\M-\e]) |
261 |
|
|
262 |
;; Tell read-char how to convert special chars to ASCII |
;; Tell read-char how to convert special chars to ASCII |
263 |
(put 'return 'ascii-character 13) |
(put 'return 'ascii-character 13) |
264 |
|
|