🚀 go-pugleaf

   I got this from Doug Bogia, who works in my lab (hi doug!):

(defun show-temp-buffer (target-buffer)
  (if
    (or
      ;; List of buffers that should get their own screen.
      (equal (buffer-name target-buffer) "*compilation*")
      (equal (buffer-name target-buffer) "*Help*")
    )
    (progn
      (let
        (
          (scr
            (car (epoch::screens-of-buffer target-buffer))
          )
          (xname (concat (buffer-name target-buffer) (sys-name)))
        )
        (when (null scr)
          (setq scr
            (create-screen
              target-buffer
              (list (cons 'title xname) (cons 'icon-name xname))
            )
          )
        )
        (mapraised-screen scr)
      )
    )
    ;; else
    (display-buffer target-buffer nil)
  )
)
(setq temp-buffer-show-hook 'show-temp-buffer)

  I put it in my .epoch file. It opens a new screen rather than a new window
for the *Help* and *compilation* buffers.

                                                        scott

-------------------------------------------------------------------------------
J. Scott Hofmann                        | "R2D2, you know better than
hofmann@cs.uiuc.edu (NeXTmail accepted) |  to trust a strange computer!"
Epoch development team, UIUC            |    -C3PO, _The Empire Strikes Back_