diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2007-08-06 06:51:13 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2007-08-06 06:51:13 +0000 |
| commit | 2a5f11a2b076479b66f65f698af4fbb09cc57282 (patch) | |
| tree | bdb4885e4816e3bfb7a71e8c63f93bb0c27310c4 /lisp | |
| parent | 97958f77753833122cf38500fd1694307647854d (diff) | |
| download | emacs-2a5f11a2b076479b66f65f698af4fbb09cc57282.tar.gz | |
(resize-temp-buffer-window): Use window-full-width-p
instead of comparing frame-width and window-width.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4dd70c7eff8..39c2cd1fdcf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-08-06 Martin Rudalics <rudalics@gmx.at> + + * help.el (resize-temp-buffer-window): Use window-full-width-p + instead of comparing frame-width and window-width. + 2007-08-05 Peter Povinec <ppovinec <at> yahoo.com> (tiny change) * term.el: Honor term-default-fg-color and term-default-bg-color diff --git a/lisp/help.el b/lisp/help.el index f75e26f93e6..4a94fd35bc7 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -958,14 +958,14 @@ This applies to `help', `apropos' and `completion' buffers, and some others." (remove-hook 'temp-buffer-show-hook 'resize-temp-buffer-window))) (defun resize-temp-buffer-window () - "Resize the current window to fit its contents. + "Resize the selected window to fit its contents. Will not make it higher than `temp-buffer-max-height' nor smaller than `window-min-height'. Do nothing if it is the only window on its frame, if it is not as wide as the frame or if some of the window's contents are scrolled out of view." (unless (or (one-window-p 'nomini) (not (pos-visible-in-window-p (point-min))) - (/= (frame-width) (window-width))) + (not (window-full-width-p))) (fit-window-to-buffer (selected-window) (if (functionp temp-buffer-max-height) |