diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-07 20:30:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-07 20:30:18 +0000 |
| commit | cbcf0efb6d2cb9851475fc491a7d2463a954fde7 (patch) | |
| tree | 280304d91fba1639b7051fa6c876144e41279b3e | |
| parent | d68b60d7783c2c3a2c0a8420e8e45596e86dc000 (diff) | |
| download | emacs-cbcf0efb6d2cb9851475fc491a7d2463a954fde7.tar.gz | |
In enable predicates in Files menu, use menu-updating-frame.
| -rw-r--r-- | lisp/menu-bar.el | 12 |
1 files 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 |