mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 11:42:29 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-update-buffers): Add optional parameter

Browse source 
FORCE.  If set, update the menu even if frame-or-buffer-changed-p
returns nil.
This commit is contained in:
Gerd Moellmann 2001-02-20 15:25:06 +00:00
parent 0f6d89c42e
commit ee1dbcebdc
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/menu-bar.el
View file

@ -1024,10 +1024,10 @@ key (or menu-item)"))
(defvar menu-bar-buffers-menu-list-buffers-entry nil)
(defun menu-bar-update-buffers ()
(defun menu-bar-update-buffers (&optional force)
;; If user discards the Buffers item, play along.
(and (lookup-key (current-global-map) [menu-bar buffer])
(frame-or-buffer-changed-p)
(or force (frame-or-buffer-changed-p))
(let ((buffers (buffer-list))
(frames (frame-list))
(maxlen 0)