# HG changeset patch # User Richard M. Stallman # Date 849990618 0 # Node ID 4f8448158c103cc3c9ee35cc2d305235de01a19e # Parent 7f975e29d4ee909da90350387467e40d380d6172 In enable predicates in Files menu, use menu-updating-frame. diff -r 7f975e29d4ee -r 4f8448158c10 lisp/menu-bar.el --- a/lisp/menu-bar.el Sat Dec 07 20:26:25 1996 +0000 +++ b/lisp/menu-bar.el Sat Dec 07 20:30:18 1996 +0000 @@ -346,26 +346,26 @@ (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