branch: elpa/geiser-guile
commit b5f0316c9bdff5cc926fdb2a156bc3c21ed24313
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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
