[nongnu] elpa/geiser-guile b5f0316 211/284: Guile: logging initialisation process

[Philip Kaludercic]

branch: elpa/geiser-guile
commit b5f0316c9bdff5cc926fdb2a156bc3c21ed24313
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: logging initialisation process
    
    Today, W was seeing errors when connecting to Guile, which of course
    immediately disappeared when we tried to reproduce them and get some
    logs. I'm logging Guile's initialisation unconditionally, to make sure
    the problem doesn't repeat. Much easier than fixing the bug.
---
 elisp/geiser-guile.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index fe32acd..6e14e88 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -17,6 +17,7 @@
 (require 'geiser-base)
 (require 'geiser-eval)
 (require 'geiser-edit)
+(require 'geiser-log)
 (require 'geiser)
 
 (require 'compile)
@@ -279,10 +280,14 @@ it spawn a server thread."
   (font-lock-add-keywords nil
                           `((,geiser-guile--path-rx 1
                                                     compilation-error-face)))
-  (when remote
-    (geiser-repl--send-silent (geiser-guile--load-path-string)))
-  (geiser-repl--send-silent ",use (geiser emacs)")
-  (geiser-guile-update-warning-level))
+  (let ((geiser-log-verbose-p t))
+    (when remote
+      (geiser-log--info
+       "Guile: initialising load path...  %s"
+       (geiser-repl--send-silent (geiser-guile--load-path-string))))
+    (geiser-log--info "Guile: using (geiser emacs)... %s"
+                      (geiser-repl--send-silent ",use (geiser emacs)"))
+    (geiser-guile-update-warning-level)))
 
 
 ;;; Manual lookup
@@ -329,4 +334,3 @@ it spawn a server thread."
 
 
 (provide 'geiser-guile)
-;;; geiser-guile.el ends here