Re: New package `outline-occur'

> How would this be used when popping up the *Occur* buffer?  Like
>
> (let* ((display-buffer-bound-alist
> 	'(("\\*Occur\\*" (display-buffer-at-bottom)
> 	   (window-height . fit-window-to-buffer))))
>        ((occur-hook (lambda () (pop-to-buffer "*Occur*")))))

More like this:

(defun occur-outline (regexp &optional nlines region)
  (interactive (occur-read-primary-args))
  (let ((display-buffer-bound-alist
         (append `(((category . occur)
                    nil
                    (post-command-select-window . t)))
                 display-buffer-bound-alist)))
    (occur-1 regexp nlines (list (current-buffer)))))