/[emacs]/emacs/lisp/window.el
ViewVC logotype

Diff of /emacs/lisp/window.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.89.6.1 by handa, Fri Apr 16 12:50:11 2004 UTC revision 1.89.6.2 by miles, Mon Jun 28 07:28:48 2004 UTC
# Line 36  of this construct. Line 36  of this construct.
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))))
# Line 327  new mode line." Line 330  new mode line."
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)

Legend:
Removed from v.1.89.6.1  
changed lines
  Added in v.1.89.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26