From b5f0316c9bdff5cc926fdb2a156bc3c21ed24313 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 25 Nov 2010 00:04:11 +0100 Subject: 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 -- cgit v1.2.3