From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 20 Feb 2001 15:25:06 +0000 (+0000)
Subject: (menu-bar-update-buffers): Add optional parameter
X-Git-Tag: emacs-pretest-21.0.99~264
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee1dbcebdc2b0167452d5a27ac07dddfea71d2d0;p=emacs.git

(menu-bar-update-buffers): Add optional parameter
FORCE.  If set, update the menu even if frame-or-buffer-changed-p
returns nil.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index ab14632b716..a33af82dcba 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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)