Mercurial > emacs
comparison lisp/frame.el @ 79050:1a92b80c7fa2
(set-frame-configuration): Assign name parameter only
if it has been set explicitly before.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Fri, 12 Oct 2007 08:40:56 +0000 |
| parents | b6585f51bde9 |
| children | 73661ddc7ac7 591c29778a30 |
comparison
equal
deleted
inserted
replaced
| 79049:257d07b87d1c | 79050:1a92b80c7fa2 |
|---|---|
| 805 (modify-frame-parameters | 805 (modify-frame-parameters |
| 806 frame | 806 frame |
| 807 ;; Since we can't set a frame's minibuffer status, | 807 ;; Since we can't set a frame's minibuffer status, |
| 808 ;; we might as well omit the parameter altogether. | 808 ;; we might as well omit the parameter altogether. |
| 809 (let* ((parms (nth 1 parameters)) | 809 (let* ((parms (nth 1 parameters)) |
| 810 (mini (assq 'minibuffer parms))) | 810 (mini (assq 'minibuffer parms)) |
| 811 (if mini (setq parms (delq mini parms))) | 811 (name (assq 'name parms)) |
| 812 (explicit-name (cdr (assq 'explicit-name parms)))) | |
| 813 (when mini (setq parms (delq mini parms))) | |
| 814 ;; Leave name in iff it was set explicitly. | |
| 815 ;; This should fix the behavior reported in | |
| 816 ;; http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg01632.html | |
| 817 (when (and name (not explicit-name)) | |
| 818 (setq parms (delq name parms))) | |
| 812 parms)) | 819 parms)) |
| 813 (set-window-configuration (nth 2 parameters))) | 820 (set-window-configuration (nth 2 parameters))) |
| 814 (setq frames-to-delete (cons frame frames-to-delete)))))) | 821 (setq frames-to-delete (cons frame frames-to-delete)))))) |
| 815 (frame-list)) | 822 (frame-list)) |
| 816 (if nodelete | 823 (if nodelete |