Mercurial > emacs

diff lisp/window.el @ 12184:629806145d36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(save-selected-window): New macro.
author Karl Heuer <kwzh@gnu.org>
date Sun, 11 Jun 1995 19:27:57 +0000
parents a9b5c1d727b7
children 75c6a5e1ee7a
line wrap: on
line diff
--- a/lisp/window.el	Sat Jun 10 21:45:43 1995 +0000
+++ b/lisp/window.el	Sun Jun 11 19:27:57 1995 +0000
@@ -76,6 +76,14 @@
 (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.