procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
in FILENAME when putting it inside a string constant.
This commit is contained in:
Richard M. Stallman 1994-11-01 09:54:39 +00:00
parent 4691c06db4
commit b0bfea296d
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/bytecomp.el
View file

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