]> git.eshelyaron.com Git - emacs.git/commitdiff
Arrange for loaddefs files to be greppable
authorPaul Eggert <eggert@cs.ucla.edu>
Fri, 2 Mar 2018 01:58:26 +0000 (17:58 -0800)
committerPaul Eggert <eggert@cs.ucla.edu>
Fri, 2 Mar 2018 02:16:43 +0000 (18:16 -0800)
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

index 92ad6155b5392fe4209f42e80dec69f6695d8a21..7b4a7d04f922859a9fcf025e163dda4e44825e10 100644 (file)
@@ -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)))))))