Mercurial > emacs
comparison lisp/frame.el @ 4360:ea004f01b2d8
* frame.el (frame-notice-user-settings): If we had to create a new
frame in order to obey initial-frame-alist, use delete-frame's
FORCE argument to get rid of the old frame even if the new one
hasn't been mapped yet.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 31 Jul 1993 00:21:33 +0000 |
| parents | a39dcf68a29c |
| children | 1b48826df9cb |
comparison
equal
deleted
inserted
replaced
| 4359:7aae955c725b | 4360:ea004f01b2d8 |
|---|---|
| 227 ;; Redirect events enqueued at this frame to the new frame. | 227 ;; Redirect events enqueued at this frame to the new frame. |
| 228 ;; Is this a good idea? | 228 ;; Is this a good idea? |
| 229 (redirect-frame-focus frame-initial-frame new) | 229 (redirect-frame-focus frame-initial-frame new) |
| 230 | 230 |
| 231 ;; Finally, get rid of the old frame. | 231 ;; Finally, get rid of the old frame. |
| 232 (delete-frame frame-initial-frame)) | 232 (delete-frame frame-initial-frame t)) |
| 233 | 233 |
| 234 ;; Otherwise, we don't need all that rigamarole; just apply | 234 ;; Otherwise, we don't need all that rigamarole; just apply |
| 235 ;; the new parameters. | 235 ;; the new parameters. |
| 236 (let (newparms allparms tail) | 236 (let (newparms allparms tail) |
| 237 (setq allparms (append initial-frame-alist | 237 (setq allparms (append initial-frame-alist |