changeset 54927:7b6b4d9ae726

(Fkey_description): Change callers.
author Kim F. Storm <storm@cua.dk>
date Fri, 16 Apr 2004 21:19:16 +0000
parents 9d9ed20a61d2
children 28a55e2ec30f
files src/callint.c src/doc.c src/keyboard.c
diffstat 3 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Fri Apr 16 21:17:02 2004 +0000
+++ b/src/callint.c	Fri Apr 16 21:19:16 2004 +0000
@@ -612,7 +612,7 @@
 					  Qnil, Qnil, Qnil, Qnil);
 	    unbind_to (speccount1, Qnil);
 	    teml = args[i];
-	    visargs[i] = Fkey_description (teml);
+	    visargs[i] = Fkey_description (teml, Qnil);
 
 	    /* If the key sequence ends with a down-event,
 	       discard the following up-event.  */
@@ -639,7 +639,7 @@
 	    args[i] = Fread_key_sequence (build_string (callint_message),
 					  Qnil, Qt, Qnil, Qnil);
 	    teml = args[i];
-	    visargs[i] = Fkey_description (teml);
+	    visargs[i] = Fkey_description (teml, Qnil);
 	    unbind_to (speccount1, Qnil);
 
 	    /* If the key sequence ends with a down-event,
--- a/src/doc.c	Fri Apr 16 21:17:02 2004 +0000
+++ b/src/doc.c	Fri Apr 16 21:19:16 2004 +0000
@@ -808,7 +808,7 @@
 	    }
 	  else
 	    {			/* function is on a key */
-	      tem = Fkey_description (tem);
+	      tem = Fkey_description (tem, Qnil);
 	      goto subst_string;
 	    }
 	}
--- a/src/keyboard.c	Fri Apr 16 21:17:02 2004 +0000
+++ b/src/keyboard.c	Fri Apr 16 21:19:16 2004 +0000
@@ -7407,7 +7407,7 @@
       newcache = chkcache;
       if (chkcache)
 	{
-	  tem = Fkey_description (tem);
+	  tem = Fkey_description (tem, Qnil);
 	  if (CONSP (prefix))
 	    {
 	      if (STRINGP (XCAR (prefix)))
@@ -9806,7 +9806,7 @@
 	  int count = SPECPDL_INDEX ();
 
 	  record_unwind_protect (pop_message_unwind, Qnil);
-	  binding = Fkey_description (bindings);
+	  binding = Fkey_description (bindings, Qnil);
 
 	  newmessage
 	    = (char *) alloca (SCHARS (SYMBOL_NAME (function))