# HG changeset patch # User Stefan Monnier # Date 1085783615 0 # Node ID 093305d9b188414f0b7349607be3a050c222ee64 # Parent d8ee27fc17e913f480833906cc5193ad79061a2e (with-selected-window): Only save/restore the selectd window. diff -r d8ee27fc17e9 -r 093305d9b188 lisp/subr.el --- a/lisp/subr.el Fri May 28 22:28:09 2004 +0000 +++ b/lisp/subr.el Fri May 28 22:33:35 2004 +0000 @@ -1796,20 +1796,11 @@ This does not alter the buffer list ordering. See also `with-temp-buffer'." (declare (indent 1) (debug t)) - ;; Most of this code is a copy of save-selected-window. - `(let ((save-selected-window-window (selected-window)) - (save-selected-window-alist - (mapcar (lambda (frame) (list frame (frame-selected-window frame))) - (frame-list)))) + `(let ((save-selected-window-window (selected-window))) (unwind-protect (progn (select-window ,window 'norecord) ,@body) - (dolist (elt save-selected-window-alist) - (and (frame-live-p (car elt)) - (window-live-p (cadr elt)) - (set-frame-selected-window (car elt) (cadr elt)))) (if (window-live-p save-selected-window-window) - ;; This is where the code differs from save-selected-window. (select-window save-selected-window-window 'norecord))))) (defmacro with-temp-file (file &rest body)