bug#55169: Can't combine window-min-height with window-height

[martin rudalics <rudalics@gmx.at>]

 >> You mean the value of a 'window-height' entry could also be a
 >>
 >>          • A list whose CAR is a function and whose remaining elements
 >>            are the arguments passed to that function.
 >>
 >> so we'd run
 >>
 >> 	    (ignore-errors (funcall (car height) window (nth 1 height) ...))
 >>
 >> in 'window--display-buffer'?  Which means the caller has to know the
 >> function and which arguments it needs in which order.  Sounds fragile.
 >
 > It is intended only for special handling of 'fit-window-to-buffer'.
 > If 'fit-window-to-buffer' with MIN-HEIGHT will really fix this problem,
 > then details of the entry format could be adapted later.
 > And indeed this works exactly as should with
 >
 > (pop-to-buffer (generate-new-buffer "*edit string*")
 >                   '(display-buffer-below-selected
 >                     (window-height . fit-window-to-buffer)))
 >
 > and an experimental patch:
 >
 > diff --git a/lisp/window.el b/lisp/window.el
 > index 9f78784612..a21cf109a4 100644
 > --- a/lisp/window.el
 > +++ b/lisp/window.el
 > @@ -7336,7 +7336,9 @@ window--display-buffer
 >   	         (window-resize window delta nil 'safe t)))
 >             (setq resize-temp-buffer-window-inhibit 'vertical))
 >            ((functionp height)
 > -	  (ignore-errors (funcall height window))
 > +	  (if (eq height 'fit-window-to-buffer)
 > +              (ignore-errors (funcall height window nil 10))
 > +            (ignore-errors (funcall height window)))
 >             (setq resize-temp-buffer-window-inhibit 'vertical)))
 >   	;; Adjust width of window if asked for.
 >   	(cond

This boils down to what I sketched above: ALIST must supply a list whose
car is 'fit-window-to-buffer' and 'window--display-buffer' supplies the
window used as first argument in its call to 'fit-window-to-buffer' and
the rest of the list as the remaining arguments.

martin