(byte-compile-insert-header): Escape backslashes

in FILENAME when putting it inside a string constant.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 8ef3d268bfe..4966ca6e98b 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1355,7 +1355,10 @@ With argument, insert value in current buffer after the form."
                "\n(if (and (boundp 'emacs-version)\n"
                "\t (or (and (boundp 'epoch::version) epoch::version)\n"
                "\t     (string-lessp emacs-version \"19\")))\n"
-               "    (error \"`" filename "' was compiled for Emacs 19\"))\n"
+               "    (error \"`"
+               ;; This escapes all backslashes in FILENAME.  Needed on Windows.
+               (substring (prin1-to-string filename) 1 -1)
+               "' was compiled for Emacs 19\"))\n"
                ))
    ))