From xemacs-m  Mon Jul  7 22:59:47 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 WAA14455
	for <xemacs-beta@xemacs.org>; Mon, 7 Jul 1997 22:59:44 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id VAA01005;
	Mon, 7 Jul 1997 21:02:30 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: [PATCH] compiled-function-doc-string
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 21:02:29 -0700
Message-ID: <m2wwn2w5re.fsf@altair.xemacs.org>
Lines: 41
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta12) - "Helsinki"

This is an important patch to Stockholm, please apply it if you are
having troubles with LOSING_BYTECODE.  Subsequent patches to fix
vector bytecode references will depend on it.

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

	* data.c (Fcompiled_function_doc_string): Implement correctly.
	Was forgotten cut & paste identical clone to
	Fcompiled_function_interactive?

Index: src/data.c
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/src/data.c,v
retrieving revision 1.8
diff -u -r1.8 data.c
--- data.c	1997/07/07 00:53:58	1.8
+++ data.c	1997/07/08 03:58:00
@@ -960,15 +960,14 @@
 
 DEFUN ("compiled-function-doc-string", Fcompiled_function_doc_string, 1, 1, 0, /*
 Return the doc string of the compiled-function object, if available.
+Functions that had their doc strings snarfed into the DOC file will have
+an integer returned instead of a string.
 */
        (function))
 {
   CHECK_COMPILED_FUNCTION (function);
-  if (!XCOMPILED_FUNCTION (function)->flags.interactivep)
-    return Qnil;
-  return (list2 (Qinteractive,
-		 compiled_function_interactive
-		 (XCOMPILED_FUNCTION (function))));
+
+  return compiled_function_documentation (XCOMPILED_FUNCTION (function));
 }
 
 #ifdef COMPILED_FUNCTION_ANNOTATION_HACK

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

