From: Miles Bader <miles@gnu.org>
Date: Sun, 12 Nov 2000 13:26:15 +0000 (+0000)
Subject: (flyspell-mode-on): Only output welcome message if interactive.
X-Git-Tag: emacs-pretest-21.0.90~113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5ed37df73ab7f50be82c9d2e2a80d68f928df19;p=emacs.git

(flyspell-mode-on): Only output welcome message if interactive.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4b72dc126f..ac62970ebfb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-12  Miles Bader  <miles@gnu.org>
+
+	* textmodes/flyspell.el (flyspell-mode-on): Only output welcome
+	message if interactive.
+
 2000-11-12  Dave Love  <fx@gnu.org>
 
 	* mail/feedmail.el: Fix header,
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 74c07f19602..8854633d58f 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -529,7 +529,7 @@ flyspell-buffer checks the whole buffer."
 	 (set-keymap-parent map (current-local-map))
 	 map))
   ;; the welcome message
-  (if flyspell-issue-welcome-flag
+  (if (and flyspell-issue-welcome-flag (interactive-p))
       (let ((binding (where-is-internal 'flyspell-auto-correct-word
 					nil 'non-ascii)))
 	(message