[elpa] externals/buffer-expose ee6bcfe 4/9: Add kill buffer command

[Clemens Radermacher]

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

    Add kill buffer command
---
 buffer-expose.el | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/buffer-expose.el b/buffer-expose.el
index 81fcef9..2ef118f 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -220,6 +220,7 @@ page. See also `buffer-expose--get-rule'"
     (define-key map (kbd "<S-iso-lefttab>") 'buffer-expose-prev-window)
     (define-key map (kbd "]") 'buffer-expose-next-page)
     (define-key map (kbd "[") 'buffer-expose-prev-page)
+    (define-key map "k" 'buffer-expose-kill-buffer)
     map)
   "Transient keymap used for the overview.")
 
@@ -527,8 +528,6 @@ which should be included."
           (set-transient-map
            map
            (lambda ()
-             (when (not (lookup-key map (this-command-keys-vector)))
-               (message buffer-expose-key-hint))
              (not (lookup-key buffer-expose-exit-map 
(this-command-keys-vector))))))))
 
 (defun buffer-expose--init-ui ()
@@ -1022,16 +1021,13 @@ F defaults to the currently selected window."
   "Kill currently selected buffer."
   (interactive)
   (let ((buf (window-buffer))
-        (w (get-buffer-window)))
-    (buffer-expose--select-window
-     (or (window-in-direction 'right)
-         (window-in-direction 'below)
-         (window-in-direction 'left)
-         (window-in-direction 'above)
-         (selected-window)))
-    (kill-buffer buf)
-    (setf (window-buffer w)
-          (get-buffer-create buffer-expose--empty-buffer-name))))
+        (w (get-buffer-window))
+        (nw (buffer-expose--other-window)))
+    (buffer-expose--select-window nw)
+    (let ((overriding-terminal-local-map nil))
+      (when (kill-buffer buf)
+        (setf (window-buffer w)
+              (buffer-expose--create-empty-buffer))))))
 
 (defun buffer-expose-choose ()
   "Choose buffer and exit overview."