From: Romain Francoise <romain@orebokech.com>
Date: Wed, 29 Aug 2007 16:03:26 +0000 (+0000)
Subject: (Fset_input_mode): Don't call `Fset_quit_char' if QUIT hasn't been
X-Git-Tag: emacs-pretest-23.0.90~11214
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a42be6da7d36b5983c086e4c2108596273656e1;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index eb3c1feaa71..78d4bb3211e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/src/keyboard.c b/src/keyboard.c
index 95a4aecfe39..635db1eb597 100644
--- 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;
 }