emacs-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]