raveling@venera.isi.edu (Paul Raveling) (06/23/89)
HP/ISI input remapping files: Part 1 of 8 These are differences relative to the original src/x11fns.c in GNU emacs version 18.54. Changes are to add function x-rebind-keysym, which allows changing the keysym-to-string binding for X11 keyboard input. ------------------------------ Cut Here -------------------------------- 24a25,26 > /* Modified by Paul Raveling @ ISI to add keysym rebinding */ > 110a113,256 > extern char *keysymtostring (); /* In x11term.c */ > extern KeySym stringtokeysym (); /* In x11term.c */ > > /* Alternative modifier lists; */ > > static KeySym noshifts[2] = {0, 0}; > static KeySym shiftshifts[2] = {XK_Shift_L, XK_Shift_R}; > static KeySym ctlshifts[2] = {XK_Control_L, XK_Control_R}; > static KeySym metashifts[2] = {XK_Meta_L, XK_Meta_R}; > > > > > /*------------------ x-rebind-keysym -------------------*/ > > DEFUN ("x-rebind-keysym", Fx_rebind_keysym, Sx_rebind_keysym, 3, 3, > "sKey to rebind (KeySym, without \"XK_\"): \n\ > sShift key ([nil], None, Shift, Ctl, Meta): \n\ > sNew string bound to key: ", > "Rebind KEYSYM, with SHIFT-KEY, to NEWSTRING.\n\ > KEYSYM is the key's name as given in /usr/include/X11/keysymdef.h,\n\ > but without the \"XK_\" prefix.\n\ > SHIFT-KEY is nil, \"NONE\", \"SHIFT\", \"CTL\", or \"META\";\n\ > nil selects all combinations of shift keys.\n\ > NEWSTRING is an arbitrary string of keystrokes.\n\ > \n") > > (keysym, shift_key, newstring) > register Lisp_Object keysym; > register Lisp_Object shift_key; > register Lisp_Object newstring; > { > char *keysymstring, *shiftstring, *mapstring; > int keysymslen, shiftslen, mapslen; > KeySym target_key; > KeySym *modlist; > int num_mods; > > int i; > char *cp; > > > > CHECK_STRING (keysym, 1); > if (!NULL (shift_key)) > CHECK_STRING (shift_key,2); > CHECK_STRING (newstring, 3); > > #define setstring(src,dst,len) { \ > len = XSTRING (src) -> size; \ > dst = (char *) xmalloc (len+1); \ > bcopy (XSTRING (src) -> data, dst, len); \ > dst[len] = 0; } > > setstring (keysym, keysymstring, keysymslen) > if ( !NULL (shift_key) ) > setstring (shift_key,shiftstring, shiftslen) > else > shiftslen = 0; > setstring (newstring, mapstring, mapslen) > > > > /*------------------------------*/ > /* Identify key to remap */ > /*------------------------------*/ > > target_key = stringtokeysym ( keysymstring ); > > if ( target_key == 0 ) > { > error ("Keysym \"%s\" is not defined", keysymstring); > return Qnil; > } > > > > /*----------------------------------------------*/ > /* Identify modifier list(s) to use */ > /*----------------------------------------------*/ > > if ( shiftslen != 0 ) > { > cp = shiftstring; > i = shiftslen; > while ( i-- > 0 ) /* Fold string to upper case */ > { > if ((*cp >= 'a') && (*cp <= 'z')) > *cp -= 'a' - 'A'; > ++ cp; > } > } > > if ( shiftslen == 0 ) > num_mods = -1; > else if ( strcmp (shiftstring, "NONE") == 0 ) > { > modlist = noshifts; > num_mods = 0; > } > else if ( strcmp (shiftstring, "SHIFT") == 0 ) > { > modlist = shiftshifts; > num_mods = 2; > } > else if ( strcmp (shiftstring, "CTL") == 0 ) > { > modlist = ctlshifts; > num_mods = 2; > } > else if ( strcmp (shiftstring, "META") == 0 ) > { > modlist = metashifts; > num_mods = 2; > } > else > { > error ( "Shift key \"%s\" not recognized", shiftstring ); > return Qnil; > } > > > /*----------------------*/ > /* Map the key */ > /*----------------------*/ > > if ( num_mods != -1 ) > XRebindKeysym ( XXdisplay, target_key, modlist, num_mods, > mapstring, mapslen ); > else > { > XRebindKeysym ( XXdisplay, target_key, noshifts, 0, > mapstring, mapslen ); > XRebindKeysym ( XXdisplay, target_key, shiftshifts, 2, > mapstring, mapslen ); > XRebindKeysym ( XXdisplay, target_key, ctlshifts, 2, > mapstring, mapslen ); > XRebindKeysym ( XXdisplay, target_key, metashifts, 2, > mapstring, mapslen ); > } > > return Qt; > } > 847a994 > defsubr (&Sx_rebind_keysym);