From 56db327365b38bf3c6211db1bc29fa1a2f670e8e Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Sat, 30 Jan 2021 20:25:30 +0000 Subject: [PATCH] Fix printing in Emacs < 27 * dev/examples-to-docs.el (example-to-string): * dev/examples-to-info.el (dash--print-lisp-as-texi): Turn on print-quoted for the benefit of Emacs versions before 27. --- dev/examples-to-docs.el | 3 ++- dev/examples-to-info.el | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el index 1a02e1a..345abd4 100644 --- a/dev/examples-to-docs.el +++ b/dev/examples-to-docs.el @@ -29,7 +29,8 @@ (defvar functions ()) (defun example-to-string (example) - (-let [(actual sym expected) example] + (-let (((actual sym expected) example) + (print-quoted t)) (--> (cond ((eq sym '=>) (format "=> %S" expected)) ((eq sym '~>) (format "~> %S" expected)) diff --git a/dev/examples-to-info.el b/dev/examples-to-info.el index ecb1f62..da5da5d 100644 --- a/dev/examples-to-info.el +++ b/dev/examples-to-info.el @@ -30,7 +30,7 @@ (defun dash--print-lisp-as-texi (obj) "Print Lisp OBJ suitably for Texinfo." - (save-excursion (prin1 obj)) + (save-excursion (let ((print-quoted t)) (prin1 obj))) (while (re-search-forward (rx (| (group "\\?") (group (in "{}")) (group ?\' symbol-start "nil" symbol-end)