* Comments: Add and clarify some points, correct spellings.

* Whitespace: Remove tabs, re-indent, re-wrap comments.
* keyArray: Reorder keys in logical groups.
* vituralkeyArray: Rename virtualkeyArray.
* Prototypes, function headers: Use ISO-C consistently.

1 files changed, 306 insertions, 268 deletions

diff --git a/macosx/tkMacOSXKeyboard.c b/macosx/tkMacOSXKeyboard.c
index e1e6cda..6fd5f91 100644
--- a/macosx/tkMacOSXKeyboard.c
+++ b/macosx/tkMacOSXKeyboard.c
@@ -1,7 +1,7 @@
 /* 
  * tkMacOSXKeyboard.c --
  *
- *	Routines to support keyboard events on the Macintosh.
+ *      Routines to support keyboard events on the Macintosh.
  *
  * Copyright (c) 1995-1997 Sun Microsystems, Inc.
  * Copyright 2001, Apple Computer, Inc.
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMacOSXKeyboard.c,v 1.6 2003/11/20 12:40:15 cc_benny Exp $
+ * RCS: @(#) $Id: tkMacOSXKeyboard.c,v 1.7 2003/12/15 15:08:37 cc_benny Exp $
  */
 
 #include "tkInt.h"
@@ -18,11 +18,11 @@
 #include <Carbon/Carbon.h>
 #include "tkMacOSXInt.h"
 #include "tkMacOSXEvent.h"      /* TkMacOSXKeycodeToUnicode() FIXME: That
-                                 * function should probably move here */
+                                 * function should probably move here. */
 
 typedef struct {
-    int keycode;		/* Macintosh keycode */
-    KeySym keysym;		/* X windows Keysym */
+    int keycode;                /* Macintosh keycode. */
+    KeySym keysym;              /* X windows keysym. */
 } KeyInfo;
 
 /*
@@ -30,61 +30,68 @@ typedef struct {
  *
  * 0x34, XK_Return - Powerbooks use this and some keymaps define it.
  *
+ * 0x4C, XK_Return - XFree86 and Apple's X11 call this one XK_KP_Enter.
+ *
  * 0x47, XK_Clear - This key is NumLock when used on PCs, but Mac
- * applications don't use it like that.
+ * applications don't use it like that, nor does Apple's X11.
  *
  * All other keycodes are taken from the published ADB keyboard layouts.
  */
 
 static KeyInfo keyArray[] = {
-    {0x4C,	XK_Return},
-    {0x24,	XK_Return},
-    {0x34,  XK_Return},
-    {0x33,	XK_BackSpace},
-    {0x75,	XK_Delete},
-    {0x30,	XK_Tab},
-    {0x74,	XK_Page_Up},
-    {0x79,	XK_Page_Down},
-    {0x73,	XK_Home},
-    {0x77,	XK_End},
-    {0x7B,	XK_Left},
-    {0x7C,	XK_Right},
-    {0x7E,	XK_Up},
-    {0x7D,	XK_Down},
-    {0x72,	XK_Help},
-    {0x35,	XK_Escape},
-    {0x47,	XK_Clear},
-    {0,		0}
+    {0x24,      XK_Return},
+    {0x30,      XK_Tab},
+    {0x33,      XK_BackSpace},
+    {0x34,      XK_Return},
+    {0x35,      XK_Escape},
+
+    {0x47,      XK_Clear},
+    {0x4C,      XK_Return},
+
+    {0x72,      XK_Help},
+    {0x73,      XK_Home},
+    {0x74,      XK_Page_Up},
+    {0x75,      XK_Delete},
+    {0x77,      XK_End},
+    {0x79,      XK_Page_Down},
+
+    {0x7B,      XK_Left},
+    {0x7C,      XK_Right},
+    {0x7D,      XK_Down},
+    {0x7E,      XK_Up},
+
+    {0,         0}
 };
 
-static KeyInfo vituralkeyArray[] = {
-    {122,	XK_F1},
-    {120,	XK_F2},
-    {99,	XK_F3},
-    {118,	XK_F4},
-    {96,	XK_F5},
-    {97,	XK_F6},
-    {98,	XK_F7},
-    {100,	XK_F8},
-    {101,	XK_F9},
-    {109,	XK_F10},
-    {103,	XK_F11},
-    {111,	XK_F12},
-    {105,	XK_F13},
-    {107,	XK_F14},
-    {113,	XK_F15},
-    {0,		0}
+static KeyInfo virtualkeyArray[] = {
+    {122,       XK_F1},
+    {120,       XK_F2},
+    {99,        XK_F3},
+    {118,       XK_F4},
+    {96,        XK_F5},
+    {97,        XK_F6},
+    {98,        XK_F7},
+    {100,       XK_F8},
+    {101,       XK_F9},
+    {109,       XK_F10},
+    {103,       XK_F11},
+    {111,       XK_F12},
+    {105,       XK_F13},
+    {107,       XK_F14},
+    {113,       XK_F15},
+    {0,         0}
 };
 
 static int initialized = 0;
-static Tcl_HashTable keycodeTable;	/* keyArray hashed by keycode value. */
-static Tcl_HashTable vkeyTable;		/* vituralkeyArray hashed by virtual
-					   keycode value. */
+static Tcl_HashTable keycodeTable;      /* keyArray hashed by keycode value. */
+static Tcl_HashTable vkeyTable;         /* virtualkeyArray hashed by virtual
+                                         * keycode value. */
 
 /*
  * Prototypes for static functions used in this file.
  */
-static void	InitKeyMaps _ANSI_ARGS_((void));
+
+static void     InitKeyMaps (void);
 
 
 /*
@@ -92,13 +99,17 @@ static void	InitKeyMaps _ANSI_ARGS_((void));
  *
  * InitKeyMaps --
  *
- *	Creates hash tables used by some of the functions in this file.
+ *      Creates hash tables used by some of the functions in this file.
+ *
+ *      FIXME: As keycodes are defined to be in the limited range 0-127, it
+ *      would be easier and more efficient to use directly initialized plain
+ *      arrays and drop this function.
  *
  * Results:
- *	None.
+ *      None.
  *
  * Side effects:
- *	Allocates memory & creates some hash tables.
+ *      Allocates memory & creates some hash tables.
  *
  *----------------------------------------------------------------------
  */
@@ -109,18 +120,18 @@ InitKeyMaps()
     Tcl_HashEntry *hPtr;
     KeyInfo *kPtr;
     int dummy;
-		
+                
     Tcl_InitHashTable(&keycodeTable, TCL_ONE_WORD_KEYS);
     for (kPtr = keyArray; kPtr->keycode != 0; kPtr++) {
-	hPtr = Tcl_CreateHashEntry(&keycodeTable, (char *) kPtr->keycode,
-		&dummy);
-	Tcl_SetHashValue(hPtr, kPtr->keysym);
+        hPtr = Tcl_CreateHashEntry(&keycodeTable, (char *) kPtr->keycode,
+                &dummy);
+        Tcl_SetHashValue(hPtr, kPtr->keysym);
     }
     Tcl_InitHashTable(&vkeyTable, TCL_ONE_WORD_KEYS);
-    for (kPtr = vituralkeyArray; kPtr->keycode != 0; kPtr++) {
-	hPtr = Tcl_CreateHashEntry(&vkeyTable, (char *) kPtr->keycode,
-		&dummy);
-	Tcl_SetHashValue(hPtr, kPtr->keysym);
+    for (kPtr = virtualkeyArray; kPtr->keycode != 0; kPtr++) {
+        hPtr = Tcl_CreateHashEntry(&vkeyTable, (char *) kPtr->keycode,
+                &dummy);
+        Tcl_SetHashValue(hPtr, kPtr->keysym);
     }
     initialized = 1;
 }
@@ -130,14 +141,14 @@ InitKeyMaps()
  *
  * XKeycodeToKeysym --
  *
- *	Translate from a system-dependent keycode to a
- *	system-independent keysym.
+ *      Translate from a system-dependent keycode to a system-independent
+ *      keysym.
  *
  * Results:
- *	Returns the translated keysym, or NoSymbol on failure.
+ *      Returns the translated keysym, or NoSymbol on failure.
  *
  * Side effects:
- *	None.
+ *      None.
  *
  *----------------------------------------------------------------------
  */
@@ -146,7 +157,7 @@ KeySym
 XKeycodeToKeysym(
     Display* display,
     KeyCode keycode,
-    int	index)
+    int index)
 {
     register Tcl_HashEntry *hPtr;
     int c;
@@ -155,59 +166,65 @@ XKeycodeToKeysym(
     UniChar newChar;
 
     if (!initialized) {
-	InitKeyMaps();
+        InitKeyMaps();
     }
+
     if (keycode == 0) {
+
         /* 
-         * This means we had a pure modifier keypress or
-         * something similar which is a TO DO.
+         * This means we had a pure modifier keypress or something similar
+         * which is a TO DO.
          */
+
         return NoSymbol;
     }
     
     virtualKey = keycode >> 16;
-    c = (keycode) & 0xffff;
+    c = keycode & 0XFFFF;
     if (c > 255) {
         return NoSymbol;
     }
 
     /*
-     * When determining what keysym to produce we first check to see if
-     * the key is a function key.  We then check to see if the character
-     * is another non-printing key.  Finally, we return the key syms
-     * for all ASCII chars.
+     * When determining what keysym to produce we first check to see if the
+     * key is a function key.  We then check to see if the character is
+     * another non-printing key.  Finally, we return the key syms for all
+     * ASCII and Latin-1 chars.
      */
+
     if (c == 0x10) {
-	hPtr = Tcl_FindHashEntry(&vkeyTable, (char *) virtualKey);
-	if (hPtr != NULL) {
+        hPtr = Tcl_FindHashEntry(&vkeyTable, (char *) virtualKey);
+        if (hPtr != NULL) {
             return (KeySym) Tcl_GetHashValue(hPtr);
-	}
+        }
     }
     hPtr = Tcl_FindHashEntry(&keycodeTable, (char *) virtualKey);
     if (hPtr != NULL) {
- 	return (KeySym) Tcl_GetHashValue(hPtr);
+        return (KeySym) Tcl_GetHashValue(hPtr);
     }
 
     /* 
-     * Recompute the character based on the Shift key only.
-     * TODO: The index may also specify the NUM_LOCK.
+     * Recompute the character based on the Shift key only.  TODO: The index
+     * may also specify the NUM_LOCK.
      */
+
     newKeycode = virtualKey;
     if (index & 0x01) {
-	newKeycode += 0x0200;
+        newKeycode += 0x0200;
     }
 
     newChar = 0;
     TkMacOSXKeycodeToUnicode(
-            &newChar, 1, kEventRawKeyDown,
-            newKeycode & 0x00FF, newKeycode & 0xFF00, NULL);
+        &newChar, 1, kEventRawKeyDown,
+        newKeycode & 0x00FF, newKeycode & 0xFF00, NULL);
 
     /*
      * X11 keysyms are identical to Unicode for ASCII and Latin-1.  Give up
      * for other characters for now.
      */
-    if (newChar >= XK_space && newChar <= 0x255) {
-  	return newChar;
+
+    if ((newChar >= XK_space) && (newChar <= 0x255)) {
+        return newChar;
     }
 
     return NoSymbol; 
@@ -218,24 +235,24 @@ XKeycodeToKeysym(
  *
  * TkpGetString --
  *
- *	Retrieve the string equivalent for the given keyboard event.
+ *      Retrieve the string equivalent for the given keyboard event.
  *
  * Results:
- *	Returns the UTF string.
+ *      Returns the UTF string.
  *
  * Side effects:
- *	None.
+ *      None.
  *
  *----------------------------------------------------------------------
  */
 
 char *
 TkpGetString(
-    TkWindow *winPtr,		/* Window where event occurred:  needed to
-				 * get input context. */
-    XEvent *eventPtr,		/* X keyboard event. */
-    Tcl_DString *dsPtr)		/* Uninitialized or empty string to hold
-				 * result. */
+    TkWindow *winPtr,           /* Window where event occurred: Needed to get
+                                 * input context. */
+    XEvent *eventPtr,           /* X keyboard event. */
+    Tcl_DString *dsPtr)         /* Uninitialized or empty string to hold
+                                 * result. */
 {
     (void) winPtr; /*unused*/
     Tcl_DStringInit(dsPtr);
@@ -247,13 +264,13 @@ TkpGetString(
  *
  * XGetModifierMapping --
  *
- *	Fetch the current keycodes used as modifiers.
+ *      Fetch the current keycodes used as modifiers.
  *
  * Results:
- *	Returns a new modifier map.
+ *      Returns a new modifier map.
  *
  * Side effects:
- *	Allocates a new modifier map data structure.
+ *      Allocates a new modifier map data structure.
  *
  *----------------------------------------------------------------------
  */
@@ -264,6 +281,11 @@ XGetModifierMapping(
 { 
     XModifierKeymap * modmap;
 
+    /*
+     * MacOSX doesn't use the key codes for the modifiers for anything, and
+     * we don't generate them either.  So there is no modifier map.
+     */
+
     modmap = (XModifierKeymap *) ckalloc(sizeof(XModifierKeymap));
     modmap->max_keypermod = 0;
     modmap->modifiermap = NULL;
@@ -275,14 +297,13 @@ XGetModifierMapping(
  *
  * XFreeModifiermap --
  *
- *	Deallocate a modifier map that was created by
- *	XGetModifierMapping.
+ *      Deallocate a modifier map that was created by XGetModifierMapping.
  *
  * Results:
- *	None.
+ *      None.
  *
  * Side effects:
- *	Frees the datastructure referenced by modmap.
+ *      Frees the datastructure referenced by modmap.
  *
  *----------------------------------------------------------------------
  */
@@ -292,7 +313,7 @@ XFreeModifiermap(
     XModifierKeymap *modmap)
 {
     if (modmap->modifiermap != NULL) {
-	ckfree((char *) modmap->modifiermap);
+        ckfree((char *) modmap->modifiermap);
     }
     ckfree((char *) modmap);
 }
@@ -302,16 +323,16 @@ XFreeModifiermap(
  *
  * XKeysymToString, XStringToKeysym --
  *
- *	These X window functions map Keysyms to strings & strings to 
- * 	keysyms.  However, Tk already does this for the most common keysyms.  
- *  	Therefor, these functions only need to support keysyms that will be 
- *  	specific to the Macintosh.  Currently, there are none.
+ *      These X window functions map keysyms to strings & strings to keysyms.
+ *      However, Tk already does this for the most common keysyms.
+ *      Therefore, these functions only need to support keysyms that will be
+ *      specific to the Macintosh.  Currently, there are none.
  *
  * Results:
- *	None.
+ *      None.
  *
  * Side effects:
- *	None.
+ *      None.
  *
  *----------------------------------------------------------------------
  */
@@ -325,7 +346,7 @@ XKeysymToString(
 
 KeySym 
 XStringToKeysym(
-    const char*	string)
+    const char* string)
 { 
     return NoSymbol;
 }
@@ -335,17 +356,16 @@ XStringToKeysym(
  *
  * XKeysymToKeycode --
  *
- *	The function XKeysymToKeycode is only used by tkTest.c and
- *	currently only implementes the support for keys used in the
- *	Tk test suite.
- *      FIXME - This is no longer true.  This function is now used in
- *      "event generate" so we really should make it work.
+ *      The function XKeysymToKeycode takes an X11 keysym and converts it
+ *      into a Mac keycode.  It is in the stubs table for compatibility but
+ *      not used anywhere in the core.
  *
  * Results:
- *	None.
+ *      A 32 bit keycode with the the mac keycode but without modifiers in
+ *      the higher 16 bits and the keysym in the lower 16 bits.
  *
  * Side effects:
- *	None.
+ *      None.
  *
  *----------------------------------------------------------------------
  */
@@ -375,25 +395,38 @@ XKeysymToKeycode(
             virtualKeyCode = 0x24;
             keysym = '\r';
         }
-	keycode = keysym + (virtualKeyCode <<16);
+        keycode = keysym + (virtualKeyCode <<16);
     }
 
     return keycode;
 }
 
 /*
- * When mapping from a keysym to a keycode, need
- * information about the modifier state that should be used
- * so that when they call XKeycodeToKeysym taking into
- * account the xkey.state, they will get back the original
- * keysym.
+ *----------------------------------------------------------------------
+ *
+ * TkpSetKeycodeAndState --
+ *
+ *      The function TkpSetKeycodeAndState takes a keysym and fills in the
+ *      appropriate members of an XEvent.  It is similar to XKeysymToKeycode,
+ *      but it also sets the modifier mask in the XEvent.  It is used by
+ *      [event generate] and it is in the stubs table.
+ *
+ * Results:
+ *      Fills an XEvent, sets the member xkey.keycode with a keycode
+ *      formatted the same as XKeysymToKeycode and the member xkey.state with
+ *      the modifiers implied by the keysym.
+ *
+ * Side effects:
+ *      None.
+ *
+ *----------------------------------------------------------------------
  */
 
 void
-TkpSetKeycodeAndState(tkwin, keySym, eventPtr)
-    Tk_Window tkwin;
-    KeySym keySym;
-    XEvent *eventPtr;
+TkpSetKeycodeAndState(
+    Tk_Window tkwin,
+    KeySym keysym,
+    XEvent *eventPtr)
 {
     Display *display;
     int state;
@@ -401,26 +434,26 @@ TkpSetKeycodeAndState(tkwin, keySym, eventPtr)
     
     display = Tk_Display(tkwin);
     
-    if (keySym == NoSymbol) {
-	keycode = 0;
+    if (keysym == NoSymbol) {
+        keycode = 0;
     } else {
-	keycode = XKeysymToKeycode(display, keySym);
+        keycode = XKeysymToKeycode(display, keysym);
     }
     if (keycode != 0) {
-	for (state = 0; state < 4; state++) {
-	    if (XKeycodeToKeysym(display, keycode, state) == keySym) {
-		if (state & 1) {
-		    eventPtr->xkey.state |= ShiftMask;
-		}
-		if (state & 2) {
-		    TkDisplay *dispPtr;
-
-		    dispPtr = ((TkWindow *) tkwin)->dispPtr; 
-		    eventPtr->xkey.state |= dispPtr->modeModMask;
-		}
-		break;
-	    }
-	}
+        for (state = 0; state < 4; state++) {
+            if (XKeycodeToKeysym(display, keycode, state) == keysym) {
+                if (state & 1) {
+                    eventPtr->xkey.state |= ShiftMask;
+                }
+                if (state & 2) {
+                    TkDisplay *dispPtr;
+
+                    dispPtr = ((TkWindow *) tkwin)->dispPtr; 
+                    eventPtr->xkey.state |= dispPtr->modeModMask;
+                }
+                break;
+            }
+        }
     }
     eventPtr->xkey.keycode = keycode;
 }
@@ -430,105 +463,110 @@ TkpSetKeycodeAndState(tkwin, keySym, eventPtr)
  *
  * TkpGetKeySym --
  *
- *	Given an X KeyPress or KeyRelease event, map the
- *	keycode in the event into a KeySym.
+ *      Given an X KeyPress or KeyRelease event, map the keycode in the event
+ *      into a keysym.
  *
  * Results:
- *	The return value is the KeySym corresponding to
- *	eventPtr, or NoSymbol if no matching Keysym could be
- *	found.
+ *      The return value is the keysym corresponding to eventPtr, or NoSymbol
+ *      if no matching keysym could be found.
  *
  * Side effects:
- *	In the first call for a given display, keycode-to-
- *	KeySym maps get loaded.
+ *      In the first call for a given display, keycode-to-keysym maps get
+ *      loaded.
  *
  *----------------------------------------------------------------------
  */
 
 KeySym
-TkpGetKeySym(dispPtr, eventPtr)
-    TkDisplay *dispPtr;	/* Display in which to
-					 * map keycode. */
-    XEvent *eventPtr;		/* Description of X event. */
+TkpGetKeySym(
+    TkDisplay *dispPtr,         /* Display in which to map keycode. */
+    XEvent *eventPtr)           /* Description of X event. */
 {
     KeySym sym;
     int index;
 
     /*
-     * Refresh the mapping information if it's stale
+     * Refresh the mapping information if it's stale.
      */
 
     if (dispPtr->bindInfoStale) {
-	TkpInitKeymapInfo(dispPtr);
+        TkpInitKeymapInfo(dispPtr);
     }
 
     /*
-     * Figure out which of the four slots in the keymap vector to
-     * use for this key.  Refer to Xlib documentation for more info
-     * on how this computation works.
+     * Figure out which of the four slots in the keymap vector to use for
+     * this key.  Refer to Xlib documentation for more info on how this
+     * computation works.
      */
 
     index = 0;
     if (eventPtr->xkey.state & dispPtr->modeModMask) {
-	index = 2;
+        index = 2;
     }
     if ((eventPtr->xkey.state & ShiftMask)
-	    || ((dispPtr->lockUsage != LU_IGNORE)
-	    && (eventPtr->xkey.state & LockMask))) {
-	index += 1;
+            || ((dispPtr->lockUsage != LU_IGNORE)
+                    && (eventPtr->xkey.state & LockMask))) {
+        index += 1;
     }
     if (eventPtr->xany.send_event == -1) {
-	/* We use -1 as a special signal for a pure modifier */
-	int modifier = eventPtr->xkey.keycode;
-	if (modifier == cmdKey) {
-	    return XK_Alt_L;
-	} else if (modifier == shiftKey) {
-	    return XK_Shift_L;
-	} else if (modifier == alphaLock) {
-	    return XK_Caps_Lock;
-	} else if (modifier == optionKey) {
-	    return XK_Meta_L;
-	} else if (modifier == controlKey) {
-	    return XK_Control_L;
-	} else if (modifier == rightShiftKey) {
-	    return XK_Shift_R;
-	} else if (modifier == rightOptionKey) {
-	    return XK_Meta_R;
-	} else if (modifier == rightControlKey) {
-	    return XK_Control_R;
-	} else {
-	    /* If we get here, we probably need to implement something new */
-	    return NoSymbol;
-	} 
+
+        /*
+         * We use -1 as a special signal for a pure modifier.
+         */
+
+        int modifier = eventPtr->xkey.keycode;
+        if (modifier == cmdKey) {
+            return XK_Alt_L;
+        } else if (modifier == shiftKey) {
+            return XK_Shift_L;
+        } else if (modifier == alphaLock) {
+            return XK_Caps_Lock;
+        } else if (modifier == optionKey) {
+            return XK_Meta_L;
+        } else if (modifier == controlKey) {
+            return XK_Control_L;
+        } else if (modifier == rightShiftKey) {
+            return XK_Shift_R;
+        } else if (modifier == rightOptionKey) {
+            return XK_Meta_R;
+        } else if (modifier == rightControlKey) {
+            return XK_Control_R;
+        } else {
+
+            /*
+             * If we get here, we probably need to implement something new.
+             */
+
+            return NoSymbol;
+        } 
     }
     sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode, index);
 
     /*
-     * Special handling:  if the key was shifted because of Lock, but
-     * lock is only caps lock, not shift lock, and the shifted keysym
-     * isn't upper-case alphabetic, then switch back to the unshifted
-     * keysym.
+     * Special handling: If the key was shifted because of Lock, but lock is
+     * only caps lock, not shift lock, and the shifted keysym isn't
+     * upper-case alphabetic, then switch back to the unshifted keysym.
      */
 
     if ((index & 1) && !(eventPtr->xkey.state & ShiftMask)
-	    && (dispPtr->lockUsage == LU_CAPS)) {
-	if (!(((sym >= XK_A) && (sym <= XK_Z))
-		|| ((sym >= XK_Agrave) && (sym <= XK_Odiaeresis))
-		|| ((sym >= XK_Ooblique) && (sym <= XK_Thorn)))) {
-	    index &= ~1;
-	    sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode,
-		    index);
-	}
+            && (dispPtr->lockUsage == LU_CAPS)) {
+        if (!(((sym >= XK_A) && (sym <= XK_Z))
+                    || ((sym >= XK_Agrave) && (sym <= XK_Odiaeresis))
+                    || ((sym >= XK_Ooblique) && (sym <= XK_Thorn)))) {
+            index &= ~1;
+            sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode,
+                    index);
+        }
     }
 
     /*
-     * Another bit of special handling:  if this is a shifted key and there
-     * is no keysym defined, then use the keysym for the unshifted key.
+     * Another bit of special handling: If this is a shifted key and there is
+     * no keysym defined, then use the keysym for the unshifted key.
      */
 
     if ((index & 1) && (sym == NoSymbol)) {
-	sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode,
-		index & ~1);
+        sym = XKeycodeToKeysym(dispPtr->display, eventPtr->xkey.keycode,
+                index & ~1);
     }
     return sym;
 }
@@ -538,24 +576,23 @@ TkpGetKeySym(dispPtr, eventPtr)
  *
  * TkpInitKeymapInfo --
  *
- *	This procedure is invoked to scan keymap information
- *	to recompute stuff that's important for binding, such
- *	as the modifier key (if any) that corresponds to "mode
- *	switch".
+ *      This procedure is invoked to scan keymap information to recompute
+ *      stuff that's important for binding, such as the modifier key (if any)
+ *      that corresponds to the "Mode_switch" keysym.
  *
  * Results:
- *	None.
+ *      None.
  *
  * Side effects:
- *	Keymap-related information in dispPtr is updated.
+ *      Keymap-related information in dispPtr is updated.
  *
  *--------------------------------------------------------------
  */
 
 void
-TkpInitKeymapInfo(dispPtr)
-    TkDisplay *dispPtr;		/* Display for which to recompute keymap
-				 * information. */
+TkpInitKeymapInfo(
+    TkDisplay *dispPtr)         /* Display for which to recompute keymap
+                                 * information. */
 {
     XModifierKeymap *modMapPtr;
     KeyCode *codePtr;
@@ -567,32 +604,32 @@ TkpInitKeymapInfo(dispPtr)
     modMapPtr = XGetModifierMapping(dispPtr->display);
 
     /*
-     * Check the keycodes associated with the Lock modifier.  If
-     * any of them is associated with the XK_Shift_Lock modifier,
-     * then Lock has to be interpreted as Shift Lock, not Caps Lock.
+     * Check the keycodes associated with the Lock modifier.  If any of them
+     * is associated with the XK_Shift_Lock modifier, then Lock has to be
+     * interpreted as Shift Lock, not Caps Lock.
      */
 
     dispPtr->lockUsage = LU_IGNORE;
     codePtr = modMapPtr->modifiermap + modMapPtr->max_keypermod*LockMapIndex;
     for (count = modMapPtr->max_keypermod; count > 0; count--, codePtr++) {
-	if (*codePtr == 0) {
-	    continue;
-	}
-	keysym = XKeycodeToKeysym(dispPtr->display, *codePtr, 0);
-	if (keysym == XK_Shift_Lock) {
-	    dispPtr->lockUsage = LU_SHIFT;
-	    break;
-	}
-	if (keysym == XK_Caps_Lock) {
-	    dispPtr->lockUsage = LU_CAPS;
-	    break;
-	}
+        if (*codePtr == 0) {
+            continue;
+        }
+        keysym = XKeycodeToKeysym(dispPtr->display, *codePtr, 0);
+        if (keysym == XK_Shift_Lock) {
+            dispPtr->lockUsage = LU_SHIFT;
+            break;
+        }
+        if (keysym == XK_Caps_Lock) {
+            dispPtr->lockUsage = LU_CAPS;
+            break;
+        }
     }
 
     /*
-     * Look through the keycodes associated with modifiers to see if
-     * the the "mode switch", "meta", or "alt" keysyms are associated
-     * with any modifiers.  If so, remember their modifier mask bits.
+     * Look through the keycodes associated with modifiers to see if the the
+     * "mode switch", "meta", or "alt" keysyms are associated with any
+     * modifiers.  If so, remember their modifier mask bits.
      */
 
     dispPtr->modeModMask = 0;
@@ -601,19 +638,19 @@ TkpInitKeymapInfo(dispPtr)
     codePtr = modMapPtr->modifiermap;
     max = 8*modMapPtr->max_keypermod;
     for (i = 0; i < max; i++, codePtr++) {
-	if (*codePtr == 0) {
-	    continue;
-	}
-	keysym = XKeycodeToKeysym(dispPtr->display, *codePtr, 0);
-	if (keysym == XK_Mode_switch) {
-	    dispPtr->modeModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
-	}
-	if ((keysym == XK_Meta_L) || (keysym == XK_Meta_R)) {
-	    dispPtr->metaModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
-	}
-	if ((keysym == XK_Alt_L) || (keysym == XK_Alt_R)) {
-	    dispPtr->altModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
-	}
+        if (*codePtr == 0) {
+            continue;
+        }
+        keysym = XKeycodeToKeysym(dispPtr->display, *codePtr, 0);
+        if (keysym == XK_Mode_switch) {
+            dispPtr->modeModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
+        }
+        if ((keysym == XK_Meta_L) || (keysym == XK_Meta_R)) {
+            dispPtr->metaModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
+        }
+        if ((keysym == XK_Alt_L) || (keysym == XK_Alt_R)) {
+            dispPtr->altModMask |= ShiftMask << (i/modMapPtr->max_keypermod);
+        }
     }
 
     /*
@@ -621,44 +658,45 @@ TkpInitKeymapInfo(dispPtr)
      */
 
     if (dispPtr->modKeyCodes != NULL) {
-	ckfree((char *) dispPtr->modKeyCodes);
+        ckfree((char *) dispPtr->modKeyCodes);
     }
     dispPtr->numModKeyCodes = 0;
     arraySize = KEYCODE_ARRAY_SIZE;
     dispPtr->modKeyCodes = (KeyCode *) ckalloc((unsigned)
-	    (KEYCODE_ARRAY_SIZE * sizeof(KeyCode)));
+            (KEYCODE_ARRAY_SIZE * sizeof(KeyCode)));
     for (i = 0, codePtr = modMapPtr->modifiermap; i < max; i++, codePtr++) {
-	if (*codePtr == 0) {
-	    continue;
-	}
-
-	/*
-	 * Make sure that the keycode isn't already in the array.
-	 */
-
-	for (j = 0; j < dispPtr->numModKeyCodes; j++) {
-	    if (dispPtr->modKeyCodes[j] == *codePtr) {
-		goto nextModCode;
-	    }
-	}
-	if (dispPtr->numModKeyCodes >= arraySize) {
-	    KeyCode *new;
-
-	    /*
-	     * Ran out of space in the array;  grow it.
-	     */
-
-	    arraySize *= 2;
-	    new = (KeyCode *) ckalloc((unsigned)
-		    (arraySize * sizeof(KeyCode)));
-	    memcpy((VOID *) new, (VOID *) dispPtr->modKeyCodes,
-		    (dispPtr->numModKeyCodes * sizeof(KeyCode)));
-	    ckfree((char *) dispPtr->modKeyCodes);
-	    dispPtr->modKeyCodes = new;
-	}
-	dispPtr->modKeyCodes[dispPtr->numModKeyCodes] = *codePtr;
-	dispPtr->numModKeyCodes++;
-	nextModCode: continue;
+        if (*codePtr == 0) {
+            continue;
+        }
+
+        /*
+         * Make sure that the keycode isn't already in the array.
+         */
+
+        for (j = 0; j < dispPtr->numModKeyCodes; j++) {
+            if (dispPtr->modKeyCodes[j] == *codePtr) {
+                goto nextModCode;
+            }
+        }
+        if (dispPtr->numModKeyCodes >= arraySize) {
+            KeyCode *new;
+
+            /*
+             * Ran out of space in the array; grow it.
+             */
+
+            arraySize *= 2;
+            new = (KeyCode *) ckalloc((unsigned)
+                    (arraySize * sizeof(KeyCode)));
+            memcpy((VOID *) new, (VOID *) dispPtr->modKeyCodes,
+                    (dispPtr->numModKeyCodes * sizeof(KeyCode)));
+            ckfree((char *) dispPtr->modKeyCodes);
+            dispPtr->modKeyCodes = new;
+        }
+        dispPtr->modKeyCodes[dispPtr->numModKeyCodes] = *codePtr;
+        dispPtr->numModKeyCodes++;
+    nextModCode:
+        continue;
     }
     XFreeModifiermap(modMapPtr);
 }