/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.659.2.5 by fx, Thu Sep 5 16:59:35 2002 UTC revision 1.659.2.6 by fx, Mon Oct 28 22:50:00 2002 UTC
# Line 4258  static int lispy_accent_codes[] = Line 4258  static int lispy_accent_codes[] =
4258  #else  #else
4259    0,    0,
4260  #endif  #endif
4261    #ifdef XK_dead_abovering
4262      XK_dead_abovering,
4263    #else
4264      0,
4265    #endif
4266    #ifdef XK_dead_iota
4267      XK_dead_iota,
4268    #else
4269      0,
4270    #endif
4271    #ifdef XK_dead_belowdot
4272      XK_dead_belowdot,
4273    #else
4274      0,
4275    #endif
4276    #ifdef XK_dead_voiced_sound
4277      XK_dead_voiced_sound,
4278    #else
4279      0,
4280    #endif
4281    #ifdef XK_dead_semivoiced_sound
4282      XK_dead_semivoiced_sound,
4283    #else
4284      0,
4285    #endif
4286    #ifdef XK_dead_hook
4287      XK_dead_hook,
4288    #else
4289      0,
4290    #endif
4291    #ifdef XK_dead_horn
4292      XK_dead_horn,
4293    #else
4294      0,
4295    #endif
4296  };  };
4297    
4298  /* This is a list of Lisp names for special "accent" characters.  /* This is a list of Lisp names for special "accent" characters.
# Line 4278  static char *lispy_accent_keys[] = Line 4313  static char *lispy_accent_keys[] =
4313    "dead-caron",    "dead-caron",
4314    "dead-doubleacute",    "dead-doubleacute",
4315    "dead-abovedot",    "dead-abovedot",
4316      "dead-abovering",
4317      "dead-iota",
4318      "dead-belowdot",
4319      "dead-voiced-sound",
4320      "dead-semivoiced-sound",
4321      "dead-hook",
4322      "dead-horn",
4323  };  };
4324    
4325  #ifdef HAVE_NTGUI  #ifdef HAVE_NTGUI
# Line 4444  char *lispy_function_keys[] = Line 4486  char *lispy_function_keys[] =
4486    
4487  #else /* not HAVE_NTGUI */  #else /* not HAVE_NTGUI */
4488    
4489    /* This should be dealt with in XTread_socket now, and that doesn't
4490       depend on the client system having the Kana syms defined.  See also
4491       the XK_kana_A case below.  */
4492    #if 0
4493  #ifdef XK_kana_A  #ifdef XK_kana_A
4494  static char *lispy_kana_keys[] =  static char *lispy_kana_keys[] =
4495    {    {
# Line 4478  static char *lispy_kana_keys[] = Line 4524  static char *lispy_kana_keys[] =
4524      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,    /* 0x4f0 .. 0x4ff */      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,    /* 0x4f0 .. 0x4ff */
4525    };    };
4526  #endif /* XK_kana_A */  #endif /* XK_kana_A */
4527    #endif /* 0 */
4528    
4529  #define FUNCTION_KEY_OFFSET 0xff00  #define FUNCTION_KEY_OFFSET 0xff00
4530    
# Line 4747  make_lispy_event (event) Line 4794  make_lispy_event (event)
4794                                        (unsigned)-1);                                        (unsigned)-1);
4795          }          }
4796    
4797    #if 0
4798  #ifdef XK_kana_A  #ifdef XK_kana_A
4799        if (event->code >= 0x400 && event->code < 0x500)        if (event->code >= 0x400 && event->code < 0x500)
4800          return modify_event_symbol (event->code - 0x400,          return modify_event_symbol (event->code - 0x400,
# Line 4756  make_lispy_event (event) Line 4804  make_lispy_event (event)
4804                                      (sizeof (lispy_kana_keys)                                      (sizeof (lispy_kana_keys)
4805                                       / sizeof (lispy_kana_keys[0])));                                       / sizeof (lispy_kana_keys[0])));
4806  #endif /* XK_kana_A */  #endif /* XK_kana_A */
4807    #endif /* 0 */
4808    
4809  #ifdef ISO_FUNCTION_KEY_OFFSET  #ifdef ISO_FUNCTION_KEY_OFFSET
4810        if (event->code < FUNCTION_KEY_OFFSET        if (event->code < FUNCTION_KEY_OFFSET
# Line 4774  make_lispy_event (event) Line 4823  make_lispy_event (event)
4823            || (event->code - FUNCTION_KEY_OFFSET            || (event->code - FUNCTION_KEY_OFFSET
4824                >= sizeof lispy_function_keys / sizeof *lispy_function_keys))                >= sizeof lispy_function_keys / sizeof *lispy_function_keys))
4825          {          {
4826            /* EVENT->code is an unknown keysym, for example someone            /* EVENT->code is an unknown keysym.  */
              assigned `ccaron' to a key in a locale where  
              XmbLookupString doesn't return a translation for it.  */  
4827            char *name;            char *name;
4828            Lisp_Object symbol;            Lisp_Object symbol;
4829                        

Legend:
Removed from v.1.659.2.5  
changed lines
  Added in v.1.659.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26