diff options
| author | Richard M. Stallman | 1995-11-18 15:58:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-18 15:58:54 +0000 |
| commit | beea50e4154cc223d21287d70bb3fb56a48790f0 (patch) | |
| tree | b69f42181a4c38aa81d1ff3387beebb732d72835 | |
| parent | c5c4b51cc68d84b6cf3db933ac595c95e54de104 (diff) | |
| download | emacs-beea50e4154cc223d21287d70bb3fb56a48790f0.tar.gz emacs-beea50e4154cc223d21287d70bb3fb56a48790f0.zip | |
(Fexecute_extended_command):
Call Fwhere_is_internal just once to handle all the maps.
| -rw-r--r-- | src/keyboard.c | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index ee31c02f478..74614ce2f10 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -6565,16 +6565,10 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_ | |||
| 6565 | if (!NILP (Vsuggest_key_bindings) | 6565 | if (!NILP (Vsuggest_key_bindings) |
| 6566 | && SYMBOLP (function)) | 6566 | && SYMBOLP (function)) |
| 6567 | { | 6567 | { |
| 6568 | Lisp_Object *maps, bindings; | 6568 | Lisp_Object bindings; |
| 6569 | int nmaps, i; | ||
| 6570 | 6569 | ||
| 6571 | bindings = Qnil; | 6570 | bindings = Fwhere_is_internal (function, Voverriding_local_map, |
| 6572 | nmaps = current_active_maps (&maps); | 6571 | Qt, Qnil); |
| 6573 | |||
| 6574 | for (i = 0; i < nmaps && NILP (bindings); i++) | ||
| 6575 | bindings = Fwhere_is_internal (function, maps[i], Qt, Qnil); | ||
| 6576 | |||
| 6577 | free (maps); | ||
| 6578 | 6572 | ||
| 6579 | if (!NILP (bindings)) | 6573 | if (!NILP (bindings)) |
| 6580 | { | 6574 | { |