Mercurial > emacs
changeset 9802:77c448147423
(byte-compile-insert-header): Escape backslashes
in FILENAME when putting it inside a string constant.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Nov 1994 09:54:39 +0000 |
| parents | 7003b5184aec |
| children | fa698fd10c05 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Tue Nov 01 08:50:20 1994 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Tue Nov 01 09:54:39 1994 +0000 @@ -1355,7 +1355,10 @@ "\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" )) ))