diff options
Diffstat (limited to 'lisp/term/mac-win.el')
| -rw-r--r-- | lisp/term/mac-win.el | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index f7782433fdc..7912bb1a4d6 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1060,21 +1060,20 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") ;; Map certain keypad keys into ASCII characters ;; that people usually expect. -(let ((m (terminal-local-value 'local-function-key-map nil))) - (define-key m [backspace] [?\d]) - (define-key m [delete] [?\d]) - (define-key m [tab] [?\t]) - (define-key m [linefeed] [?\n]) - (define-key m [clear] [?\C-l]) - (define-key m [return] [?\C-m]) - (define-key m [escape] [?\e]) - (define-key m [M-backspace] [?\M-\d]) - (define-key m [M-delete] [?\M-\d]) - (define-key m [M-tab] [?\M-\t]) - (define-key m [M-linefeed] [?\M-\n]) - (define-key m [M-clear] [?\M-\C-l]) - (define-key m [M-return] [?\M-\C-m]) - (define-key m [M-escape] [?\M-\e])) +(define-key local-function-key-map [backspace] [?\d]) +(define-key local-function-key-map [delete] [?\d]) +(define-key local-function-key-map [tab] [?\t]) +(define-key local-function-key-map [linefeed] [?\n]) +(define-key local-function-key-map [clear] [?\C-l]) +(define-key local-function-key-map [return] [?\C-m]) +(define-key local-function-key-map [escape] [?\e]) +(define-key local-function-key-map [M-backspace] [?\M-\d]) +(define-key local-function-key-map [M-delete] [?\M-\d]) +(define-key local-function-key-map [M-tab] [?\M-\t]) +(define-key local-function-key-map [M-linefeed] [?\M-\n]) +(define-key local-function-key-map [M-clear] [?\M-\C-l]) +(define-key local-function-key-map [M-return] [?\M-\C-m]) +(define-key local-function-key-map [M-escape] [?\M-\e]) ;; These tell read-char how to convert ;; these special chars to ASCII. |