From a6f8cbf15c15a4889e02eac81f44272832154ca4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 Dec 1996 20:30:18 +0000 Subject: [PATCH] In enable predicates in Files menu, use menu-updating-frame. --- lisp/menu-bar.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 60ef3a8ea59..6132e23526f 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -346,26 +346,26 @@ Do the same for the keys of the same name." (or (string-match "^ " (buffer-name (car buffers))) (setq count (1+ count))) (setq buffers (cdr buffers))) - (and (not (window-minibuffer-p (selected-window))) + (and (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) (> count 1)))) (put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p)) (put 'save-buffer 'menu-enable '(and (buffer-modified-p) - (not (window-minibuffer-p (selected-window))))) + (not (window-minibuffer-p (frame-selected-window menu-updating-frame))))) (put 'write-file 'menu-enable - '(not (window-minibuffer-p (selected-window)))) + '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) (put 'find-file 'menu-enable - '(not (window-minibuffer-p (selected-window)))) + '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) (put 'dired 'menu-enable - '(not (window-minibuffer-p (selected-window)))) + '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) (put 'insert-file 'menu-enable - '(not (window-minibuffer-p (selected-window)))) + '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) (put 'revert-buffer 'menu-enable '(or revert-buffer-function revert-buffer-insert-file-contents-function -- 2.39.5