(ido-mode): Switch off the message if called non-interactively.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03c4f1dab02a3bc116a45ab9ab3dc363ab163287..b8e2b3bb5b4486f7f867333b6c052f29490b0647 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-08-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * ido.el (ido-mode): Switch off the message if called
+       non-interactively.
+
        * mail/smtpmail.el (smtpmail-query-smtp-server): Try port 25
        before 587, since it appears that that's more likely to work for
        more people.

diff --git a/lisp/ido.el b/lisp/ido.el
index b50ddcc1254f9cb993c00fefd3475325de0904ce..4086000e3e94aa4a5a5d3bfe1e24db9446dbe5f5 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -1557,7 +1557,8 @@ This function also adds a hook to the minibuffer."
        (setq ido-minor-mode-map-entry (cons 'ido-mode map))
        (add-to-list 'minor-mode-map-alist ido-minor-mode-map-entry))))
 
-  (message "Ido mode %s" (if ido-mode "enabled" "disabled")))
+  (when (called-interactively-p 'any)
+    (message "Ido mode %s" (if ido-mode "enabled" "disabled"))))
 
 
 ;;; IDO KEYMAP