diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-15 08:24:29 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-15 08:24:29 +0200 |
| commit | d33a6b9069b6a8272adf720fbb9c1f4a5ec09dd2 (patch) | |
| tree | 49bce5f34f3a289ba6b4aae6db3aec8282da15b6 /lisp/emacs-lisp | |
| parent | f2a592ea2f8224deca08747bb756eebd5d86cefa (diff) | |
| download | emacs-d33a6b9069b6a8272adf720fbb9c1f4a5ec09dd2.tar.gz emacs-d33a6b9069b6a8272adf720fbb9c1f4a5ec09dd2.tar.bz2 emacs-d33a6b9069b6a8272adf720fbb9c1f4a5ec09dd2.zip | |
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]*\\'".
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/loaddefs-gen.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 () |