(Fset_input_mode): Don't call `Fset_quit_char' if QUIT hasn't been

provided.

(Fset_input_mode): Don't call `Fset_quit_char' if QUIT hasn't been
provided.
0a42be6d · Romain Francoise · 7196c970 · 0a42be6d · 0a42be6d
Commit 0a42be6d authored Aug 29, 2007 by Romain Francoise
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

src/ChangeLog src/ChangeLog +5 -0

src/keyboard.c src/keyboard.c +2 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2007-08-29  Romain Francoise  <romain@orebokech.com>
+
+	* keyboard.c (Fset_input_mode): Don't call `Fset_quit_char' if
+	QUIT hasn't been provided.
+
 2007-08-29  Dan Nicolaescu  <dann@ics.uci.edu>
  
 	* callproc.c (child_setup, getenv_internal): Use the
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -11319,7 +11319,8 @@ See also `current-input-mode'.  */)
  Fset_input_interrupt_mode (interrupt);
  Fset_output_flow_control (flow, Qnil);
  Fset_input_meta_mode (meta, Qnil);
-  Fset_quit_char (quit);
+  if (!NILP (quit))
+    Fset_quit_char (quit);
  return Qnil;
 }