[elpa] externals/ergoemacs-mode f5aa0f7 63/87: Merge pull request #496 from wlandry/command_loop

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit f5aa0f7b9150b2387769b15362d05178189e2630
Merge: 67e8c66 131b3fb
Author: Matthew Fidler <matthew.fidler@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #496 from wlandry/command_loop
    
    Fix command-loop errors
---
 ergoemacs-mapkeymap.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ergoemacs-mapkeymap.el b/ergoemacs-mapkeymap.el
index cb08017..199329e 100644
--- a/ergoemacs-mapkeymap.el
+++ b/ergoemacs-mapkeymap.el
@@ -194,7 +194,9 @@ them to be masked when mapping over the keymap."
              (cond
               ((consp event)
                (ergoemacs-map-set-char-table-range
-                (or (and prefix (lookup-key flat-keymap prefix))
+                (or (and prefix
+                         (let ((prefix-lookup (lookup-key flat-keymap prefix)))
+                           (if (listp prefix-lookup) prefix-lookup)))
                     flat-keymap) event item))
               (t
                (define-key flat-keymap key item)