566 |
(interactive-p)) |
(interactive-p)) |
567 |
(let ((binding (where-is-internal 'flyspell-auto-correct-word |
(let ((binding (where-is-internal 'flyspell-auto-correct-word |
568 |
nil 'non-ascii))) |
nil 'non-ascii))) |
569 |
(message |
(message "%s" |
570 |
(if binding |
(if binding |
571 |
(format "Welcome to flyspell. Use %s or Mouse-2 to correct words." |
(format "Welcome to flyspell. Use %s or Mouse-2 to correct words." |
572 |
(key-description binding)) |
(key-description binding)) |
942 |
(sort (car (cdr (cdr poss))) 'string<) |
(sort (car (cdr (cdr poss))) 'string<) |
943 |
(car (cdr (cdr poss))))))) |
(car (cdr (cdr poss))))))) |
944 |
(if flyspell-issue-message-flag |
(if flyspell-issue-message-flag |
945 |
(message (format "mispelling `%s' %S" word replacements))))) |
(message "mispelling `%s' %S" word replacements)))) |
946 |
|
|
947 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
948 |
;* flyspell-word-search-backward ... */ |
;* flyspell-word-search-backward ... */ |
1090 |
(if flyspell-highlight-flag |
(if flyspell-highlight-flag |
1091 |
(flyspell-highlight-duplicate-region |
(flyspell-highlight-duplicate-region |
1092 |
start end poss) |
start end poss) |
1093 |
(message (format "duplicate `%s'" word))) |
(message "duplicate `%s'" word)) |
1094 |
nil) |
nil) |
1095 |
(t |
(t |
1096 |
(setq flyspell-word-cache-result nil) |
(setq flyspell-word-cache-result nil) |
1679 |
(setq pos (cdr pos))) |
(setq pos (cdr pos))) |
1680 |
(if (fboundp 'display-message) |
(if (fboundp 'display-message) |
1681 |
(display-message 'no-log string) |
(display-message 'no-log string) |
1682 |
(message string)))) |
(message "%s" string)))) |
1683 |
|
|
1684 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1685 |
;* flyspell-abbrev-table ... */ |
;* flyspell-abbrev-table ... */ |