diff options
| author | Stefan Monnier | 2005-11-02 21:56:15 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-11-02 21:56:15 +0000 |
| commit | 4cd305ac3392e312cc124b9b7c682e06e38e9ea6 (patch) | |
| tree | 813899b4aad66b2bc5d568b5b3c4214971d79818 | |
| parent | 1c7c774b86e5a81ec24f1be68cb2be7e054ccdb5 (diff) | |
| download | emacs-4cd305ac3392e312cc124b9b7c682e06e38e9ea6.tar.gz emacs-4cd305ac3392e312cc124b9b7c682e06e38e9ea6.zip | |
(byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 940b4869f51..1cda03ad0d5 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -1135,7 +1135,7 @@ of FORM by signaling the error at compile-time." | |||
| 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 | (eval form) | 1138 | (cons '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. |