Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
be17d374
Commit
be17d374
authored
Jan 05, 1997
by
Richard M. Stallman
Browse files
(frame-or-buffer-changed-p): Definition deleted.
(the end): Use mapc, to force loading of cl-extra.
parent
96cdf226
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
9 deletions
+4
-9
lisp/msb.el
lisp/msb.el
+4
-9
No files found.
lisp/msb.el
View file @
be17d374
...
...
@@ -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
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment