changeset 33426:62b21497a99f

(flyspell-mode-on): Only output welcome message if interactive.
author Miles Bader <miles@gnu.org>
date Sun, 12 Nov 2000 13:23:23 +0000
parents ee7981d56c06
children bc45f260e631
files lisp/textmodes/flyspell.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el	Sun Nov 12 00:57:50 2000 +0000
+++ b/lisp/textmodes/flyspell.el	Sun Nov 12 13:23:23 2000 +0000
@@ -529,7 +529,7 @@
 	 (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