Mercurial > emacs

changeset 36230:56577cf3e384

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-update-buffers): Add optional parameter FORCE. If set, update the menu even if frame-or-buffer-changed-p returns nil.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 20 Feb 2001 15:25:06 +0000
parents 779e2936512e
children 9fa7c8e6a6d5
files lisp/menu-bar.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Tue Feb 20 15:24:39 2001 +0000
+++ b/lisp/menu-bar.el	Tue Feb 20 15:25:06 2001 +0000
@@ -1024,10 +1024,10 @@
 
 (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)