From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 8 Oct 2008 09:02:28 +0000 (+0000)
Subject: * bs.el (bs-unload-function): New function.
X-Git-Tag: emacs-pretest-23.0.90~2599
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4384ef148fbf74f51cbc0e494c2d18febd97447;p=emacs.git

* bs.el (bs-unload-function): New function.
---

diff --git a/lisp/bs.el b/lisp/bs.el
index d4d22d786d5..8a65252abc6 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -1464,6 +1464,21 @@ name of buffer configuration."
   (setq bs--marked-buffers nil)
   (bs--show-with-configuration (bs--configuration-name-for-prefix-arg arg)))
 
+;; ----------------------------------------------------------------------
+;; Cleanup
+;; ----------------------------------------------------------------------
+
+(defun bs-unload-function ()
+  "Unload the Buffer Selection library."
+  (let ((bs-buf (get-buffer "*buffer-selection*")))
+    (when bs-buf
+      (with-current-buffer bs-buf
+	(when (eq major-mode 'bs-mode)
+	  (bs-kill)
+	  (kill-buffer bs-buf)))))
+  ;; continue standard unloading
+  nil)
+
 ;; Now provide feature bs
 (provide 'bs)