diff options
| author | Paul Eggert | 2018-03-01 17:58:26 -0800 |
|---|---|---|
| committer | Paul Eggert | 2018-03-01 18:16:43 -0800 |
| commit | a206ea124c7ea679ea7e60ee3d4f83e931aec4e9 (patch) | |
| tree | 39793c47bcb6b4b23dcf5368ecd0bdcff3bf5fd3 | |
| parent | a4605cd60d79e5dc050d722f8c4360f11ce65232 (diff) | |
| download | emacs-a206ea124c7ea679ea7e60ee3d4f83e931aec4e9.tar.gz emacs-a206ea124c7ea679ea7e60ee3d4f83e931aec4e9.zip | |
Arrange for loaddefs files to be greppable
Without this change, ldefs-boot.el contains a couple of stray NUL
bytes, which cause it to be considered to be a non-text file by
tools like GNU grep.
* lisp/emacs-lisp/autoload.el (autoload-print-form):
Set print-escape-control-characters to t.
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 92ad6155b53..7b4a7d04f92 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -324,6 +324,7 @@ put the output in." | |||
| 324 | (setcdr p nil) | 324 | (setcdr p nil) |
| 325 | (princ "\n(" outbuf) | 325 | (princ "\n(" outbuf) |
| 326 | (let ((print-escape-newlines t) | 326 | (let ((print-escape-newlines t) |
| 327 | (print-escape-control-characters t) | ||
| 327 | (print-quoted t) | 328 | (print-quoted t) |
| 328 | (print-escape-nonascii t)) | 329 | (print-escape-nonascii t)) |
| 329 | (dolist (elt form) | 330 | (dolist (elt form) |
| @@ -348,6 +349,7 @@ put the output in." | |||
| 348 | outbuf)) | 349 | outbuf)) |
| 349 | (terpri outbuf))) | 350 | (terpri outbuf))) |
| 350 | (let ((print-escape-newlines t) | 351 | (let ((print-escape-newlines t) |
| 352 | (print-escape-control-characters t) | ||
| 351 | (print-quoted t) | 353 | (print-quoted t) |
| 352 | (print-escape-nonascii t)) | 354 | (print-escape-nonascii t)) |
| 353 | (print form outbuf))))))) | 355 | (print form outbuf))))))) |