From xemacs-m  Tue Jul  8 12:03:17 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 MAA18900
	for <xemacs-beta@xemacs.org>; Tue, 8 Jul 1997 12:03:16 -0500 (CDT)
Received: (from hniksic@localhost)
	by jagor.srce.hr (8.8.6/8.8.6) id TAA02293;
	Tue, 8 Jul 1997 19:03:15 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Cc: bugs@gnus.org
Subject: [PATCH] Smallpox in Gnus
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 19:03:15 +0200
Message-ID: <kig90zha33g.fsf@jagor.srce.hr>
Lines: 34
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta11) - "Stockholm"

This patch passes my tests, but I haven't actually tried to /use/ this 
feature.


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

	* gnus-util.el (gnus-byte-code): Use accessor functions for
	compiled-function type, where available.

--- lisp/gnus/gnus-util.el.orig	Tue Jul  8 18:51:30 1997
+++ lisp/gnus/gnus-util.el	Tue Jul  8 19:00:51 1997
@@ -147,7 +147,14 @@
   "Return a form that can be `eval'ed based on FUNC."
   (let ((fval (symbol-function func)))
     (if (compiled-function-p fval)
-	(let ((flist (append fval nil)))
+	(let ((flist (if (fboundp 'compiled-function-arglist)
+			 (list (compiled-function-arglist fval)
+			       (compiled-function-instructions fval)
+			       (compiled-function-constants fval)
+			       (compiled-function-stack-depth fval)
+			       (compiled-function-doc-string fval)
+			       (car (cdr (compiled-function-interactive fval))))
+		       append fval nil)))
 	  (setcar flist 'byte-code)
 	  flist)
       (cons 'progn (cddr fval)))))


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Contrary to popular belief, Unix is user friendly.  
It just happens to be selective about who it makes friends with.

