From 29a65929e1107d941b328aff3f98b772c7f28c70 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 28 Dec 2010 15:48:41 +0100
Subject: Less noisy autodoc mode activation

Only display an activation message when called interactively.
---
 elisp/geiser-autodoc.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'elisp')

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 04f450e..429d369 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -221,7 +221,9 @@ displayed in the minibuffer."
   (set (make-local-variable 'eldoc-minor-mode-string) nil)
   (set (make-local-variable 'eldoc-idle-delay) geiser-autodoc-delay)
   (eldoc-mode geiser-autodoc-mode)
-  (message "Geiser Autodoc %s" (if geiser-autodoc-mode "enabled" "disabled")))
+  (when (interactive-p)
+    (message "Geiser Autodoc %s"
+             (if geiser-autodoc-mode "enabled" "disabled"))))
 
 (defadvice eldoc-display-message-no-interference-p
   (after geiser-autodoc--message-ok-p)
-- 
cgit v1.2.3