# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1193790609 0
# Node ID 0ab0355c4c170a1ac1a0be168b8a568e7875cb41
# Parent  a3af441f643152cb8b77c909e8c1dfcafbc87254
(msb-unload-hook): Remove function and variable.
(msb-unload-function): New-style unload function,
adapted from `msb-unload-hook'.

diff -r a3af441f6431 -r 0ab0355c4c17 lisp/msb.el
--- a/lisp/msb.el	Tue Oct 30 23:28:28 2007 +0000
+++ b/lisp/msb.el	Wed Oct 31 00:30:09 2007 +0000
@@ -955,7 +955,7 @@
 			     "*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 @@
 	       (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 @@
     (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))