From xemacs-m  Tue Jul  8 00:12:40 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 AAA16474
	for <xemacs-beta@xemacs.org>; Tue, 8 Jul 1997 00:12:39 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id WAA01872;
	Mon, 7 Jul 1997 22:15:27 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: [PATCH] Removing LOSING_BYTECODE from apropos.el
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>
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 07 Jul 1997 22:15:27 -0700
Message-ID: <m2iuymw2ds.fsf@altair.xemacs.org>
Lines: 33
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta12) - "Helsinki"

This requires the patch I previously posted to src/data.c to work
properly.

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

	* packages/apropos.el (apropos-safe-documentation): Use
	`compiled-function-doc-string' instead of referencing a bytecode
	object as an array.

Index: lisp/packages/apropos.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/packages/apropos.el,v
retrieving revision 1.6
diff -u -r1.6 apropos.el
--- apropos.el	1997/05/18 03:40:03	1.6
+++ apropos.el	1997/07/08 05:05:56
@@ -465,8 +465,10 @@
       (setq function (cdr function)))
   ;; XEmacs change from: (setq function (if (byte-code-function-p function)
   (setq function (if (compiled-function-p function)
-		     (if (> (length function) 4)
-			 (aref function 4))
+		     (if (fboundp 'compiled-function-doc-string)
+			 (compiled-function-doc-string function)
+		       (if (> (length function) 4)
+			   (aref function 4)))
 		   (if (eq (car-safe function) 'autoload)
 		       (nth 2 function)
 		     (if (eq (car-safe function) 'lambda)

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

