Add `lv-delete-window' function

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

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)
 

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