bug#8865: 24.0.50; `display-buffer' does not respect `pop-up-frames'

["Drew Adams" <drew.adams@oracle.com>]

[-- Attachment #1: Type: text/plain, Size: 480 bytes --]

FYI - This bug is fixed by the second version of window that you sent me today,
Martin.

To see that it is fixed, load the attached file after emacs -Q, then do this
(same recipe as originally):

M-x find-library-other-window RET frame.el RET

Buffer frame.el is now shown in a separate frame, not just a separate window as
before your latest window.el.

(P.S. The attached file assumes your latest window.el is in the current
directory and named "window-2011-06-19a-MARTIN.el".)

[-- Attachment #2: throw-8865.el --]
[-- Type: application/octet-stream, Size: 958 bytes --]

; emacs -Q

(setq pop-up-frames t)
(require 'find-func)
(load-file "window-2011-06-19a-MARTIN.el")

(defun find-library-other-window (library)
  "Find the Emacs-Lisp source of LIBRARY in another window."
  (interactive
   (let* ((path (cons (or find-function-source-path load-path)
        (find-library-suffixes)))
   (def (if (eq (function-called-at-point) 'require)
     (save-excursion (backward-up-list)
                                   (forward-char)
                                   (backward-sexp -2)
                                   (thing-at-point 'symbol))
   (thing-at-point 'symbol))))
     (when def (setq def (and (locate-file-completion def path 'test) def)))
     (list (completing-read "Library name: " 'locate-file-completion
                            path nil nil nil def))))
  (let ((buf (find-file-noselect (find-library-name library))))
    (pop-to-buffer buf 'other-window)))

; M-x find-library-other-window RET frame.el RET