From xemacs-m  Mon Mar 17 15:40:25 1997
Received: from mail.cis.ohio-state.edu (mail.cis.ohio-state.edu [164.107.8.55])
	by xemacs.org (8.8.5/8.8.5) with SMTP id PAA18281
	for <xemacs-beta@xemacs.org>; Mon, 17 Mar 1997 15:40:24 -0600 (CST)
Received: from calico.cis.ohio-state.edu (calico.cis.ohio-state.edu [164.107.142.11]) by mail.cis.ohio-state.edu (8.6.7/8.6.4) with ESMTP id QAA10332; Mon, 17 Mar 1997 16:40:07 -0500
Received: (ware@localhost) by calico.cis.ohio-state.edu (8.8.0/8.6.4) id QAA09693; Mon, 17 Mar 1997 16:40:07 -0500 (EST)
To: xemacs-beta@xemacs.org
Subject: Patch that allows help to increase size
From: Pete Ware <ware@cis.ohio-state.edu>
Date: 17 Mar 1997 16:40:05 -0500
Message-ID: <vwmhgiaxkne.fsf@calico.cis.ohio-state.edu>
Lines: 30
X-Mailer: Gnus v5.4.26/XEmacs 19.15(beta99)

The following patch allows the help buffer to increase in size
(before, it only decreased).  It adds a variable,
help-window-max-height, which indicates the maximum proportion of a
frame to use for help.  The default value is 0.5 (half the frame).

--pete

--- lisp/prim/help.el.orig	Mon Mar 17 15:59:31 1997
+++ lisp/prim/help.el	Mon Mar 17 16:27:17 1997
@@ -349,7 +349,8 @@
 the window.")
 
 (defvar help-window-config nil)
-
+(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 --
@@ -384,6 +385,10 @@
                      (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)))
+		  (enlarge-window (- help-window-size size) nil helpwin))
 		(shrink-window-if-larger-than-buffer helpwin))))))))
 
 (defun describe-key (key)

