# HG changeset patch
# User stephent
# Date 1056965087 0
# Node ID 5365af805d4c0d3c1e2f53092b1f4031e0826339
# Parent  427e5c57da6eb662c1187630f867c1c0ec22bfd3
[xemacs-hg @ 2003-06-30 09:24:47 by stephent]
maybe compile docstring as value <87n0fz9ax2.fsf@tleepslib.sk.tsukuba.ac.jp>

diff -r 427e5c57da6e -r 5365af805d4c lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jun 30 09:12:28 2003 +0000
+++ b/lisp/ChangeLog	Mon Jun 30 09:24:47 2003 +0000
@@ -1,3 +1,8 @@
+2003-06-17  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* bytecomp.el (byte-compile-lambda): Discard docstring only if it
+	is not also the value of the lambda.
+
 2003-06-13  Adrian Aichner  <adrian@xemacs.org>
 
 	* setup-paths.el (paths-emacs-root-p): Don't insist in lib-src
diff -r 427e5c57da6e -r 5365af805d4c lisp/bytecomp.el
--- a/lisp/bytecomp.el	Mon Jun 30 09:12:28 2003 +0000
+++ b/lisp/bytecomp.el	Mon Jun 30 09:24:47 2003 +0000
@@ -2453,7 +2453,10 @@
 	 (body (cdr (cdr fun)))
 	 (doc (if (stringp (car body))
 		  (prog1 (car body)
-		    (setq body (cdr body)))))
+		    ;; Discard the doc string
+		    ;; only if it is not the only element of the body.
+		    (if (cdr body)
+			(setq body (cdr body))))))
 	 (int (assq 'interactive body)))
     (dolist (arg arglist)
       (cond ((not (symbolp arg))