comparison lisp/term/mac-win.el @ 49504:0ffb4e489776

2003-01-28 Benjamin Riefenstahl <[e-mail]> * macterm.c (keycode_to_xkeysym_table): Add <tab>, <backspace>, <escape>. (keycode_to_xkeysym_table): Reformat and add more comments. (XTread_socket): Drop special case for backspace. * term/mac-win.el: Add entries in function-key-map for [tab], [backspace], [escape].

49503:443e3f602fc2

;; (prefer-coding-system 'mac-roman)

;; Map certain keypad keys into ASCII characters that people usually expect
(define-key function-key-map [return] [?\C-m])
(define-key function-key-map [M-return] [?\M-\C-m])
;; Tell read-char how to convert special chars to ASCII
(put 'return 'ascii-character 13)

;;
;; Available colors

49504:0ffb4e489776

;; (prefer-coding-system 'mac-roman)

;; Map certain keypad keys into ASCII characters that people usually expect
(define-key function-key-map [return] [?\C-m])
(define-key function-key-map [M-return] [?\M-\C-m])
(define-key function-key-map [tab] [?\t])
(define-key function-key-map [M-tab] [?\M-\t])
(define-key function-key-map [backspace] [127])
(define-key function-key-map [M-backspace] [?\M-\d])
(define-key function-key-map [escape] [?\e])
(define-key function-key-map [M-escape] [?\M-\e])

;; Tell read-char how to convert special chars to ASCII
(put 'return 'ascii-character 13)

;;
;; Available colors