[elpa] master c43e1cf 08/24: Add `lv-delete-window' function

[Oleh Krehel]

branch: master
commit c43e1cfcefc03b8ca8f5529a3e3b76e5244031dc
Author: Jonas Bernoulli <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Add `lv-delete-window' function
    
    * lv.el (lv-delete-window): New defun.
    * hydra.el (hydra-keyboard-quit): Use it.
---
 hydra.el |    5 +----
 lv.el    |    7 +++++++
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/hydra.el b/hydra.el
index bd5640c..dcfb7bc 100644
--- a/hydra.el
+++ b/hydra.el
@@ -388,10 +388,7 @@ Return DEFAULT if PROP is not in H."
   (cancel-timer hydra-timeout-timer)
   (cancel-timer hydra-message-timer)
   (if hydra-lv
-      (when (window-live-p lv-wnd)
-        (let ((buf (window-buffer lv-wnd)))
-          (delete-window lv-wnd)
-          (kill-buffer buf)))
+      (lv-delete-window)
     (message ""))
   nil)
 
diff --git a/lv.el b/lv.el
index ee5a739..69e8497 100644
--- a/lv.el
+++ b/lv.el
@@ -73,6 +73,13 @@
     (goto-char (point-min))
     (select-window ori)))
 
+(defun lv-delete-window ()
+  "Delete LV window and kill its buffer."
+  (when (window-live-p lv-wnd)
+    (let ((buf (window-buffer lv-wnd)))
+      (delete-window lv-wnd)
+      (kill-buffer buf))))
+
 (provide 'lv)
 
 ;;; lv.el ends here