aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2005-12-20 21:41:31 +0000
committerJuri Linkov2005-12-20 21:41:31 +0000
commit55d42133d454b6c2d4032513fc5ee529e8fa4162 (patch)
tree76ed1b60f94402230efd29f25b18f171a7738551
parentc1d9dffd9a69144ddf27d46e67eaf7344fea0beb (diff)
downloademacs-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.el6
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.
1420The menu frame is the frame for which we are updating the menu." 1420The 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
1429See the documentation of `menu-bar-menu-frame-live-and-visible-p' 1428See the documentation of `menu-bar-menu-frame-live-and-visible-p'
1430for the definition of the menu frame." 1429for 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