comparison src/keymap.c @ 90389:146cd8369025

Revision: [e-mail]/emacs--unicode--0--patch-60 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 259-273) - Update from CVS - lisp/replace.el (occur-engine): Bind `inhibit-field-text-motion' to t - Merge from gnus--rel--5.10 - Rename "field-at-point" to "field-at-pos" - (comint-insert-input): Remove redundant calls to setq and goto-char * gnus--rel--5.10 (patch 99-100) - Merge from emacs--devo--0 - Update from CVS

90388:a786f674d33f

     register unsigned int c;
     register char *p;
     int force_multibyte;
{
  unsigned c2;

  /* Clear all the meaningless bits above the meta bit.  */
  c &= meta_modifier | ~ - meta_modifier;
  c2 = c & ~(alt_modifier | ctrl_modifier | hyper_modifier
	     | meta_modifier | shift_modifier | super_modifier);

  if (c & alt_modifier)
    {
      *p++ = 'A';
      *p++ = '-';

	  if (!NILP (shadow))
	    {
	      tem = shadow_lookup (shadow, kludge, Qt);
	      if (!NILP (tem))
		{
		  if (mention_shadow)
		    this_shadowed = 1;
		  else
		    continue;
		}
	    }

90389:146cd8369025

     register unsigned int c;
     register char *p;
     int force_multibyte;
{
  unsigned c2;
  int valid_p;

  /* Clear all the meaningless bits above the meta bit.  */
  c &= meta_modifier | ~ - meta_modifier;
  c2 = c & ~(alt_modifier | ctrl_modifier | hyper_modifier
	     | meta_modifier | shift_modifier | super_modifier);

  valid_p = SINGLE_BYTE_CHAR_P (c2) || char_valid_p (c2, 0);
  if (! valid_p)
    {
      /* KEY_DESCRIPTION_SIZE is large enough for this.  */
      p += sprintf (p, "[%d]", c);
      return p;
    }

  if (c & alt_modifier)
    {
      *p++ = 'A';
      *p++ = '-';

	  if (!NILP (shadow))
	    {
	      tem = shadow_lookup (shadow, kludge, Qt);
	      if (!NILP (tem))
		{
		  /* Avoid generating duplicate entries if the
		     shadowed binding has the same definition. */
		  if (mention_shadow && !EQ (tem, definition))
		    this_shadowed = 1;
		  else
		    continue;
		}
	    }