mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 16:30:46 -08:00
Code Issues Projects Releases Wiki Activity

(Fexecute_extended_command):

Browse source 
Call Fwhere_is_internal just once to handle all the maps.
This commit is contained in:
Richard M. Stallman 1995-11-18 15:58:54 +00:00
parent c5c4b51cc6
commit beea50e415
1 changed files with 3 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/keyboard.c
View file

@ -6565,16 +6565,10 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
if (!NILP (Vsuggest_key_bindings)
&& SYMBOLP (function))
{
Lisp_Object *maps, bindings;
int nmaps, i;
Lisp_Object bindings;
bindings = Qnil;
nmaps = current_active_maps (&maps);
for (i = 0; i < nmaps && NILP (bindings); i++)
bindings = Fwhere_is_internal (function, maps[i], Qt, Qnil);
free (maps);
bindings = Fwhere_is_internal (function, Voverriding_local_map,
Qt, Qnil);
if (!NILP (bindings))
{