Re: New package `outline-occur'

Juri Linkov <[email protected]> writes:

>> 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)))))

Is it OK with you if I add the `display-buffer-bound-alist' changes to
the patch in Bug#81512 including you as co-authors?  I.e.

  Co-authored-by: Martin Rudalics <[email protected]>
  Co-authored-by: Juri Linkov <[email protected]>

Or do you prefer to commit that separately?

        Roi