[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/callint.c
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/src/callint.c |
Date: |
Sat, 06 Nov 2004 22:54:36 -0500 |
Index: emacs/src/callint.c
diff -c emacs/src/callint.c:1.134 emacs/src/callint.c:1.135
*** emacs/src/callint.c:1.134 Tue Oct 26 12:56:47 2004
--- emacs/src/callint.c Sun Nov 7 03:48:56 2004
***************
*** 451,475 ****
string++;
else if (*string == '@')
{
! Lisp_Object event;
event = (next_event < key_count
? XVECTOR (keys)->contents[next_event]
: Qnil);
if (EVENT_HAS_PARAMETERS (event)
! && (event = XCDR (event), CONSP (event))
! && (event = XCAR (event), CONSP (event))
! && (event = XCAR (event), WINDOWP (event)))
{
! if (MINI_WINDOW_P (XWINDOW (event))
! && ! (minibuf_level > 0 && EQ (event, minibuf_window)))
error ("Attempt to select inactive minibuffer window");
/* If the current buffer wants to clean up, let it. */
if (!NILP (Vmouse_leave_buffer_hook))
call1 (Vrun_hooks, Qmouse_leave_buffer_hook);
! Fselect_window (event, Qnil);
}
string++;
}
--- 451,475 ----
string++;
else if (*string == '@')
{
! Lisp_Object event, tem;
event = (next_event < key_count
? XVECTOR (keys)->contents[next_event]
: Qnil);
if (EVENT_HAS_PARAMETERS (event)
! && (tem = XCDR (event), CONSP (tem))
! && (tem = XCAR (tem), CONSP (tem))
! && (tem = XCAR (tem), WINDOWP (tem)))
{
! if (MINI_WINDOW_P (XWINDOW (tem))
! && ! (minibuf_level > 0 && EQ (tem, minibuf_window)))
error ("Attempt to select inactive minibuffer window");
/* If the current buffer wants to clean up, let it. */
if (!NILP (Vmouse_leave_buffer_hook))
call1 (Vrun_hooks, Qmouse_leave_buffer_hook);
! Fselect_window (tem, Qnil);
}
string++;
}
- [Emacs-diffs] Changes to emacs/src/callint.c,
Richard M . Stallman <=