[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el

[D . Goel]

Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.74 
emacs/lisp/textmodes/flyspell.el:1.75
*** emacs/lisp/textmodes/flyspell.el:1.74       Mon Aug 15 23:48:30 2005
--- emacs/lisp/textmodes/flyspell.el    Sun Sep 18 12:28:29 2005
***************
*** 566,572 ****
           (interactive-p))
        (let ((binding (where-is-internal 'flyspell-auto-correct-word
                                        nil 'non-ascii)))
!       (message
         (if binding
             (format "Welcome to flyspell. Use %s or Mouse-2 to correct words."
                     (key-description binding))
--- 566,572 ----
           (interactive-p))
        (let ((binding (where-is-internal 'flyspell-auto-correct-word
                                        nil 'non-ascii)))
!       (message "%s"
         (if binding
             (format "Welcome to flyspell. Use %s or Mouse-2 to correct words."
                     (key-description binding))
***************
*** 942,948 ****
                            (sort (car (cdr (cdr poss))) 'string<)
                          (car (cdr (cdr poss)))))))
      (if flyspell-issue-message-flag
!       (message (format "mispelling `%s'  %S" word replacements)))))
  
  ;*---------------------------------------------------------------------*/
  ;*    flyspell-word-search-backward ...                                */
--- 942,948 ----
                            (sort (car (cdr (cdr poss))) 'string<)
                          (car (cdr (cdr poss)))))))
      (if flyspell-issue-message-flag
!       (message "mispelling `%s'  %S" word replacements))))
  
  ;*---------------------------------------------------------------------*/
  ;*    flyspell-word-search-backward ...                                */
***************
*** 1090,1096 ****
                              (if flyspell-highlight-flag
                                  (flyspell-highlight-duplicate-region
                                   start end poss)
!                               (message (format "duplicate `%s'" word)))
                              nil)
                             (t
                              (setq flyspell-word-cache-result nil)
--- 1090,1096 ----
                              (if flyspell-highlight-flag
                                  (flyspell-highlight-duplicate-region
                                   start end poss)
!                               (message "duplicate `%s'" word))
                              nil)
                             (t
                              (setq flyspell-word-cache-result nil)
***************
*** 1679,1685 ****
        (setq pos (cdr pos)))
      (if (fboundp 'display-message)
        (display-message 'no-log string)
!       (message string))))
  
  ;*---------------------------------------------------------------------*/
  ;*    flyspell-abbrev-table ...                                        */
--- 1679,1685 ----
        (setq pos (cdr pos)))
      (if (fboundp 'display-message)
        (display-message 'no-log string)
!       (message "%s" string))))
  
  ;*---------------------------------------------------------------------*/
  ;*    flyspell-abbrev-table ...                                        */