diff options
| author | Juri Linkov | 2005-12-20 21:41:31 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-12-20 21:41:31 +0000 |
| commit | 55d42133d454b6c2d4032513fc5ee529e8fa4162 (patch) | |
| tree | 76ed1b60f94402230efd29f25b18f171a7738551 | |
| parent | c1d9dffd9a69144ddf27d46e67eaf7344fea0beb (diff) | |
| download | emacs-55d42133d454b6c2d4032513fc5ee529e8fa4162.tar.gz emacs-55d42133d454b6c2d4032513fc5ee529e8fa4162.zip | |
(menu-bar-menu-frame-live-and-visible-p)
(menu-bar-non-minibuffer-window-p): Instead of checking display-multi-frame-p,
use selected-frame when menu-updating-frame is nil.
| -rw-r--r-- | lisp/menu-bar.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 6fa8c8b0f03..afc207bc9f0 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -1418,8 +1418,7 @@ key, a click, or a menu-item")) | |||
| 1418 | (defun menu-bar-menu-frame-live-and-visible-p () | 1418 | (defun menu-bar-menu-frame-live-and-visible-p () |
| 1419 | "Return non-nil if the menu frame is alive and visible. | 1419 | "Return non-nil if the menu frame is alive and visible. |
| 1420 | The menu frame is the frame for which we are updating the menu." | 1420 | The menu frame is the frame for which we are updating the menu." |
| 1421 | (let ((menu-frame (if (display-multi-frame-p) menu-updating-frame | 1421 | (let ((menu-frame (or menu-updating-frame (selected-frame)))) |
| 1422 | (selected-frame)))) | ||
| 1423 | (and (frame-live-p menu-frame) | 1422 | (and (frame-live-p menu-frame) |
| 1424 | (frame-visible-p menu-frame)))) | 1423 | (frame-visible-p menu-frame)))) |
| 1425 | 1424 | ||
| @@ -1428,8 +1427,7 @@ The menu frame is the frame for which we are updating the menu." | |||
| 1428 | 1427 | ||
| 1429 | See the documentation of `menu-bar-menu-frame-live-and-visible-p' | 1428 | See the documentation of `menu-bar-menu-frame-live-and-visible-p' |
| 1430 | for the definition of the menu frame." | 1429 | for the definition of the menu frame." |
| 1431 | (let ((menu-frame (if (display-multi-frame-p) menu-updating-frame | 1430 | (let ((menu-frame (or menu-updating-frame (selected-frame)))) |
| 1432 | (selected-frame)))) | ||
| 1433 | (not (window-minibuffer-p (frame-selected-window menu-frame))))) | 1431 | (not (window-minibuffer-p (frame-selected-window menu-frame))))) |
| 1434 | 1432 | ||
| 1435 | (defun kill-this-buffer () ; for the menu bar | 1433 | (defun kill-this-buffer () ; for the menu bar |