master f40260f: Only show flyspell welcome message interactively

[Stefan Kangas]

branch: master
commit f40260f121d41d50fda428e789d22b125e24f407
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Only show flyspell welcome message interactively
    
    * lisp/textmodes/flyspell.el (flyspell-mode): Only show welcome
    message when called interactively.  (Bug#43065)
---
 lisp/textmodes/flyspell.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index f90a128..b631b12 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)))