Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 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 | e21feeab77fb |
| children | d16b29f737a7 |
comparison
equal
deleted
inserted
replaced
| 33425:ee7981d56c06 | 33426:62b21497a99f |
|---|---|
| 527 (set (make-local-variable 'flyspell-mouse-map) | 527 (set (make-local-variable 'flyspell-mouse-map) |
| 528 (let ((map (copy-keymap flyspell-mouse-map))) | 528 (let ((map (copy-keymap flyspell-mouse-map))) |
| 529 (set-keymap-parent map (current-local-map)) | 529 (set-keymap-parent map (current-local-map)) |
| 530 map)) | 530 map)) |
| 531 ;; the welcome message | 531 ;; the welcome message |
| 532 (if flyspell-issue-welcome-flag | 532 (if (and flyspell-issue-welcome-flag (interactive-p)) |
| 533 (let ((binding (where-is-internal 'flyspell-auto-correct-word | 533 (let ((binding (where-is-internal 'flyspell-auto-correct-word |
| 534 nil 'non-ascii))) | 534 nil 'non-ascii))) |
| 535 (message | 535 (message |
| 536 (if binding | 536 (if binding |
| 537 (format "Welcome to flyspell. Use %s or Mouse-2 to correct words." | 537 (format "Welcome to flyspell. Use %s or Mouse-2 to correct words." |