Mercurial > hg > xemacs-beta
changeset 1548:5365af805d4c
[xemacs-hg @ 2003-06-30 09:24:47 by stephent]
maybe compile docstring as value <87n0fz9ax2.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Mon, 30 Jun 2003 09:24:47 +0000 |
| parents | 427e5c57da6e |
| children | bc9eadea35cf |
| files | lisp/ChangeLog lisp/bytecomp.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))