(byte-optimize-pure-func): Quote the

folded value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4dc085cb0e71eb5a519474518d5b7f4122595925..1b3f6b78c57a6bdf6f2dbd4256e5e91e25dc5a27 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-02  Andreas Schwab  <schwab@suse.de>
+
+       * emacs-lisp/byte-opt.el (byte-optimize-pure-func): Quote the
+       folded value.
+
 2005-11-02  Nick Roberts  <nickrob@snap.net.nz>
 
        * 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 1cda03ad0d530e3698d929c0ba82e233c85a4ec9..8711a05e2d96c38d0df948593037c3ca3183604f 100644 (file)
--- 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.