branch: master
commit c43e1cfcefc03b8ca8f5529a3e3b76e5244031dc
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
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
