From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 2 Mar 2018 01:58:26 +0000 (-0800)
Subject: Arrange for loaddefs files to be greppable
X-Git-Tag: emacs-27.0.90~5575
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a206ea124c7ea679ea7e60ee3d4f83e931aec4e9;p=emacs.git

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.
---

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)))))))