diff options
Diffstat (limited to 'lisp/msb.el')
| -rw-r--r-- | lisp/msb.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/msb.el b/lisp/msb.el index 644ded97f5c..a0312064f99 100644 --- a/lisp/msb.el +++ b/lisp/msb.el @@ -829,7 +829,8 @@ results in (with-current-buffer buffer (when (and (not (msb-invisible-buffer-p)) (not (assq major-mode mode-list))) - (push (cons major-mode mode-name) + (push (cons major-mode + (format-mode-line mode-name nil nil buffer)) mode-list)))) mode-list) (lambda (item1 item2) @@ -952,7 +953,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)))) @@ -1101,7 +1102,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 @@ -1146,9 +1147,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)) |