Mercurial > emacs
comparison lisp/emacs-lisp/byte-opt.el @ 66642:8e414fc88184
(byte-optimize-pure-func): Quote the
folded value.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 02 Nov 2005 22:18:32 +0000 |
| parents | eb497460d73a |
| children | 863620478661 |
comparison
equal
deleted
inserted
replaced
| 66641:eb497460d73a | 66642:8e414fc88184 |
|---|---|
| 1133 (while (and args constant) | 1133 (while (and args constant) |
| 1134 (or (byte-compile-constp (car args)) | 1134 (or (byte-compile-constp (car args)) |
| 1135 (setq constant nil)) | 1135 (setq constant nil)) |
| 1136 (setq args (cdr args))) | 1136 (setq args (cdr args))) |
| 1137 (if constant | 1137 (if constant |
| 1138 (cons 'quote (eval form)) | 1138 (list 'quote (eval form)) |
| 1139 form))) | 1139 form))) |
| 1140 | 1140 |
| 1141 ;; Avoid having to write forward-... with a negative arg for speed. | 1141 ;; Avoid having to write forward-... with a negative arg for speed. |
| 1142 ;; Fixme: don't be limited to constant args. | 1142 ;; Fixme: don't be limited to constant args. |
| 1143 (put 'backward-char 'byte-optimizer 'byte-optimize-backward-char) | 1143 (put 'backward-char 'byte-optimizer 'byte-optimize-backward-char) |