Add `lv-delete-window' function

* lv.el (lv-delete-window): New defun.
* hydra.el (hydra-keyboard-quit): Use it.

diff --git a/hydra.el b/hydra.el
index bd5640c52647a800bec48f6b432affba953f7aa8..dcfb7bce32d7ac8d7ea0bfab1e13fca3a87bd74e 100644 (file)
--- 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 ee5a739460d5bf7a57125b5fc2915ccd4c5f278e..69e8497a97c20a5ff089b465403e1e2eed681cfe 100644 (file)
--- 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