From 4e7dd5428128fd7e23f53a5d13d2587328ed1d2d Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 25 Apr 2002 19:40:07 +0000 Subject: [PATCH] * lsdb.el (lsdb-wl-hide-buffer): New function. --- lsdb.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lsdb.el b/lsdb.el index 4705b8e..e19fd96 100644 --- a/lsdb.el +++ b/lsdb.el @@ -536,6 +536,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not." (defun lsdb-wl-insinuate () "Call this function to hook LSDB into Wanderlust." (add-hook 'wl-message-redisplay-hook 'lsdb-wl-update-record) + (add-hook 'wl-summary-exit-hook 'lsdb-wl-hide-buffer) (add-hook 'wl-exit-hook 'lsdb-offer-save)) (defun lsdb-wl-update-record () @@ -545,6 +546,11 @@ This is the current number of slots in HASH-TABLE, whether occupied or not." (when records (lsdb-display-record (car records)))))) +(defun lsdb-wl-hide-buffer () + (let ((window (get-buffer-window lsdb-buffer-name))) + (if window + (delete-window window)))) + (provide 'lsdb) ;;;_* Local emacs vars. -- 1.7.10.4