* keymap.c (Fwhere_is_internal): Don't test CONSP (sequences) unnecessarily.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9f770df40ef88fc66924eb805843ef73dd51a0be..8efad3a59d955a40f001d28d86d187ef0edfe165 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,7 @@
        * keymap.c (keymap_parent, keymap_memberp, map_keymap_internal):
        (copy_keymap_item, append_key, push_text_char_description):
        Now static.
+       (Fwhere_is_internal): Don't test CONSP (sequences) unnecessarily.
 
        * keyboard.c: Declare functions static if they are not used elsewhere.
        (echo_char, echo_dash, cmd_error, top_level_2):

diff --git a/src/keymap.c b/src/keymap.c
index cbb6adf3a0b6038c591b47a79cbb6581e831a17c..05d9616ef2d7d87454c5e86f3ef17f8649a36500 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2774,8 +2774,8 @@ remapped command in the returned list.  */)
            considered remapped sequences yet, copy them over and
            process them.  */
         || (!remapped && (sequences = remapped_sequences,
-                          remapped = 1),
-            CONSP (sequences)))
+                          remapped = 1,
+                          CONSP (sequences))))
     {
       Lisp_Object sequence, function;