Make keymap-lookup work for keymap results, too

* lisp/keymap.el (keymap-lookup): Make this function work for
non-symbol lookups, too (bug#52374).

diff --git a/lisp/keymap.el b/lisp/keymap.el
index 48f087c5287c48dc882ebd74a53d9383590f96f0..fd91689f887a4a782d2b51c1bf76d040d7430b88 100644 (file)
--- a/lisp/keymap.el
+++ b/lisp/keymap.el
@@ -411,9 +411,10 @@ specified buffer position instead of point are used."
     (error "Can't pass in both keymap and position"))
   (if keymap
       (let ((value (lookup-key keymap (key-parse key) accept-default)))
-        (when (and (not no-remap)
+        (if (and (not no-remap)
                    (symbolp value))
-          (or (command-remapping value) value)))
+            (or (command-remapping value) value)
+          value))
     (key-binding (kbd key) accept-default no-remap position)))
 
 (defun keymap-local-lookup (keys &optional accept-default)