Re: list-buffers - winwod-height

[Rares Vernica]

I guess I can extend this to other secondary buffers, like *Help* or 
*Python Output*.

Is there a way to uniformly specify the default height of a secondary 
buffer like these?

Thanks,
Ray

Kevin Rodgers wrote:
> Katsumi Yamaoka wrote:
> > > > > > > In <e0rp4e$11a$1@news.service.uci.edu> Rares Vernica wrote:
> >
> >
> > > How can I set the default height of the list-buffers window?
> >
> >
> > There seems to be no way other than using your own command.
> > How about this?
> >
> > --8<---------------cut here---------------start------------->8---
> > (setq my-list-buffers-window-height 16)
> >
> > (defun my-list-buffers (&optional files-only)
> >   (interactive "P")
> >   (let ((buffer (list-buffers-noselect files-only)))
> >     (display-buffer buffer)
> >     (enlarge-window (max (- (window-height (get-buffer-window buffer))
> >                 my-list-buffers-window-height)
> >              (- window-min-height (window-height))))))
> >
> > (substitute-key-definition 'list-buffers 'my-list-buffers global-map)
> > --8<---------------cut here---------------end--------------->8---
> >
> > Otherwise, you can use the `special-display-buffer-names'
> > variable if you'd like to pop up a frame.  For example:
> >
> > (add-to-list 'special-display-buffer-names
> >          '("*Buffer List*" (height . 16) (width . 80)))
>
> Here's another way to implement that:
>
> (defvar list-buffers-window-height 16)
>
> (defadvice list-buffers (after window-height activate)
>   "Make the *Buffer List* window `list-buffers-window-height' lines high."
>   (when (interactive-p)
>     (enlarge-window (max (- (window-height (get-buffer-window "*Buffer 
> List*"))
>                 list-buffers-window-height)
>              (- window-min-height (window-height))))))