Mercurial > emacs
changeset 98570:0f0acad20b91
* bs.el (bs-unload-function): New function.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 08 Oct 2008 09:02:28 +0000 |
| parents | 6847ec2b2d38 |
| children | e2a4c50b0a78 |
| files | lisp/bs.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bs.el Wed Oct 08 08:48:52 2008 +0000 +++ b/lisp/bs.el Wed Oct 08 09:02:28 2008 +0000 @@ -1464,6 +1464,21 @@ (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)