diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-01-05 04:44:30 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-01-05 04:44:30 +0000 |
commit | be17d374c3edadc7e1f261cd27d905d292e2630f (patch) | |
tree | 57e06143676bf5ee0a859879f4c993d71f84c581 | |
parent | 96cdf226f14bf6e5cbf8e009e8ffef63e7ef422d (diff) | |
download | emacs-be17d374c3edadc7e1f261cd27d905d292e2630f.tar.gz |
(frame-or-buffer-changed-p): Definition deleted.
(the end): Use mapc, to force loading of cl-extra.
-rw-r--r-- | lisp/msb.el | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/lisp/msb.el b/lisp/msb.el index 62fd4aefb36..70361ea5fcd 100644 --- a/lisp/msb.el +++ b/lisp/msb.el @@ -986,15 +986,6 @@ variable `msb-menu-cond'." (cddr buffers-menu)) (or buffers-menu 'undefined))))))) -(when (and (boundp 'menu-bar-update-hook) - (not (fboundp 'frame-or-buffer-changed-p))) - (defvar msb--buffer-count 0) - (defun frame-or-buffer-changed-p () - (let ((count (length (buffer-list)))) - (when (/= count msb--buffer-count) - (setq msb--buffer-count count) - t)))) - (unless (or (not (boundp 'menu-bar-update-hook)) (memq 'menu-bar-update-buffers menu-bar-update-hook)) (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)) @@ -1004,4 +995,8 @@ variable `msb-menu-cond'." (provide 'msb) (eval-after-load 'msb (run-hooks 'msb-after-load-hooks)) + +;; Load the cl-extra library now, since we will certainly need it later. +(mapc 'ignore nil) + ;;; msb.el ends here |