From xemacs-m  Mon Jul  7 21:23:07 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA13891
	for <xemacs-beta@xemacs.org>; Mon, 7 Jul 1997 21:23:05 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id EAA14758; Tue, 8 Jul 1997 04:23:05 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: [PATCH] Re: Hyper! Hyper!
References: <rxsyb7jnqnm.fsf@midnight.ecf.teradyne.com> <m2pvsuxqmk.fsf@altair.xemacs.org>
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 08 Jul 1997 04:23:05 +0200
In-Reply-To: Steven L Baur's message of "07 Jul 1997 18:46:27 -0700"
Message-ID: <kigwwn2s2nq.fsf@jagor.srce.hr>
Lines: 57
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta11) - "Stockholm"

Steven L Baur <steve@xemacs.org> writes:

> I think this about does it for hyper-apropos.el wrt LOSING_BYTECODE
> problems.
> 
> 1997-07-07  Steven L Baur  <steve@altair.xemacs.org>
> 
> 	* packages/hyper-apropos.el (hyper-apropos-get-doc): Use
> 	`documentation' function instead of indexing into bytecode.

I believe this chunk is trying to get the arglist, not the
documentation.  Also, this function is internal, so I removed the
autoload and the function alias.  The correct patch looks like this, I
believe:

1997-07-08  Hrvoje Niksic  <hniksic@srce.hr>

	* packages/hyper-apropos.el (hyper-apropos-get-doc): Don't refer
	to bytecode as to a vector.
	(hyper-apropos-get-doc): Don't autoload.

--- lisp/packages/hyper-apropos.el.orig	Tue Jul  8 04:14:29 1997
+++ lisp/packages/hyper-apropos.el	Tue Jul  8 04:18:33 1997
@@ -625,7 +625,6 @@
 				  "',\nwhich is an alias for `")
 		       "'")))))
 
-;;;###autoload
 (defun hyper-apropos-get-doc (&optional symbol force type this-ref-buffer)
   ;; #### - update this docstring
   "Toggle display of documentation for the symbol on the current line."
@@ -735,7 +734,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?\\'"
@@ -970,9 +969,6 @@
 	(display-buffer (current-buffer)))
       (hyper-apropos-help-mode))
     (setq hyper-apropos-currently-showing symbol)))
-;;;###autoload
-(define-obsolete-function-alias
-  'hypropos-get-doc 'hyper-apropos-get-doc)
 
 ; -----------------------------------------------------------------------------
 


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Then...  his face does a complete change of expression.  It goes from
a "Vengeance is mine" expression, to a "What the fuck" blank look.

