[nongnu] elpa/inf-clojure 9fa8f37 153/313: Disable pretty print when fetching lumo arglists

[ELPA Syncer]

branch: elpa/inf-clojure
commit 9fa8f37a7be33337ab0e865b1718bbb81eea295a
Author: Andrea Richiardi <a.richiardi.work@gmail.com>
Commit: Bozhidar Batsov <bozhidar.batsov@gmail.com>

    Disable pretty print when fetching lumo arglists
    
    It hacks like a hack.
---
 inf-clojure.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index 9947e27..1bb92e5 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -703,7 +703,10 @@ If you are using REPL types, it will pickup the most 
approapriate
 (define-obsolete-variable-alias 'inf-clojure-arglist-command 
'inf-clojure-arglists-form "2.0.0")
 
 (defcustom inf-clojure-arglists-form-lumo
-  "(pr-str (lumo.repl/get-arglists \"%s\"))"
+  "(let [old-value lumo.repl/*pprint-results*]
+     (set! lumo.repl/*pprint-results* false)
+     (js/setTimeout #(set! lumo.repl/*pprint-results* old-value) 0)
+     (lumo.repl/get-arglists \"%s\"))"
   "Lumo form to query inferior Clojure for a function's arglists."
   :type 'string
   :package-version '(inf-clojure . "2.0.0"))