mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-24 07:20:37 +00:00
(flyspell-mode-on): Only output welcome message if interactive.
This commit is contained in:
parent
0b074c2fe7
commit
f5ed37df73
@ -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,
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user