[elpa] externals/dash 56db327 287/316: Fix printing in Emacs < 27

[ELPA Syncer]

branch: externals/dash
commit 56db327365b38bf3c6211db1bc29fa1a2f670e8e
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    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)