[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a206ea1 2/2: Arrange for loaddefs files to be grepp
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master a206ea1 2/2: Arrange for loaddefs files to be greppable |
Date: |
Thu, 1 Mar 2018 21:16:49 -0500 (EST) |
branch: master
commit a206ea124c7ea679ea7e60ee3d4f83e931aec4e9
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
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.
---
lisp/emacs-lisp/autoload.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 92ad615..7b4a7d0 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)))))))