[elpa] externals/async 394f1f904b: Prevent printing symbols with position #153

[ELPA Syncer]

branch: externals/async
commit 394f1f904b1790bc2588f196398369e7635fb4ae
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Prevent printing symbols with position #153
    
    Bind `print-symbols-bare`.
---
 async.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/async.el b/async.el
index 6df1b6d2f1..00b58806b6 100644
--- a/async.el
+++ b/async.el
@@ -50,6 +50,9 @@
 (defvar async-current-process nil)
 (defvar async--procvar nil)
 
+;; For emacs<29 (only exists in emacs-29+).
+(defvar print-symbols-bare)
+
 (defun async--purecopy (object)
   "Remove text properties in OBJECT.
 
@@ -204,7 +207,9 @@ It is intended to be used as follows:
   (let (print-level
         print-length
         (print-escape-nonascii t)
-        (print-circle t))
+        (print-circle t)
+        ;; Fix bug#153 in emacs-29 with symbol's positions.
+        (print-symbols-bare t))
     (prin1 sexp (current-buffer))
     ;; Just in case the string we're sending might contain EOF
     (encode-coding-region (point-min) (point-max) 'utf-8-auto)