On 6/23/05, Emilio Lopes <[EMAIL PROTECTED]> wrote:
> Don't know if it helps you, but I have the following in my "~/.emacs" and it
> seems to work:
>
> (defun occur-shrink-window ()
> "*Shrink the \"*Occur*\" window as much as possible to display its
> contents."
> (let ((win (get-buffer-window "*Occur*")))
> (when (windowp win)
> (shrink-window-if-larger-than-buffer win))))
> (add-hook 'occur-hook 'occur-shrink-window)
I have something similar:
(defun lk-fit-window (&optional buffer min-height)
"Resize window showing BUFFER to fit its contents."
(interactive)
(fit-window-to-buffer (get-buffer-window (or buffer (current-buffer)))
(if (integerp max-mini-window-height)
max-mini-window-height
(floor (* (frame-height) max-mini-window-height)))
(or min-height 2)))
(add-hook 'occur-hook #'lk-fit-window)
I use lk-fit-window at other places on my .emacs, that's why it is
more complex than needed just for `occur-hook'.
The issue is that `fit-window-to-buffer', when called from
`occur-hook', changes the current buffer. Puzzling. Not a problem now,
because I've wrapped the call in lk-fit-window with
`save-current-buffer', but still, it seems like a bug to me.
Just out of curiosity: do you usually work in a just-one-window
configuration? I don't like having to make C-x 1 continuously, so I've
set up help modes (and everything else that could be customized to do
so) to be "electric": use, press "q", and you're back to one window.
About the only time I use two windows is on inferior modes (when
running IELM, a Common Lisp, Haskell, MySQL, etc.), and even then I've
setup a way to show the inferior modes in a window (about a third of
the frame) on the lower, and I've set up F12 to switch between
bringing this window up and burying.
--
/L/e/k/t/u
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
