From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 15 Aug 2022 06:24:29 +0000 (+0200)
Subject: Tweak autoloads of defsubsts containing spaces/control chars
X-Git-Tag: emacs-29.0.90~1447^2~144
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d33a6b9069b6a8272adf720fbb9c1f4a5ec09dd2;p=emacs.git

Tweak autoloads of defsubsts containing spaces/control chars

* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--print-form):
Escape control chars in bodies so that we don't end up with
trailing spaces if we're autoloading a defsubst containing
"\\`[ \t\n\r]*\\'".
---

diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el
index 31e1514193f..360b3e4521b 100644
--- a/lisp/emacs-lisp/loaddefs-gen.el
+++ b/lisp/emacs-lisp/loaddefs-gen.el
@@ -675,7 +675,9 @@ instead of just updating them with the new/changed autoloads."
         (insert "\\\n")))
     (while def
       (insert " ")
-      (prin1 (pop def) (current-buffer) t))
+      (prin1 (pop def) (current-buffer)
+             '(t (escape-newlines . t)
+                 (escape-control-characters . t))))
     (insert ")")))
 
 (defun loaddefs-generate--excluded-files ()