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