From xemacs-m  Mon Jul  7 21:28:24 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA13964
	for <xemacs-beta@xemacs.org>; Mon, 7 Jul 1997 21:28:21 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id TAA32010;
	Mon, 7 Jul 1997 19:30:52 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: [PATCH] Re: Hyper! Hyper!
References: <rxsyb7jnqnm.fsf@midnight.ecf.teradyne.com> <m2pvsuxqmk.fsf@altair.xemacs.org> <87vi2m2suy.fsf@bittersweet.inetarena.com>
X-Url: http://www.miranova.com/%7Esteve/
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@xemacs.org>
In-Reply-To: karlheg+xemacs@inetarena.com's message of "07 Jul 1997 19:13:57 -0700"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 07 Jul 1997 19:30:52 -0700
Message-ID: <m2bu4exokj.fsf@altair.xemacs.org>
Lines: 36
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta12) - "Helsinki"

Karl M Hegbloom <karlheg> writes:

> Is that what it's supposed to show?

Er, um, no.

How about this patch instead?

1997-07-07  Steven L Baur  <steve@altair.xemacs.org>

	* packages/hyper-apropos.el (hyper-apropos-get-doc): Get the
	argument list through a function instead of indexing into
	bytecode.


Index: lisp/packages/hyper-apropos.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/packages/hyper-apropos.el,v
retrieving revision 1.10
diff -u -r1.10 hyper-apropos.el
--- hyper-apropos.el	1997/06/29 23:13:07	1.10
+++ hyper-apropos.el	1997/07/08 02:28:08
@@ -735,7 +735,8 @@
 		 (cond ((eq symtype 'lambda)
 			(princ (or (nth 1 newsym) "()")))
 		       ((eq symtype 'bytecode)
-			(princ (or (aref newsym 0) "()")))
+			(princ (or (compiled-function-arglist newsym)
+				   "()")))
 		       ((and (eq symtype 'subr)
 			     (string-match
 			      "[\n\t ]*\narguments: ?\\((.*)\\)\n?\\'"

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

