Commit b0bfea29 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

in FILENAME when putting it inside a string constant.
parent 4691c06d
...@@ -1355,7 +1355,10 @@ With argument, insert value in current buffer after the form." ...@@ -1355,7 +1355,10 @@ With argument, insert value in current buffer after the form."
"\n(if (and (boundp 'emacs-version)\n" "\n(if (and (boundp 'emacs-version)\n"
"\t (or (and (boundp 'epoch::version) epoch::version)\n" "\t (or (and (boundp 'epoch::version) epoch::version)\n"
"\t (string-lessp emacs-version \"19\")))\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"
)) ))
)) ))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment