mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(Fkey_description): Change callers.

Browse Source
This commit is contained in:
Kim F. Storm 2004-04-16 21:19:16 +00:00
parent b378e2c736
commit a1bfe073ea
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/callint.c
View File

@ -612,7 +612,7 @@ supply if the command inquires which events were used to invoke it. */)
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 @@ supply if the command inquires which events were used to invoke it. */)
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,

2
src/doc.c
View File

@ -808,7 +808,7 @@ thus, \\=\\=\\=\\= puts \\=\\= into the output, and \\=\\=\\=\\[ puts \\=\\[ int
}
else
{ /* function is on a key */
tem = Fkey_description (tem);
tem = Fkey_description (tem, Qnil);
goto subst_string;
}
}

4
src/keyboard.c
View File

@ -7407,7 +7407,7 @@ parse_menu_item (item, notreal, inmenubar)
newcache = chkcache;
if (chkcache)
{
tem = Fkey_description (tem);
tem = Fkey_description (tem, Qnil);
if (CONSP (prefix))
{
if (STRINGP (XCAR (prefix)))
@ -9806,7 +9806,7 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
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))