Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c25f25a2
Commit
c25f25a2
authored
Mar 23, 1994
by
Richard M. Stallman
Browse files
(where_is_string, Fwhere_is): Deleted.
(syms_of_keymap): Corresponding changes.
parent
32033024
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
34 deletions
+0
-34
src/keymap.c
src/keymap.c
+0
-34
No files found.
src/keymap.c
View file @
c25f25a2
...
...
@@ -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
);
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment