mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(fit-window-to-buffer): Fix previous change.

Browse Source
This commit is contained in:
Kenichi Handa 2000-11-16 06:33:25 +00:00
parent b1491763bb
commit edb08287fb
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/window.el
View File

@ -500,13 +500,11 @@ header-line."
(1- (point)) (1- (point))
(point)))))) (point))))))
(set-window-vscroll window 0) (set-window-vscroll window 0)
(prog1
(list desired-height max-height)
(while (and (< desired-height max-height) (while (and (< desired-height max-height)
(= desired-height (window-height window)) (= desired-height (window-height window))
(not (pos-visible-in-window-p end window t))) (not (pos-visible-in-window-p end window t)))
(enlarge-window 1) (enlarge-window 1)
(setq desired-height (1+ desired-height)))))))) (setq desired-height (1+ desired-height)))))))
(defun shrink-window-if-larger-than-buffer (&optional window) (defun shrink-window-if-larger-than-buffer (&optional window)
"Shrink the WINDOW to be as small as possible to display its contents. "Shrink the WINDOW to be as small as possible to display its contents.