/[emacs]/emacs/lisp/textmodes/flyspell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/flyspell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.74 by rms, Mon Aug 15 23:48:30 2005 UTC revision 1.75 by deego, Sun Sep 18 12:28:29 2005 UTC
# Line 566  in your .emacs file. Line 566  in your .emacs file.
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))
# Line 942  Mostly we check word delimiters." Line 942  Mostly we check word delimiters."
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 ...                                */
# Line 1090  Mostly we check word delimiters." Line 1090  Mostly we check word delimiters."
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)
# Line 1679  misspelled words backwards." Line 1679  misspelled words backwards."
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 ...                                        */

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26