diff options
| author | Karl Heuer | 1995-06-11 19:27:57 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-06-11 19:27:57 +0000 |
| commit | 7f77f3c86d920832fe8507a05569e37a3b2793ce (patch) | |
| tree | c7d654a4d6d65c48f3906c71abbfe751820a2dc1 | |
| parent | 6816efced2e8bfc2feeccf980bd9be4a75d5aeb7 (diff) | |
| download | emacs-7f77f3c86d920832fe8507a05569e37a3b2793ce.tar.gz emacs-7f77f3c86d920832fe8507a05569e37a3b2793ce.zip | |
(save-selected-window): New macro.
| -rw-r--r-- | lisp/window.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/window.el b/lisp/window.el index 899bbb0bdcc..bfaa657a2e2 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -76,6 +76,14 @@ Anything else means restrict to WINDOW's frame." | |||
| 76 | (defun minibuffer-window-active-p (window) | 76 | (defun minibuffer-window-active-p (window) |
| 77 | "Return t if WINDOW (a minibuffer window) is now active." | 77 | "Return t if WINDOW (a minibuffer window) is now active." |
| 78 | (eq window (active-minibuffer-window))) | 78 | (eq window (active-minibuffer-window))) |
| 79 | |||
| 80 | (defmacro save-selected-window (&rest body) | ||
| 81 | "Execute BODY, then select the window that was selected before BODY." | ||
| 82 | (list 'let | ||
| 83 | '((save-selected-window-window (selected-window))) | ||
| 84 | (list 'unwind-protect | ||
| 85 | (cons 'progn body) | ||
| 86 | (list 'select-window 'save-selected-window-window)))) | ||
| 79 | 87 | ||
| 80 | (defun count-windows (&optional minibuf) | 88 | (defun count-windows (&optional minibuf) |
| 81 | "Returns the number of visible windows. | 89 | "Returns the number of visible windows. |