emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tweak(lib): write elisp in escaped form to files

Browse source
This commit is contained in:
Tim Ruffing 2023-12-21 18:03:55 +01:00 • committed by Henrik Lissner
parent efe8d476bc
commit fcf63d615a
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/lib/files.el
View file

@ -326,7 +326,12 @@ ends. Set either APPEND or PREPEND to `noerror' to silently ignore read errors."
((let ((standard-output (current-buffer)) ((let ((standard-output (current-buffer))
(print-quoted t) (print-quoted t)
(print-level nil) (print-level nil)
(print-length nil)) (print-length nil)
;; Escape special chars to avoid any shenanigans
(print-escape-newlines t)
(print-escape-control-characters t)
(print-escape-nonascii t)
(print-escape-multibyte t))
(funcall printfn datum)))))) (funcall printfn datum))))))
(let (write-region-annotate-functions (let (write-region-annotate-functions
write-region-post-annotation-function) write-region-post-annotation-function)