From fcf63d615a1cb3837e051f24d76fe2630bf714fd Mon Sep 17 00:00:00 2001 From: Tim Ruffing Date: Thu, 21 Dec 2023 18:03:55 +0100 Subject: [PATCH] tweak(lib): write elisp in escaped form to files --- lisp/lib/files.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/lib/files.el b/lisp/lib/files.el index 906d9504f..d850596be 100644 --- a/lisp/lib/files.el +++ b/lisp/lib/files.el @@ -326,7 +326,12 @@ ends. Set either APPEND or PREPEND to `noerror' to silently ignore read errors." ((let ((standard-output (current-buffer)) (print-quoted t) (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)))))) (let (write-region-annotate-functions write-region-post-annotation-function)