]> git.eshelyaron.com Git - emacs.git/commitdiff
Merged from miles@gnu.org--gnu-2005 (patch 447-448)
authorKaroly Lorentey <lorentey@elte.hu>
Sun, 26 Jun 2005 21:12:57 +0000 (21:12 +0000)
committerKaroly Lorentey <lorentey@elte.hu>
Sun, 26 Jun 2005 21:12:57 +0000 (21:12 +0000)
Patches applied:

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-447
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-448
   Update from CVS

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-360

1  2 
lisp/cus-face.el
lisp/faces.el
lisp/simple.el
lisp/subr.el
src/dispextern.h
src/fileio.c
src/lread.c
src/xdisp.c
src/xfns.c

Simple merge
diff --cc lisp/faces.el
Simple merge
diff --cc lisp/simple.el
Simple merge
diff --cc lisp/subr.el
index 113ba4239e0bc7fd915f67d35b985c8596a12bc6,7b6c56847f9abb9ab3f3e8398ceca3fad04d291a..c7b565d48f50b1f2bf0f5db92937d2e2c91b073e
@@@ -1734,28 -1738,17 +1738,29 @@@ See also `with-temp-buffer'.
         (save-selected-window-alist
          (mapcar (lambda (frame) (list frame (frame-selected-window frame)))
                  (frame-list))))
-      (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)
-          (select-window save-selected-window-window 'norecord)))))
+      (save-current-buffer
+        (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)
+            (select-window save-selected-window-window 'norecord))))))
  
 +(defmacro with-selected-frame (frame &rest body)
 +  "Execute the forms in BODY with FRAME as the selected frame.
 +The value returned is the value of the last form in BODY.
 +See also `with-temp-buffer'."
 +  (declare (indent 1) (debug t))
 +  `(let ((save-selected-frame (selected-frame)))
 +     (unwind-protect
 +       (progn (select-frame ,frame)
 +              ,@body)
 +       (if (frame-live-p save-selected-frame)
 +         (select-frame save-selected-frame)))))
 +
  (defmacro with-temp-file (file &rest body)
    "Create a new buffer, evaluate BODY there, and write the buffer to FILE.
  The value returned is the value of the last form in BODY.
Simple merge
diff --cc src/fileio.c
Simple merge
diff --cc src/lread.c
Simple merge
diff --cc src/xdisp.c
Simple merge
diff --cc src/xfns.c
Simple merge