comparison src/keyboard.c @ 34164:cfbe6873d494

(record_char): Record `help-echo' input events in recent_keys only if they display some help. Don't record `help-echo' events as macro char.

34163:faa3e4d4deea

static void
record_char (c)
     Lisp_Object c;
{
  total_keys++;
  XVECTOR (recent_keys)->contents[recent_keys_index] = c;
  if (++recent_keys_index >= NUM_RECENT_KEYS)
    recent_keys_index = 0;

  /* Write c to the dribble file.  If c is a lispy event, write
     the event's symbol to the dribble file, in <brackets>.  Bleaugh.
     If you, dear reader, have a better idea, you've got the source.  :-) */
  if (dribble)

	}

      fflush (dribble);
    }

  store_kbd_macro_char (c);

  num_nonmacro_input_events++;
}

Lisp_Object

34164:cfbe6873d494

static void
record_char (c)
     Lisp_Object c;
{
  Lisp_Object help;

  /* Don't record `help-echo' in recent_keys unless it shows some help
     message.  */
  if (!CONSP (c)
      || !EQ (XCAR (c), Qhelp_echo)
      || (help = Fnth (make_number (2), c),
	  !NILP (help)))
    {
      total_keys++;
      ASET (recent_keys, recent_keys_index, c);
      if (++recent_keys_index >= NUM_RECENT_KEYS)
	recent_keys_index = 0;
    }

  /* Write c to the dribble file.  If c is a lispy event, write
     the event's symbol to the dribble file, in <brackets>.  Bleaugh.
     If you, dear reader, have a better idea, you've got the source.  :-) */
  if (dribble)

	}

      fflush (dribble);
    }

  if (!CONSP (c) || !EQ (Qhelp_echo, XCAR (c)))
    store_kbd_macro_char (c);

  num_nonmacro_input_events++;
}

Lisp_Object