mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(save-selected-window): New macro.

Browse Source
This commit is contained in:
Karl Heuer 1995-06-11 19:27:57 +00:00
parent 6816efced2
commit 7f77f3c86d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/window.el
View File

@ -76,6 +76,14 @@ Anything else means restrict to WINDOW's frame."
(defun minibuffer-window-active-p (window)
"Return t if WINDOW (a minibuffer window) is now active."
(eq window (active-minibuffer-window)))
(defmacro save-selected-window (&rest body)
"Execute BODY, then select the window that was selected before BODY."
(list 'let
'((save-selected-window-window (selected-window)))
(list 'unwind-protect
(cons 'progn body)
(list 'select-window 'save-selected-window-window))))
(defun count-windows (&optional minibuf)
"Returns the number of visible windows.