summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/autoload.el
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2018-03-01 17:58:26 -0800
committerPaul Eggert <eggert@cs.ucla.edu>2018-03-01 18:16:43 -0800
commita206ea124c7ea679ea7e60ee3d4f83e931aec4e9 (patch)
tree39793c47bcb6b4b23dcf5368ecd0bdcff3bf5fd3 /lisp/emacs-lisp/autoload.el
parenta4605cd60d79e5dc050d722f8c4360f11ce65232 (diff)
downloademacs-a206ea124c7ea679ea7e60ee3d4f83e931aec4e9.tar.gz
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.
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
-rw-r--r--lisp/emacs-lisp/autoload.el2
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."
(setcdr p nil)
(princ "\n(" outbuf)
(let ((print-escape-newlines t)
+ (print-escape-control-characters t)
(print-quoted t)
(print-escape-nonascii t))
(dolist (elt form)
@@ -348,6 +349,7 @@ put the output in."
outbuf))
(terpri outbuf)))
(let ((print-escape-newlines t)
+ (print-escape-control-characters t)
(print-quoted t)
(print-escape-nonascii t))
(print form outbuf)))))))