Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 1548:5365af805d4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 70921960b980
children 3776a1115180
comparison
equal deleted inserted replaced
1547:427e5c57da6e 1548:5365af805d4c
2451 (nconc new-bindings 2451 (nconc new-bindings
2452 (cons 'new-scope byte-compile-bound-variables)))) 2452 (cons 'new-scope byte-compile-bound-variables))))
2453 (body (cdr (cdr fun))) 2453 (body (cdr (cdr fun)))
2454 (doc (if (stringp (car body)) 2454 (doc (if (stringp (car body))
2455 (prog1 (car body) 2455 (prog1 (car body)
2456 (setq body (cdr body))))) 2456 ;; Discard the doc string
2457 ;; only if it is not the only element of the body.
2458 (if (cdr body)
2459 (setq body (cdr body))))))
2457 (int (assq 'interactive body))) 2460 (int (assq 'interactive body)))
2458 (dolist (arg arglist) 2461 (dolist (arg arglist)
2459 (cond ((not (symbolp arg)) 2462 (cond ((not (symbolp arg))
2460 (byte-compile-warn "non-symbol in arglist: %S" arg)) 2463 (byte-compile-warn "non-symbol in arglist: %S" arg))
2461 ((byte-compile-constant-symbol-p arg) 2464 ((byte-compile-constant-symbol-p arg)