diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-02 21:56:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-02 21:56:15 +0000 |
| commit | 4cd305ac3392e312cc124b9b7c682e06e38e9ea6 (patch) | |
| tree | 813899b4aad66b2bc5d568b5b3c4214971d79818 /lisp/emacs-lisp | |
| parent | 1c7c774b86e5a81ec24f1be68cb2be7e054ccdb5 (diff) | |
| download | emacs-4cd305ac3392e312cc124b9b7c682e06e38e9ea6.tar.gz emacs-4cd305ac3392e312cc124b9b7c682e06e38e9ea6.tar.bz2 emacs-4cd305ac3392e312cc124b9b7c682e06e38e9ea6.zip | |
(byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd.
Diffstat (limited to 'lisp/emacs-lisp')
| -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." (setq constant nil)) (setq args (cdr args))) (if constant - (eval form) + (cons 'quote (eval form)) form))) ;; Avoid having to write forward-... with a negative arg for speed. |