2003-01-28 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>

        * 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].

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3164d55f1b3f60a2e27eb128b532a166d398cbe..e63e6a59c74cbd251ba5cf5a4576c3b7c633ea09 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-28  Benjamin Riefenstahl  <Benjamin.Riefenstahl@epost.de>
+
+       * term/mac-win.el: Add entries in function-key-map for
+       [tab], [backspace], [escape].
+
 2003-01-28  Kim F. Storm  <storm@cua.dk>
 
        * info.el (Info-extract-menu-node-name): Another fix for

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 22a2e7fab30032a31d02789b0c4583b726791239..246d1d665223ba4c9aead3b5ab8c235602b32b8b 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -252,6 +252,13 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-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)
 

diff --git a/src/ChangeLog b/src/ChangeLog
index 1b4c7807aedae99c89107640b859cdf562d72a47..2939f55089507fdcf55baedab8f1d7729b604564 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2003-01-28  Benjamin Riefenstahl  <Benjamin.Riefenstahl@epost.de>
+
+       * 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.
+
 2003-01-28  Andrew Choi  <akochoi@shaw.ca>
 
        * macfns.c (x_to_mac_color): Correct the order for parsing the RGB

diff --git a/src/macterm.c b/src/macterm.c
index e969a4b6dce5e05c0bfd3b17635317cf3eaf7e71..f31ae2d44d461223aee4b2e9824ce6aee9cf3f85 100644 (file)
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -12535,31 +12535,34 @@ main (void)
 /* Table for translating Mac keycode to X keysym values.  Contributed
    by Sudhir Shenoy.  */
 static unsigned char keycode_to_xkeysym_table[] = {
-/* 0x00 - 0x3f */
-  0, 0, 0, 0, 0, 0, 0, 0, 0, 0,        0, 0, 0, 0, 0, 0,
-  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-  0, 0, 0, 0, '\x0d', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/* 0x40 */
-  0, '\xae' /* kp. */, 0, '\xaa' /* kp* */, 
-  0, '\xab' /* kp+ */, 0, '\x7f' /* kp_clr */,
-  0, 0, 0, '\xaf' /* kp/ */,
-  '\x8d' /* kp_ent */, 0, '\xad' /* kp- */, 0,
-/* 0x50 */
-  0, '\xbd' /* kp= */, '\xb0' /* kp0 */, '\xb1' /* kp1 */,
-  '\xb2' /* kp2 */, '\xb3' /* kp3 */, '\xb4' /* kp4 */, '\xb5' /* kp5 */,
-  '\xb6' /* kp6 */, '\xb7' /* kp7 */, 0, '\xb8' /* kp8 */,
-  '\xb9' /* kp9 */, 0, 0, 0,
-/* 0x60 */
-  '\xc2' /* F5 */, '\xc3' /* F6 */, '\xc4' /* F7 */, '\xc0' /* F3 */,
-  '\xc5' /* F8 */, '\xc6' /* F9 */, 0, '\xc8' /* F11 */, 
-  0, '\xca' /* F13 */, 0, '\xcb' /* F14 */, 
-  0, '\xc7' /* F10 */, 0, '\xc9' /* F12 */,   
-/* 0x70 */
-  0, '\xcc' /* F15 */, '\x9e' /* ins */, '\x95' /* home */,
-  '\x9a' /* pgup */, '\x9f' /* del */, '\xc1' /* F4 */, '\x9c' /* end */,
-  '\xbf' /* F2 */, '\x9b' /* pgdown */, '\xbe' /* F1 */, '\x51' /* left */,
-  '\x53' /* right */, '\x54' /* down */, '\x52' /* up */, 0
+  /*0x00*/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  /*0x10*/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+  /*0x20*/ 0, 0, 0, 0, 0x0d /*return*/, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+
+  /*0x30*/ 0x09 /*tab*/, 0 /*0x0020 space*/, 0, 0x08 /*backspace*/,
+  /*0x34*/ 0, 0x1b /*escape*/, 0, 0,
+  /*0x38*/ 0, 0, 0, 0,
+  /*0x3C*/ 0, 0, 0, 0,
+
+  /*0x40*/ 0, 0xae /*kp-.*/, 0, 0xaa /*kp-**/, 
+  /*0x44*/ 0, 0xab /*kp-+*/, 0, 0x7f /*kp-clear*/,
+  /*0x48*/ 0, 0, 0, 0xaf /*kp-/*/,
+  /*0x4C*/ 0x8d /*kp-enter*/, 0, 0xad /*kp--*/, 0,
+
+  /*0x50*/ 0, 0xbd /*kp-=*/, 0xb0 /*kp-0*/, 0xb1 /*kp-1*/,
+  /*0x54*/ 0xb2 /*kp-2*/, 0xb3 /*kp-3*/, 0xb4 /*kp-4*/, 0xb5 /*kp-5*/,
+  /*0x58*/ 0xb6 /*kp-6*/, 0xb7 /*kp-7*/, 0, 0xb8 /*kp-8*/,
+  /*0x5C*/ 0xb9 /*kp-9*/, 0, 0, 0,
+
+  /*0x60*/ 0xc2 /*f5*/, 0xc3 /*f6*/, 0xc4 /*f7*/, 0xc0 /*f3*/,
+  /*0x64*/ 0xc5 /*f8*/, 0xc6 /*f9*/, 0, 0xc8 /*f11*/, 
+  /*0x68*/ 0, 0xca /*f13*/, 0, 0xcb /*f14*/, 
+  /*0x6C*/ 0, 0xc7 /*f10*/, 0, 0xc9 /*f12*/,
+
+  /*0x70*/ 0, 0xcc /*f15*/, 0x9e /*insert (or 0x6a==help)*/, 0x95 /*home*/,
+  /*0x74*/ 0x9a /*pgup*/, 0x9f /*delete*/, 0xc1 /*f4*/, 0x9c /*end*/,
+  /*0x78*/ 0xbf /*f2*/, 0x9b /*pgdown*/, 0xbe /*f1*/, 0x51 /*left*/,
+  /*0x7C*/ 0x53 /*right*/, 0x54 /*down*/, 0x52 /*up*/, 0
 };
 
 static int
@@ -12928,12 +12931,7 @@ XTread_socket (int sd, struct input_event *bufp, int numchars, int expected)
          
          ObscureCursor ();
          
-         if (keycode == 0x33)  /* delete key (charCode translated to 0x8) */
-           {
-             bufp->code = 0x7f;
-             bufp->kind = ASCII_KEYSTROKE_EVENT;
-           }
-         else if (keycode_to_xkeysym (keycode, &xkeysym))
+         if (keycode_to_xkeysym (keycode, &xkeysym))
            {
              bufp->code = 0xff00 | xkeysym;
              bufp->kind = NON_ASCII_KEYSTROKE_EVENT;