From fb4302f6995aa7d98fde76274a58f9e304371f71 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 28 May 2004 22:33:35 +0000 Subject: [PATCH] (with-selected-window): Only save/restore the selectd window. --- lisp/subr.el | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 5302558d834..b9e14ade288 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1796,20 +1796,11 @@ The value returned is the value of the last form in BODY. 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) -- 2.39.5