diff options
| author | Karoly Lorentey | 2005-03-16 16:06:15 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-03-16 16:06:15 +0000 |
| commit | 14c0ac78c48e6bdf832e370ef15ecbef6573dd06 (patch) | |
| tree | ae0aa5371351ec1a2d0bdf7c55e60b8df4b0063c /lisp/term | |
| parent | 38d2de214077b4e600d9f9d20d7ec81e1f1c8908 (diff) | |
| parent | a7679889e8213289331577d1d9e6d1187a20d035 (diff) | |
| download | emacs-14c0ac78c48e6bdf832e370ef15ecbef6573dd06.tar.gz emacs-14c0ac78c48e6bdf832e370ef15ecbef6573dd06.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 37-38, 162-182)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-162
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-163
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-164
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-165
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-166
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-167
Tweak obsolete function/variable warning message
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-168
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-169
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-170
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-171
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-172
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-173
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-174
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-175
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-176
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-177
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-178
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-179
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-180
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-181
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-182
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-37
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-38
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-309
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index d43264f275e..69438c349a4 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el | |||
| @@ -1010,20 +1010,29 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") | |||
| 1010 | 1010 | ||
| 1011 | ;; Map certain keypad keys into ASCII characters | 1011 | ;; Map certain keypad keys into ASCII characters |
| 1012 | ;; that people usually expect. | 1012 | ;; that people usually expect. |
| 1013 | (define-key function-key-map [return] [?\C-m]) | ||
| 1014 | (define-key function-key-map [M-return] [?\M-\C-m]) | ||
| 1015 | (define-key function-key-map [tab] [?\t]) | ||
| 1016 | (define-key function-key-map [M-tab] [?\M-\t]) | ||
| 1017 | (define-key function-key-map [backspace] [?\d]) | 1013 | (define-key function-key-map [backspace] [?\d]) |
| 1018 | (define-key function-key-map [M-backspace] [?\M-\d]) | 1014 | (define-key function-key-map [delete] [?\d]) |
| 1015 | (define-key function-key-map [tab] [?\t]) | ||
| 1016 | (define-key function-key-map [linefeed] [?\n]) | ||
| 1017 | (define-key function-key-map [clear] [?\C-l]) | ||
| 1018 | (define-key function-key-map [return] [?\C-m]) | ||
| 1019 | (define-key function-key-map [escape] [?\e]) | 1019 | (define-key function-key-map [escape] [?\e]) |
| 1020 | (define-key function-key-map [M-backspace] [?\M-\d]) | ||
| 1021 | (define-key function-key-map [M-delete] [?\M-\d]) | ||
| 1022 | (define-key function-key-map [M-tab] [?\M-\t]) | ||
| 1023 | (define-key function-key-map [M-linefeed] [?\M-\n]) | ||
| 1024 | (define-key function-key-map [M-clear] [?\M-\C-l]) | ||
| 1025 | (define-key function-key-map [M-return] [?\M-\C-m]) | ||
| 1020 | (define-key function-key-map [M-escape] [?\M-\e]) | 1026 | (define-key function-key-map [M-escape] [?\M-\e]) |
| 1021 | 1027 | ||
| 1022 | ;; These tell read-char how to convert | 1028 | ;; These tell read-char how to convert |
| 1023 | ;; these special chars to ASCII. | 1029 | ;; these special chars to ASCII. |
| 1024 | (put 'return 'ascii-character ?\C-m) | ||
| 1025 | (put 'tab 'ascii-character ?\t) | ||
| 1026 | (put 'backspace 'ascii-character ?\d) | 1030 | (put 'backspace 'ascii-character ?\d) |
| 1031 | (put 'delete 'ascii-character ?\d) | ||
| 1032 | (put 'tab 'ascii-character ?\t) | ||
| 1033 | (put 'linefeed 'ascii-character ?\n) | ||
| 1034 | (put 'clear 'ascii-character ?\C-l) | ||
| 1035 | (put 'return 'ascii-character ?\C-m) | ||
| 1027 | (put 'escape 'ascii-character ?\e) | 1036 | (put 'escape 'ascii-character ?\e) |
| 1028 | 1037 | ||
| 1029 | 1038 | ||