diff options
| author | Martin Rudalics | 2007-10-12 08:49:20 +0000 |
|---|---|---|
| committer | Martin Rudalics | 2007-10-12 08:49:20 +0000 |
| commit | 40aa4c27cb7cac7ef2ff7a88c504cc2ae42da194 (patch) | |
| tree | 5eab8ea94a26997b3c468719af4a9516683b7488 /lisp | |
| parent | 5839d7e85ca7596071d459595f194f45027535df (diff) | |
| download | emacs-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/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/frame.el | 11 |
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 @@ | |||
| 1 | 2007-10-12 Martin Rudalics <rudalics@gmx.at> | 1 | 2007-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)))))) |