diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-25 00:04:11 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-25 00:04:11 +0100 |
| commit | b5f0316c9bdff5cc926fdb2a156bc3c21ed24313 (patch) | |
| tree | 846eb0986e09ad72bf9d54f30f960dfb99b10e0f /elisp/geiser-guile.el | |
| parent | 3618844e887e3f7388e07f9b77f033f414d76bfd (diff) | |
| download | geiser-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/geiser-guile.el')
| -rw-r--r-- | elisp/geiser-guile.el | 14 |
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 |