mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Juanma Barranquero 2008-10-08 09:02:28 +00:00
parent 2c8262dc6f
commit c4384ef148
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/bs.el
View file

@ -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)