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)))) |
330 |
(with-current-buffer (window-buffer) |
(with-current-buffer (window-buffer) |
331 |
(if view-mode |
(if view-mode |
332 |
(let ((old-info (assq old-w view-return-to-alist))) |
(let ((old-info (assq old-w view-return-to-alist))) |
333 |
(push (cons new-w (cons (and old-info (car (cdr old-info))) t)) |
(if old-info |
334 |
view-return-to-alist))) |
(push (cons new-w (cons (car (cdr old-info)) t)) |
335 |
|
view-return-to-alist)))) |
336 |
new-w)) |
new-w)) |
337 |
|
|
338 |
(defun split-window-horizontally (&optional arg) |
(defun split-window-horizontally (&optional arg) |