[elpa] externals/buffer-expose a55636b 2/8: Fix tab not working to switch from aw

[Clemens Radermacher]

branch: externals/buffer-expose
commit a55636b308987829ae3a43df7adede55c47b514d
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fix tab not working to switch from aw
---
 buffer-expose.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/buffer-expose.el b/buffer-expose.el
index 82fe892..f7ef8e9 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -220,6 +220,7 @@ page. See also `buffer-expose--get-rule'"
     (define-key map (kbd "<") 'buffer-expose-first-window)
     (define-key map (kbd ">") 'buffer-expose-last-window)
     (define-key map (kbd "SPC") 'buffer-expose-ace-window)
+    (define-key map (kbd "TAB") 'buffer-expose-next-window)
     (define-key map (kbd "<tab>") 'buffer-expose-next-window)
     (define-key map (kbd "<S-iso-lefttab>") 'buffer-expose-prev-window)
     (define-key map (kbd "]") 'buffer-expose-next-page)
@@ -984,12 +985,15 @@ F defaults to the currently selected window."
         ((mouse-event-p char)
          (signal 'user-error (list "Mouse event not handled" char)))
         (t
-         (if (or (lookup-key buffer-expose-exit-map (vector char))
-                 (lookup-key buffer-expose-grid-map (vector char)))
-             (progn (call-interactively (key-binding (vector char)))
-                    (throw 'done 'exit))
-           (message "No such candidate: %s, hit `C-g' to quit."
-                    (if (characterp char) (string char) char))))))
+         (require 'edmacro)
+         (let* ((key (kbd (edmacro-format-keys (vector char))))
+                (cmd (or (lookup-key buffer-expose-exit-map key)
+                         (lookup-key buffer-expose-grid-map key))))
+           (if cmd
+               (progn (call-interactively cmd)
+                      (throw 'done 'exit))
+             (message "No such candidate: %s, hit `C-g' to quit."
+                      (if (characterp char) (string char) char)))))))
 
 (defun buffer-expose-ace-window ()
   "Choose a window with ‘ace-window’."