diff options
| -rw-r--r-- | lisp/frame.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index b7553517240..5902e262de7 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -351,7 +351,14 @@ configuration, and other parameters set as specified in CONFIGURATION." | |||
| 351 | (let ((parameters (assq frame config-alist))) | 351 | (let ((parameters (assq frame config-alist))) |
| 352 | (if parameters | 352 | (if parameters |
| 353 | (progn | 353 | (progn |
| 354 | (modify-frame-parameters frame (nth 1 parameters)) | 354 | (modify-frame-parameters |
| 355 | frame | ||
| 356 | ;; Since we can't set a frame's minibuffer status, | ||
| 357 | ;; we might as well omit the parameter altogether. | ||
| 358 | (let* ((parms (nth 1 parameters)) | ||
| 359 | (mini (assq 'minibuffer parms))) | ||
| 360 | (if mini (setq parms (delq mini parms))) | ||
| 361 | parms)) | ||
| 355 | (set-window-configuration (nth 2 parameters))) | 362 | (set-window-configuration (nth 2 parameters))) |
| 356 | (setq frames-to-delete (cons frame frames-to-delete)))))) | 363 | (setq frames-to-delete (cons frame frames-to-delete)))))) |
| 357 | (frame-list)) | 364 | (frame-list)) |