diff options
| author | Pip Cet <pipcet@gmail.com> | 2019-06-13 14:10:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-13 14:11:39 +0200 |
| commit | bfec493efe93e1a1d87013f26d220616b0a82a65 (patch) | |
| tree | e519cadbb9c3770fef08b335f88fc57150a2f53f /lisp/emacs-lisp/timer-list.el | |
| parent | f660616f82b89e2e544f32ede054cd3ee9ddc7e1 (diff) | |
| download | emacs-bfec493efe93e1a1d87013f26d220616b0a82a65.tar.gz emacs-bfec493efe93e1a1d87013f26d220616b0a82a65.tar.bz2 emacs-bfec493efe93e1a1d87013f26d220616b0a82a65.zip | |
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).
Diffstat (limited to 'lisp/emacs-lisp/timer-list.el')
| -rw-r--r-- | lisp/emacs-lisp/timer-list.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |