# HG changeset patch # User Richard M. Stallman # Date 852439470 0 # Node ID 052a9f2e21e52675f6f07d88653699f8e3bd9598 # Parent e4851d47a05d783fd4f05983b90d4b40fda3096d (frame-or-buffer-changed-p): Definition deleted. (the end): Use mapc, to force loading of cl-extra. diff -r e4851d47a05d -r 052a9f2e21e5 lisp/msb.el --- a/lisp/msb.el Sun Jan 05 03:44:26 1997 +0000 +++ b/lisp/msb.el Sun Jan 05 04:44:30 1997 +0000 @@ -986,15 +986,6 @@ (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 @@ (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