From 4cd305ac3392e312cc124b9b7c682e06e38e9ea6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 2 Nov 2005 21:56:15 +0000 Subject: [PATCH] (byte-optimize-pure-func): Quote the eval'd value so it's not re-eval'd. --- lisp/emacs-lisp/byte-opt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -- 2.11.4.GIT