Use with-selected-frame.

lisp/faces.el (tty-create-frame-with-faces): Use with-selected-frame.

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

1 files changed, 2 insertions, 5 deletions

diff --git a/lisp/faces.el b/lisp/faces.el
index 7bcaf7b6f01..06b5ec3fc97 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1764,12 +1764,10 @@ Parameters not specified by PARAMETERS are taken from
 `default-frame-alist'.  If either PARAMETERS or `default-frame-alist'
 contains a `reverse' parameter, handle that.  Value is the new frame
 created."
-  (let ((old-frame (selected-frame))
-        (frame (make-terminal-frame parameters))
+  (let ((frame (make-terminal-frame parameters))
         success)
     (unwind-protect
-        (progn
-          (select-frame frame)
+        (with-selected-frame frame
           (tty-handle-reverse-video frame (frame-parameters frame))
           (frame-set-background-mode frame)
           (face-set-after-frame-default frame)
@@ -1790,7 +1788,6 @@ created."
           (modify-frame-parameters frame '((interprogram-paste-function . nil)))
           (setq success t))
       (unless success
-        (select-frame old-frame)
         (delete-frame frame)))
     frame))