From xemacs-m  Fri Dec 27 12:42:16 1996
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id MAA00910 for <xemacs-beta@xemacs.org>; Fri, 27 Dec 1996 12:42:15 -0600 (CST)
Received: (from steve@localhost)
          by altair.xemacs.org (8.8.4/8.8.4)
	  id KAA27068; Fri, 27 Dec 1996 10:51:50 -0800
Sender: steve@xemacs.org
To: xemacs-beta@xemacs.org
Subject: Re: bug with help-for-help in 19.15b4
References: <9612271745.AA16738@euler.alphatech.com>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: greg@alphatech.com's message of Fri, 27 Dec 1996 12:45:55 -0500
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: text/plain; charset=US-ASCII
Date: 27 Dec 1996 10:51:46 -0800
Message-ID: <m2k9q33jnh.fsf@altair.xemacs.org>
Lines: 55
X-Mailer: Red Gnus v0.72/XEmacs 20.0

>>>>> "Greg" == Greg Klanderman <greg@alphatech.com> writes:

Greg> If I do xemacs -q then type:

Greg> C-h ? ? b q C-h ? ? b

Greg> I get:

Greg> Signaling: (beginning-of-buffer)
Greg>   signal(beginning-of-buffer nil)

We have too many help keys.

This patch includes the patch to automatically shrink the help window.

Index: help.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/prim/help.el,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 help.el
--- help.el	1996/12/18 22:51:00	1.1.1.2
+++ help.el	1996/12/27 18:39:58
@@ -380,7 +380,8 @@
                       (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."))))))))))
+                      (substitute-command-keys "Type \\[switch-to-buffer-other-window] to restore the other window, \\[scroll-other-window] to scroll the help."))))
+	      (shrink-window-if-larger-than-buffer helpwin)))))))
 
 (defun describe-key (key)
   "Display documentation of the function invoked by KEY.
@@ -680,12 +681,14 @@
 		     (eq char ? )
 		     (eq 'scroll-up (key-binding event))
 		     (eq char ?\177)
-		     (eq 'scroll-down (key-binding event)))
+		     (and (not (eq char ?b))
+			  (eq 'scroll-down (key-binding event))))
 	    (if (or (eq char ? )
 		    (eq 'scroll-up (key-binding event)))
 		(scroll-up))
 	    (if (or (eq char ?\177)
-		    (eq 'scroll-down (key-binding event)))
+		    (and (not (eq char ?b))
+			 (eq 'scroll-down (key-binding event))))
 		(scroll-down))
 	    ;; write this way for I18N3 snarfing
 	    (if (pos-visible-in-window-p (point-max))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
"That Bill Clinton.  He probably doesn't know how to log on to the
Internet."  -- Rush Limbaugh, noted Computer Expert

