summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-25 00:04:11 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-25 00:04:11 +0100
commitb5f0316c9bdff5cc926fdb2a156bc3c21ed24313 (patch)
tree846eb0986e09ad72bf9d54f30f960dfb99b10e0f /elisp
parent3618844e887e3f7388e07f9b77f033f414d76bfd (diff)
downloadgeiser-guile-b5f0316c9bdff5cc926fdb2a156bc3c21ed24313.tar.gz
geiser-guile-b5f0316c9bdff5cc926fdb2a156bc3c21ed24313.tar.bz2
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.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-guile.el14
1 files 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