diff options
| author | Richard M. Stallman | 1997-01-05 04:44:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-05 04:44:30 +0000 |
| commit | be17d374c3edadc7e1f261cd27d905d292e2630f (patch) | |
| tree | 57e06143676bf5ee0a859879f4c993d71f84c581 | |
| parent | 96cdf226f14bf6e5cbf8e009e8ffef63e7ef422d (diff) | |
| download | emacs-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.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'." | |||
| 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 |