From: Pip Cet <pipcet@gmail.com>
Date: Thu, 13 Jun 2019 12:10:56 +0000 (+0200)
Subject: Escape newlines when printing functions in timer list
X-Git-Tag: emacs-27.0.90~2570
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfec493efe93e1a1d87013f26d220616b0a82a65;p=emacs.git

Escape newlines when printing functions in timer list

* timer-list.el (list-timers): Bind `print-escape-newlines' to avoid
newlines in printed representation (bug#36187).
---

diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 55aa56b72e0..adfc2250223 100644
--- a/lisp/emacs-lisp/timer-list.el
+++ b/lisp/emacs-lisp/timer-list.el
@@ -59,7 +59,8 @@
                           (format "%s" repeat))))
                       ;; Function.
                       (let ((cl-print-compiled 'static)
-                            (cl-print-compiled-button nil))
+                            (cl-print-compiled-button nil)
+                            (print-escape-newlines t))
                         (cl-prin1-to-string (aref timer 5)))))
       (put-text-property (line-beginning-position)
                          (1+ (line-beginning-position))