[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/window.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/window.el [emacs-unicode-2] |
Date: |
Mon, 28 Jun 2004 04:33:47 -0400 |
Index: emacs/lisp/window.el
diff -c emacs/lisp/window.el:1.89.6.1 emacs/lisp/window.el:1.89.6.2
*** emacs/lisp/window.el:1.89.6.1 Fri Apr 16 12:50:11 2004
--- emacs/lisp/window.el Mon Jun 28 07:28:48 2004
***************
*** 36,41 ****
--- 36,44 ----
However, if a window has become dead, don't get an error,
just refrain from reselecting it."
`(let ((save-selected-window-window (selected-window))
+ ;; It is necessary to save all of these, because calling
+ ;; select-window changes frame-selected-window for whatever
+ ;; frame that window is in.
(save-selected-window-alist
(mapcar (lambda (frame) (list frame (frame-selected-window frame)))
(frame-list))))
***************
*** 327,334 ****
(with-current-buffer (window-buffer)
(if view-mode
(let ((old-info (assq old-w view-return-to-alist)))
! (push (cons new-w (cons (and old-info (car (cdr old-info))) t))
! view-return-to-alist)))
new-w))
(defun split-window-horizontally (&optional arg)
--- 330,338 ----
(with-current-buffer (window-buffer)
(if view-mode
(let ((old-info (assq old-w view-return-to-alist)))
! (if old-info
! (push (cons new-w (cons (car (cdr old-info)) t))
! view-return-to-alist))))
new-w))
(defun split-window-horizontally (&optional arg)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/window.el [emacs-unicode-2],
Miles Bader <=