aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-01-05 04:44:30 +0000
committerRichard M. Stallman1997-01-05 04:44:30 +0000
commitbe17d374c3edadc7e1f261cd27d905d292e2630f (patch)
tree57e06143676bf5ee0a859879f4c993d71f84c581
parent96cdf226f14bf6e5cbf8e009e8ffef63e7ef422d (diff)
downloademacs-be17d374c3edadc7e1f261cd27d905d292e2630f.tar.gz
emacs-be17d374c3edadc7e1f261cd27d905d292e2630f.zip
(frame-or-buffer-changed-p): Definition deleted.
(the end): Use mapc, to force loading of cl-extra.
-rw-r--r--lisp/msb.el13
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'."
986 (cddr buffers-menu)) 986 (cddr buffers-menu))
987 (or buffers-menu 'undefined))))))) 987 (or buffers-menu 'undefined)))))))
988 988
989(when (and (boundp 'menu-bar-update-hook)
990 (not (fboundp 'frame-or-buffer-changed-p)))
991 (defvar msb--buffer-count 0)
992 (defun frame-or-buffer-changed-p ()
993 (let ((count (length (buffer-list))))
994 (when (/= count msb--buffer-count)
995 (setq msb--buffer-count count)
996 t))))
997
998(unless (or (not (boundp 'menu-bar-update-hook)) 989(unless (or (not (boundp 'menu-bar-update-hook))
999 (memq 'menu-bar-update-buffers menu-bar-update-hook)) 990 (memq 'menu-bar-update-buffers menu-bar-update-hook))
1000 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers)) 991 (add-hook 'menu-bar-update-hook 'menu-bar-update-buffers))
@@ -1004,4 +995,8 @@ variable `msb-menu-cond'."
1004 995
1005(provide 'msb) 996(provide 'msb)
1006(eval-after-load 'msb (run-hooks 'msb-after-load-hooks)) 997(eval-after-load 'msb (run-hooks 'msb-after-load-hooks))
998
999;; Load the cl-extra library now, since we will certainly need it later.
1000(mapc 'ignore nil)
1001
1007;;; msb.el ends here 1002;;; msb.el ends here