From xemacs-m  Mon Jul  7 21:25:23 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA13925
	for <xemacs-beta@xemacs.org>; Mon, 7 Jul 1997 21:25:21 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id TAA04632;
	Mon, 7 Jul 1997 19:24:44 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: hyper-apropos: corrected patch
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 07 Jul 1997 19:24:44 -0700
Message-ID: <87u3i62scz.fsf@bittersweet.inetarena.com>
Lines: 22
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta11) - "Stockholm"

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

	* packages/hyper-apropos.el (hyper-apropos-get-doc): Use
	`compiled-function-arglist' 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 01:37:42
@@ -735,7 +735,7 @@
 		 (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?\\'"

