From c80eca71953342d01e93f505d85bf2a0671e4d90 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 2 Nov 2005 22:18:56 +0000 Subject: [PATCH] (byte-optimize-pure-func): Quote the folded value. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/byte-opt.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4dc085cb0e7..1b3f6b78c57 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-11-02 Andreas Schwab + + * emacs-lisp/byte-opt.el (byte-optimize-pure-func): Quote the + folded value. + 2005-11-02 Nick Roberts * progmodes/gdb-ui.el (gdb-mouse-until): Make it work in diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 1cda03ad0d5..8711a05e2d9 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 - (cons 'quote (eval form)) + (list 'quote (eval form)) form))) ;; Avoid having to write forward-... with a negative arg for speed. -- 2.39.2