From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 27 Aug 2020 09:38:00 +0000 (+0200)
Subject: Only show flyspell welcome message interactively
X-Git-Tag: emacs-28.0.90~6360
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f40260f121d41d50fda428e789d22b125e24f407;p=emacs.git

Only show flyspell welcome message interactively

* lisp/textmodes/flyspell.el (flyspell-mode): Only show welcome
message when called interactively.  (Bug#43065)
---

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index f90a128b01c..b631b126d58 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -533,7 +533,7 @@ in your init file.
           (progn
             (when flyspell-use-mouse-3-for-menu
               (flyspell--set-use-mouse-3-for-menu 'flyspell-use-mouse-3-for-menu t))
-            (flyspell-mode-on t))
+            (flyspell-mode-on (called-interactively-p 'interactive)))
 	(error (message "Error enabling Flyspell mode:\n%s" (cdr err))
 	       (flyspell-mode -1)))
     (flyspell-mode-off)))