procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(where_is_string, Fwhere_is): Deleted.

Browse source 
(syms_of_keymap): Corresponding changes.
This commit is contained in:
Richard M. Stallman 1994-03-23 04:51:55 +00:00
parent 32033024d7
commit c25f25a218
1 changed files with 0 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/keymap.c
View file

@ -1710,39 +1710,6 @@ indirect definition itself.")
return found;
}
/* Return a string listing the keys and buttons that run DEFINITION. */
static Lisp_Object
where_is_string (definition)
Lisp_Object definition;
{
register Lisp_Object keys, keys1;
keys = Fwhere_is_internal (definition, Voverriding_local_map, Qnil, Qnil);
keys1 = Fmapconcat (Qkey_description, keys, build_string (", "));
return keys1;
}
DEFUN ("where-is", Fwhere_is, Swhere_is, 1, 1, "CWhere is command: ",
"Print message listing key sequences that invoke specified command.\n\
Argument is a command definition, usually a symbol with a function definition.")
(definition)
Lisp_Object definition;
{
register Lisp_Object string;
CHECK_SYMBOL (definition, 0);
string = where_is_string (definition);
if (XSTRING (string)->size)
message ("%s is on %s", XSYMBOL (definition)->name->data,
XSTRING (string)->data);
else
message ("%s is not on any key", XSYMBOL (definition)->name->data);
return Qnil;
}
/* describe-bindings - summarizing all the bindings in a set of keymaps. */
@ -2414,7 +2381,6 @@ key, typing `ESC O P x' would return [f1 x].");
defsubr (&Ssingle_key_description);
defsubr (&Stext_char_description);
defsubr (&Swhere_is_internal);
defsubr (&Swhere_is);
defsubr (&Sdescribe_bindings);
defsubr (&Sapropos_internal);
}