(Faccessible_keymaps): Use PREFIX to set loop starting

point; don't even consider maps except those reached via prefix.

1 files changed, 17 insertions, 3 deletions

diff --git a/src/keymap.c b/src/keymap.c
index 3ae7d7e3608..dea8f883f6f 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1164,9 +1164,23 @@ then the value includes only maps for prefixes that start with PREFIX.")
   if (!NILP (prefix))
     prefixlen = XINT (Flength (prefix));
 
-  maps = Fcons (Fcons (Fmake_vector (make_number (0), Qnil),
-                       get_keymap (startmap)),
-                Qnil);
+  if (!NILP (prefix))
+    {
+      /* If a prefix was specified, start with the keymap (if any) for
+         that prefix, so we don't waste time considering other prefixes.  */
+      Lisp_Object tem;
+      tem = Flookup_key (startmap, prefix, Qt);
+      /* If PREFIX is reasonable, Flookup_key should give a keymap or nil.
+         For any other value it is ok to get an error here.  */
+      if (!NILP (tem))
+        maps = Fcons (Fcons (prefix, get_keymap (tem)), Qnil);
+      else
+        return Qnil;
+    }
+  else
+    maps = Fcons (Fcons (Fmake_vector (make_number (0), Qnil),
+                         get_keymap (startmap)),
+                  Qnil);
 
   /* For each map in the list maps,
      look at any other maps it points to,