Mercurial > emacs

comparison lisp/term/mac-win.el @ 83326:8eafadd7838b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)