Regroup clauses in display-buffer-normalize-options (Bug#8851) and (Bug#8856).

* window.el (display-buffer-normalize-options): Move special-display-p
group after pop-up-frame group (Bug#8851) and (Bug#8856).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f3c0ea05727d35ae31175ee780af2f3f366e032..f268646cda28448e10c9ea67df55f0963ff7ba80 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -23,6 +23,8 @@
        (window-state-get-1, window-state-get, window-state-put-list)
        (window-state-put-1, window-state-put-2, window-state-put): New
        functions.
+       (display-buffer-normalize-options): Move special-display-p group
+       after pop-up-frame group (Bug#8851) and (Bug#8856).
 
 2011-06-18  Chong Yidong  <cyd@stupidchicken.com>
 

diff --git a/lisp/window.el b/lisp/window.el
index e79489e40b3b20a4e5ef2f3ebd800b3d5c520dad..5737b1ca7ade33e9ad02d4d12afaf7c1bf0f82d7 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5401,17 +5401,6 @@ options."
                            (cons 'largest fun) (cons 'lru fun))
                      specifiers))))
 
-      ;; `special-display-p' group.
-      (when special-display-function
-       ;; `special-display-p' returns either t or a list of frame
-       ;; parameters to pass to `special-display-function'.
-       (let ((pars (special-display-p buffer-name)))
-         (when pars
-           (setq specifiers
-                 (cons (list 'fun-with-args special-display-function
-                             (when (listp pars) pars))
-                       specifiers)))))
-
       ;; `pop-up-frame' group.  Add things if `pop-up-frames' is non-nil
       ;; (we ignore the problem that callers usually don't care about
       ;; graphic-only).
@@ -5425,6 +5414,17 @@ options."
        (setq specifiers
              (cons (list 'pop-up-frame pop-up-frames) specifiers)))
 
+      ;; `special-display-p' group.
+      (when special-display-function
+       ;; `special-display-p' returns either t or a list of frame
+       ;; parameters to pass to `special-display-function'.
+       (let ((pars (special-display-p buffer-name)))
+         (when pars
+           (setq specifiers
+                 (cons (list 'fun-with-args special-display-function
+                             (when (listp pars) pars))
+                       specifiers)))))
+
       ;; `same-window-p' group.
       (when (same-window-p buffer-name)
        ;; Try to reuse the same (selected) window.