--- a/lisp/prim/help.el	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/prim/help.el	Mon Aug 13 09:23:06 2007 +0200
@@ -344,8 +344,6 @@
 This just displays the buffer in another window, rather than selecting
 the window.")
 
-(defvar help-window-max-height .5
-  "*Proportion of frame to use for help windows.")
 ;; Use this function for displaying help when C-h something is pressed
 ;; or in similar situations.  Do *not* use it when you are displaying
 ;; a help message and then prompting for input in the minibuffer --
@@ -387,14 +385,7 @@
                       (substitute-command-keys "Type \\[delete-other-windows] to remove help window, \\[scroll-other-window] to scroll the help.")))
                     (t
                      (message
-                      (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help."))))
-	      (when temp-buffer-shrink-to-fit
-		(let* ((help-window-size (round (* help-window-max-height
-					    (frame-height (window-frame helpwin)))))
-		       (size (window-displayed-height helpwin)))
-		  (if (< size help-window-size)
-		      (enlarge-window (- help-window-size size) nil helpwin)))
-		(shrink-window-if-larger-than-buffer helpwin))))))))
+                      (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help."))))))))))
 
 (defun describe-key (key)
   "Display documentation of the function invoked by KEY.