From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 1 Nov 1994 09:54:39 +0000 (+0000)
Subject: (byte-compile-insert-header): Escape backslashes
X-Git-Tag: emacs-19.34~6053
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0bfea296d4127efcfe8da3f2dfdddb7324e57ee;p=emacs.git

(byte-compile-insert-header): Escape backslashes
in FILENAME when putting it inside a string constant.
---

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"
 	       ))
    ))