comparison lisp/help.el @ 32682:e58e4340d7e0

(resize-temp-buffer-window): Use `mode-line-window-height-fudge'.

32681:569ef1445e17

              (not (pos-visible-in-window-p (point-min)))
              (/=  (frame-width) (window-width)))
    (let* ((max-height (if (functionp temp-buffer-max-height)
                           (funcall temp-buffer-max-height (current-buffer))
                         temp-buffer-max-height))
           (win-height (1- (window-height)))
           (min-height (1- window-min-height))
           (text-height (count-screen-lines))
           (new-height (max (min text-height max-height) min-height)))
      (when (display-graphic-p)
	;; This egregious hack is because mode-lines on graphics
	;; displays often use faces that make them more than one `line'
	;; high, and so obscure the last line of the window proper.
	(setq win-height (1- win-height)))
      (enlarge-window (- new-height win-height)))))

;; `help-manyarg-func-alist' is defined primitively (in doc.c).
;; New primitives with `MANY' or `UNEVALLED' arglists should be added
;; to this alist.

32682:e58e4340d7e0

              (not (pos-visible-in-window-p (point-min)))
              (/=  (frame-width) (window-width)))
    (let* ((max-height (if (functionp temp-buffer-max-height)
                           (funcall temp-buffer-max-height (current-buffer))
                         temp-buffer-max-height))
           (win-height (- (window-height)
			  (mode-line-window-height-fudge)
			  1))
           (min-height (1- window-min-height))
           (text-height (count-screen-lines))
           (new-height (max (min text-height max-height) min-height)))
      (enlarge-window (- new-height win-height)))))

;; `help-manyarg-func-alist' is defined primitively (in doc.c).
;; New primitives with `MANY' or `UNEVALLED' arglists should be added
;; to this alist.