From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 26 Jul 2006 18:15:08 +0000 (+0000)
Subject: Change callers of read_char.
X-Git-Tag: emacs-pretest-22.0.90~1233
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43811b4e749b1235183a3188f8af92a77da80665;p=emacs.git

Change callers of read_char.
---

diff --git a/src/callint.c b/src/callint.c
index 475042abbe1..4c8a5718cd9 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -563,7 +563,7 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used.  */)
 	  break;
 
         case 'c':		/* Character */
-	  args[i] = Fread_char (build_string (callint_message), Qnil);
+	  args[i] = Fread_char (build_string (callint_message), Qnil, Qnil);
 	  message1_nolog ((char *) 0);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = args[i];
@@ -635,7 +635,7 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used.  */)
 		/* Ignore first element, which is the base key.  */
 		tem2 = Fmemq (intern ("down"), Fcdr (teml));
 		if (! NILP (tem2))
-		  up_event = Fread_event (Qnil, Qnil);
+		  up_event = Fread_event (Qnil, Qnil, Qnil);
 	      }
 	  }
 	  break;
@@ -663,7 +663,7 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used.  */)
 		/* Ignore first element, which is the base key.  */
 		tem2 = Fmemq (intern ("down"), Fcdr (teml));
 		if (! NILP (tem2))
-		  up_event = Fread_event (Qnil, Qnil);
+		  up_event = Fread_event (Qnil, Qnil, Qnil);
 	      }
 	  }
 	  break;