# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 903414457 0
# Node ID 18ed8d6b11e518846c4552d936eb32c3816fbc45
# Parent  c3cb64f8dc9c8e7bd1d8694ef5b00b55062fd50e
(Fy_or_n_p): Bind input-method-function to nil.

diff -r c3cb64f8dc9c -r 18ed8d6b11e5 src/fns.c
--- a/src/fns.c	Tue Aug 18 00:56:48 1998 +0000
+++ b/src/fns.c	Tue Aug 18 04:27:37 1998 +0000
@@ -60,6 +60,8 @@
 Lisp_Object Qcursor_in_echo_area;
 Lisp_Object Qwidget_type;
 
+extern Lisp_Object Qinput_method_function;
+
 static int internal_equal ();
 
 extern long get_random ();
@@ -2353,6 +2355,7 @@
   int count = specpdl_ptr - specpdl;
 
   specbind (Qcursor_in_echo_area, Qt);
+  specbind (Qinput_method_function, Qnil);
 
   map = Fsymbol_value (intern ("query-replace-map"));