Merge from emacs-24; up to 2014-07-27T01:00:26Z!fgallina@gnu.org

[gnu-emacs] / test / automated / bytecomp-tests.el

diff --git a/test/automated/bytecomp-tests.el b/test/automated/bytecomp-tests.el
index a7fbdbe2e7feb893f4604563010707974259bedb..1d96f1cdfcecaa7bef48c7bbdef1d8ebf767963a 100644 (file)
--- a/test/automated/bytecomp-tests.el
+++ b/test/automated/bytecomp-tests.el
@@ -318,7 +318,8 @@ Subtests signal errors if something goes wrong."
                (print form (current-buffer)))
              (write-region (point-min) (point-max) elfile))
            (if compile
-               (let ((byte-compile-dest-file elcfile))
+               (let ((byte-compile-dest-file-function
+                      (lambda (e) elcfile)))
                  (byte-compile-file elfile t))
              (load elfile)))
       (when elfile (delete-file elfile))