From f5ed37df73ab7f50be82c9d2e2a80d68f928df19 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 12 Nov 2000 13:26:15 +0000 Subject: [PATCH] (flyspell-mode-on): Only output welcome message if interactive. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/flyspell.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * textmodes/flyspell.el (flyspell-mode-on): Only output welcome + message if interactive. + 2000-11-12 Dave Love * 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 -- 2.39.5