RE: Error during ask-user-about-lock

[Marshall, Simon]

> > Can you find out what Lisp object the event is?
> > That should make the cause clear.
> 
> It's probably a `switch-frame' event.

It took a while to get a gcc build built.  I put a breakpoint on:

  if (ascii_required && !(NUMBERP (seconds) && NILP (val)))
    {
      /* Convert certain symbols to their ASCII equivalents.  */
-->   if (SYMBOLP (val))
        {
          Lisp_Object tem, tem1;
          tem = Fget (val, Qevent_symbol_element_mask);
          if (!NILP (tem))
            {
              tem1 = Fget (Fcar (tem), Qascii_character);
              /* Merge this symbol's modifier bits
                 with the ASCII equivalent of its basic code.  */
              if (!NILP (tem1))
                XSETFASTINT (val, XINT (tem1) | XINT (Fcar (Fcdr (tem))));
            }
        }

      /* If we don't have a character now, deal with it appropriately.  */
      if (!INTEGERP (val))
        {
          if (error_nonascii)
            {
              Vunread_command_events = Fcons (val, Qnil);
              error ("Non-character input-event");
            }
          else
            goto retry;
        }
    }

Got myself ready and hit "?" when ask-user-about-lock prompted:

Breakpoint 7, read_filtered_event (no_switch_frame=1, ascii_required=1, 
    error_nonascii=1, input_method=0, seconds=4687873) at lread.c:517
517           if (SYMBOLP (val))
(gdb) p val
$3 = 504
(gdb) pr
63

This appears to be the "?" I entered (ascii 63), so I step and then
continue:

532           if (!INTEGERP (val))
544       if (! NILP (delayed_switch_frame))
556       return val;
557     }
Fread_char (prompt=4687873, inherit_input_method=4687873, seconds=4687873)
    at lread.c:583
583     }
Ffuncall (nargs=1, args=0xffbed358) at eval.c:2990
2990              goto done;
Continuing.

It hits the break point again:

Breakpoint 7, read_filtered_event (no_switch_frame=1, ascii_required=1, 
    error_nonascii=1, input_method=0, seconds=4687873) at lread.c:517
517           if (SYMBOLP (val))
(gdb) p val
$4 = 6898253
(gdb) pr
(drag-n-drop (#<frame *Help* 0xa8a800> nil (788 . 20) 0)
["_MOTIF_WM_MESSAGES" #<frame *Help* 0xa8a800> 32 [135 6 25 0 0]])
(gdb) 

This time I get a drag-n-drop event.  Is there anything else you need?

(I couldn't reproduce this bug with a lucid toolkit build.)

Simon.