aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMartin Rudalics2007-10-12 08:49:20 +0000
committerMartin Rudalics2007-10-12 08:49:20 +0000
commit40aa4c27cb7cac7ef2ff7a88c504cc2ae42da194 (patch)
tree5eab8ea94a26997b3c468719af4a9516683b7488 /lisp
parent5839d7e85ca7596071d459595f194f45027535df (diff)
downloademacs-40aa4c27cb7cac7ef2ff7a88c504cc2ae42da194.tar.gz
emacs-40aa4c27cb7cac7ef2ff7a88c504cc2ae42da194.zip
(set-frame-configuration): Assign name parameter only
if it has been set explicitly before.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/frame.el11
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fd351ce200..0f166360b10 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12007-10-12 Martin Rudalics <rudalics@gmx.at> 12007-10-12 Martin Rudalics <rudalics@gmx.at>
2 2
3 * frame.el (set-frame-configuration): Assign name parameter only
4 if it has been set explicitly before.
5
3 * window.el (handle-select-window): Revert part of 2007-10-06 6 * window.el (handle-select-window): Revert part of 2007-10-06
4 change setting the input focus. 7 change setting the input focus.
5 8
diff --git a/lisp/frame.el b/lisp/frame.el
index a169a8ec03c..cbdfa45d4f7 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -807,8 +807,15 @@ is given and non-nil, the unwanted frames are iconified instead."
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))))))