1804 |
(declare (indent 1) (debug t)) |
(declare (indent 1) (debug t)) |
1805 |
;; Most of this code is a copy of save-selected-window. |
;; Most of this code is a copy of save-selected-window. |
1806 |
`(let ((save-selected-window-window (selected-window)) |
`(let ((save-selected-window-window (selected-window)) |
1807 |
|
;; It is necessary to save all of these, because calling |
1808 |
|
;; select-window changes frame-selected-window for whatever |
1809 |
|
;; frame that window is in. |
1810 |
(save-selected-window-alist |
(save-selected-window-alist |
1811 |
(mapcar (lambda (frame) (list frame (frame-selected-window frame))) |
(mapcar (lambda (frame) (list frame (frame-selected-window frame))) |
1812 |
(frame-list)))) |
(frame-list)))) |
1818 |
(window-live-p (cadr elt)) |
(window-live-p (cadr elt)) |
1819 |
(set-frame-selected-window (car elt) (cadr elt)))) |
(set-frame-selected-window (car elt) (cadr elt)))) |
1820 |
(if (window-live-p save-selected-window-window) |
(if (window-live-p save-selected-window-window) |
|
;; This is where the code differs from save-selected-window. |
|
1821 |
(select-window save-selected-window-window 'norecord))))) |
(select-window save-selected-window-window 'norecord))))) |
1822 |
|
|
1823 |
(defmacro with-temp-file (file &rest body) |
(defmacro with-temp-file (file &rest body) |