diff options
| author | Miles Bader | 2000-10-17 11:08:03 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-10-17 11:08:03 +0000 |
| commit | 61dfccfd5d8d89e628b7fd953dea717a01f70b1c (patch) | |
| tree | 397090cb6d26d8656d1f076bb669465c3f8be4dc | |
| parent | f7e383f09531290e81c5478f0b52295c402430c0 (diff) | |
| download | emacs-61dfccfd5d8d89e628b7fd953dea717a01f70b1c.tar.gz emacs-61dfccfd5d8d89e628b7fd953dea717a01f70b1c.zip | |
(resize-temp-buffer-window): Add hack to avoid last line
being obscured by whizzy mode-lines on graphical displays.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help.el | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7e0fac31ef..1da01327664 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2000-10-17 Miles Bader <miles@gnu.org> | ||
| 2 | |||
| 3 | * help.el (resize-temp-buffer-window): Add hack to avoid last line | ||
| 4 | being obscured by whizzy mode-lines on graphics displays. | ||
| 5 | |||
| 1 | 2000-10-17 Eli Zaretskii <eliz@is.elta.co.il> | 6 | 2000-10-17 Eli Zaretskii <eliz@is.elta.co.il> |
| 2 | 7 | ||
| 3 | * info.el (Info-title-1-face, Info-title-2-face) | 8 | * info.el (Info-title-1-face, Info-title-2-face) |
diff --git a/lisp/help.el b/lisp/help.el index d8225a835f5..2f84ce1cf1f 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -1470,6 +1470,11 @@ out of view." | |||
| 1470 | (min-height (1- window-min-height)) | 1470 | (min-height (1- window-min-height)) |
| 1471 | (text-height (count-screen-lines)) | 1471 | (text-height (count-screen-lines)) |
| 1472 | (new-height (max (min text-height max-height) min-height))) | 1472 | (new-height (max (min text-height max-height) min-height))) |
| 1473 | (when (display-graphic-p) | ||
| 1474 | ;; This egregious hack is because mode-lines on graphics | ||
| 1475 | ;; displays often use faces that make them more than one `line' | ||
| 1476 | ;; high, and so obscure the last line of the window proper. | ||
| 1477 | (setq win-height (1- win-height))) | ||
| 1473 | (enlarge-window (- new-height win-height))))) | 1478 | (enlarge-window (- new-height win-height))))) |
| 1474 | 1479 | ||
| 1475 | ;; `help-manyarg-func-alist' is defined primitively (in doc.c). | 1480 | ;; `help-manyarg-func-alist' is defined primitively (in doc.c). |