awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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)