diff options
author | Martin Rudalics <rudalics@gmx.at> | 2015-01-31 19:38:58 +0100 |
---|---|---|
committer | Martin Rudalics <rudalics@gmx.at> | 2015-01-31 19:38:58 +0100 |
commit | 618931b5b614df307cfe74c2175287e3f6dfa2a0 (patch) | |
tree | 1eec5c3b9bcd71a1f5147bb8a348ff9d555edbfb | |
parent | 017a03afc92ba084898fc897c7e3dbf90197e0b6 (diff) | |
download | emacs-618931b5b614df307cfe74c2175287e3f6dfa2a0.tar.gz |
Handle dead frame in menu-bar-non-minibuffer-window-p. (Bug#19728)
* menu-bar.el (menu-bar-non-minibuffer-window-p): Return nil when
the menu frame is dead. (Bug#19728)
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/menu-bar.el | 12 |
2 files changed, 12 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 51d47a791ad..6cdaf14abe2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-01-31 Martin Rudalics <rudalics@gmx.at> + + * menu-bar.el (menu-bar-non-minibuffer-window-p): Return nil when + the menu frame is dead. (Bug#19728) + 2015-01-30 Fabián Ezequiel Gallina <fgallina@gnu.org> python.el: Handle tabs in python-indent-dedent-line. diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 25d41dcdd85..e82c089850a 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1737,12 +1737,14 @@ The menu frame is the frame for which we are updating the menu." (frame-visible-p menu-frame)))) (defun menu-bar-non-minibuffer-window-p () - "Return non-nil if selected window of the menu frame is not a minibuf window. - -See the documentation of `menu-bar-menu-frame-live-and-visible-p' -for the definition of the menu frame." + "Return non-nil if the menu frame's selected window is no minibuffer window. +Return nil if the menu frame is dead or its selected window is a +minibuffer window. The menu frame is the frame for which we are +updating the menu." (let ((menu-frame (or menu-updating-frame (selected-frame)))) - (not (window-minibuffer-p (frame-selected-window menu-frame))))) + (and (frame-live-p menu-frame) + (not (window-minibuffer-p + (frame-selected-window menu-frame)))))) (defun kill-this-buffer () ; for the menu bar "Kill the current buffer. |