mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(resize-temp-buffer-window): Use window-full-width-p

Browse Source 
instead of comparing frame-width and window-width.
This commit is contained in:
Martin Rudalics 2007-08-06 06:51:13 +00:00
parent 97958f7775
commit 2a5f11a2b0
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

4
lisp/help.el
View File

@ -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)