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

Diff of /emacs/lisp/subr.el

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

revision 1.307.2.13 by miles, Tue Jul 6 09:14:19 2004 UTC revision 1.307.2.14 by miles, Tue Jul 6 09:31:50 2004 UTC
# Line 1804  See also `with-temp-buffer'." Line 1804  See also `with-temp-buffer'."
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))))
# Line 1815  See also `with-temp-buffer'." Line 1818  See also `with-temp-buffer'."
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)

Legend:
Removed from v.1.307.2.13  
changed lines
  Added in v.1.307.2.14

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