diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-01 09:54:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-01 09:54:39 +0000 |
| commit | b0bfea296d4127efcfe8da3f2dfdddb7324e57ee (patch) | |
| tree | 618a6067073e2094c806cacd4196f00a994c71fa /lisp/emacs-lisp | |
| parent | 4691c06db4f966b99fe312fb6495f3b27f076a26 (diff) | |
| download | emacs-b0bfea296d4127efcfe8da3f2dfdddb7324e57ee.tar.gz emacs-b0bfea296d4127efcfe8da3f2dfdddb7324e57ee.tar.bz2 emacs-b0bfea296d4127efcfe8da3f2dfdddb7324e57ee.zip | |
(byte-compile-insert-header): Escape backslashes
in FILENAME when putting it inside a string constant.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
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" )) )) |