From ee1dbcebdc2b0167452d5a27ac07dddfea71d2d0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 20 Feb 2001 15:25:06 +0000 Subject: [PATCH] (menu-bar-update-buffers): Add optional parameter FORCE. If set, update the menu even if frame-or-buffer-changed-p returns nil. --- lisp/menu-bar.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5