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

(msb-unload-hook): Remove function and variable.

Browse source 
(msb-unload-function): New-style unload function,
adapted from `msb-unload-hook'.
This commit is contained in:
Juanma Barranquero 2007-10-31 00:30:09 +00:00
parent 437ce4beb5
commit 0b704e151e
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/msb.el
View file

@ -955,7 +955,7 @@ It takes the form ((TITLE . BUFFER-LIST)...)."
"*Files by directory*")
'msb--toggle-menu-type)))))))
(defun msb--create-buffer-menu ()
(defun msb--create-buffer-menu ()
(save-match-data
(save-excursion
(msb--create-buffer-menu-2))))
@ -1104,7 +1104,7 @@ variable `msb-menu-cond'."
(f-title (format "Frames (%d)" frame-length)))
;; List only the N most recently selected frames
(when (and (integerp msb-max-menu-items)
(> msb-max-menu-items 1)
(> msb-max-menu-items 1)
(> frame-length msb-max-menu-items))
(setcdr (nthcdr msb-max-menu-items frames) nil))
(setq frames-menu
@ -1149,9 +1149,11 @@ different buffer menu using the function `msb'."
(add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)
(menu-bar-update-buffers t)))
(defun msb-unload-hook ()
(msb-mode 0))
(add-hook 'msb-unload-hook 'msb-unload-hook)
(defun msb-unload-function ()
"Unload the Msb library."
(msb-mode -1)
;; continue standard unloading
nil)
(provide 'msb)
(eval-after-load "msb" '(run-hooks 'msb-after-load-hook 'msb-after-load-hooks))