Mercurial > emacs
comparison lisp/term/mac-win.el @ 83326:8eafadd7838b
Use terminal-local-value to access function-key-map in terminal packages.
* lisp/term/AT386.el: Wrap function-key-map accesses in (set-)terminal-local-value.
* lisp/term/internal.el: Ditto.
* lisp/term/iris-ansi.el: Ditto.
* lisp/term/lk201.el: Ditto.
* lisp/term/mac-win.el: Ditto.
* lisp/term/news.el: Ditto.
* lisp/term/rxvt.el: Ditto.
* lisp/term/sun.el: Ditto.
* lisp/term/tvi970.el: Ditto.
* lisp/term/wyse50.el: Ditto.
* lisp/term/x-win.el: Ditto.
* lisp/term/xterm.el: Ditto.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-366
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Mon, 27 Jun 2005 03:19:27 +0000 |
parents | 8f5787c83345 |
children | 6c13700d1c13 |
comparison
equal
deleted
inserted
replaced
83325:9e41c80c6389 | 83326:8eafadd7838b |
---|---|
1057 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame | 1057 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
1058 global-map) | 1058 global-map) |
1059 | 1059 |
1060 ;; Map certain keypad keys into ASCII characters | 1060 ;; Map certain keypad keys into ASCII characters |
1061 ;; that people usually expect. | 1061 ;; that people usually expect. |
1062 (define-key function-key-map [backspace] [?\d]) | 1062 (let ((m (terminal-local-value 'function-key-map nil))) |
1063 (define-key function-key-map [delete] [?\d]) | 1063 (define-key m [backspace] [?\d]) |
1064 (define-key function-key-map [tab] [?\t]) | 1064 (define-key m [delete] [?\d]) |
1065 (define-key function-key-map [linefeed] [?\n]) | 1065 (define-key m [tab] [?\t]) |
1066 (define-key function-key-map [clear] [?\C-l]) | 1066 (define-key m [linefeed] [?\n]) |
1067 (define-key function-key-map [return] [?\C-m]) | 1067 (define-key m [clear] [?\C-l]) |
1068 (define-key function-key-map [escape] [?\e]) | 1068 (define-key m [return] [?\C-m]) |
1069 (define-key function-key-map [M-backspace] [?\M-\d]) | 1069 (define-key m [escape] [?\e]) |
1070 (define-key function-key-map [M-delete] [?\M-\d]) | 1070 (define-key m [M-backspace] [?\M-\d]) |
1071 (define-key function-key-map [M-tab] [?\M-\t]) | 1071 (define-key m [M-delete] [?\M-\d]) |
1072 (define-key function-key-map [M-linefeed] [?\M-\n]) | 1072 (define-key m [M-tab] [?\M-\t]) |
1073 (define-key function-key-map [M-clear] [?\M-\C-l]) | 1073 (define-key m [M-linefeed] [?\M-\n]) |
1074 (define-key function-key-map [M-return] [?\M-\C-m]) | 1074 (define-key m [M-clear] [?\M-\C-l]) |
1075 (define-key function-key-map [M-escape] [?\M-\e]) | 1075 (define-key m [M-return] [?\M-\C-m]) |
1076 (define-key m [M-escape] [?\M-\e])) | |
1076 | 1077 |
1077 ;; These tell read-char how to convert | 1078 ;; These tell read-char how to convert |
1078 ;; these special chars to ASCII. | 1079 ;; these special chars to ASCII. |
1079 (put 'backspace 'ascii-character ?\d) | 1080 (put 'backspace 'ascii-character ?\d) |
1080 (put 'delete 'ascii-character ?\d) | 1081 (put 'delete 'ascii-character ?\d) |