[Emacs-diffs] Changes to emacs/lisp/subr.el [lexbind]

[Miles Bader]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.307.2.13 emacs/lisp/subr.el:1.307.2.14
*** emacs/lisp/subr.el:1.307.2.13       Tue Jul  6 09:14:19 2004
--- emacs/lisp/subr.el  Tue Jul  6 09:31:50 2004
***************
*** 1804,1809 ****
--- 1804,1812 ----
    (declare (indent 1) (debug t))
    ;; Most of this code is a copy of save-selected-window.
    `(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))))
***************
*** 1815,1821 ****
              (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)
--- 1818,1823 ----