[Emacs-diffs] master bfec493: Escape newlines when printing functions in timer list

[Lars Ingebrigtsen]

branch: master
commit bfec493efe93e1a1d87013f26d220616b0a82a65
Author: Pip Cet <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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).
---
 lisp/emacs-lisp/timer-list.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 55aa56b..adfc225 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))