From f1321dc307e63c17ce838e0b32e2708fd351f1df Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 17 May 2003 21:17:45 +0000 Subject: (Fselect_window): Add optional arg `norecord'. --- src/callint.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/callint.c') diff --git a/src/callint.c b/src/callint.c index f80f3c62027..4edb4201fa4 100644 --- a/src/callint.c +++ b/src/callint.c @@ -1,5 +1,5 @@ /* Call a Lisp function interactively. - Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000, 2002 + Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000, 02, 2003 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -379,7 +379,7 @@ supply if the command inquires which events were used to invoke it. */) if (i != num_input_events || !NILP (record_flag)) { /* We should record this command on the command history. */ - Lisp_Object values, car; + Lisp_Object values; /* Make a copy of the list of values, for the command history, and turn them into things we can eval. */ values = quotify_args (Fcopy_sequence (specs)); @@ -456,7 +456,7 @@ supply if the command inquires which events were used to invoke it. */) if (!NILP (Vmouse_leave_buffer_hook)) call1 (Vrun_hooks, Qmouse_leave_buffer_hook); - Fselect_window (event); + Fselect_window (event, Qnil); } string++; } -- cgit v1.2.1