Mercurial > emacs
changeset 83129:b1ded6fb31d1
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sun, 23 May 2004 02:34:53 +0000 |
| parents | 2ccd88cfde01 |
| children | 20f9fa3c5131 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Sun May 23 02:26:21 2004 +0000 +++ b/lisp/faces.el Sun May 23 02:34:53 2004 +0000 @@ -1764,12 +1764,10 @@ `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 @@ (modify-frame-parameters frame '((interprogram-paste-function . nil))) (setq success t)) (unless success - (select-frame old-frame) (delete-frame frame))) frame))