36 |
However, if a window has become dead, don't get an error, |
However, if a window has become dead, don't get an error, |
37 |
just refrain from reselecting it." |
just refrain from reselecting it." |
38 |
`(let ((save-selected-window-window (selected-window)) |
`(let ((save-selected-window-window (selected-window)) |
39 |
|
;; It is necessary to save all of these, because calling |
40 |
|
;; select-window changes frame-selected-window for whatever |
41 |
|
;; frame that window is in. |
42 |
(save-selected-window-alist |
(save-selected-window-alist |
43 |
(mapcar (lambda (frame) (list frame (frame-selected-window frame))) |
(mapcar (lambda (frame) (list frame (frame-selected-window frame))) |
44 |
(frame-list)))) |
(frame-list)))) |