[Emacs-diffs] /srv/bzr/emacs/trunk r104820: textmodes/flyspell.el (flyspell-word): Consider words that differ only

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104820
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2011-07-01 01:19:45 +0200
message:
  textmodes/flyspell.el (flyspell-word): Consider words that differ only
  in case as potential doublons (bug#5687).
modified:
  lisp/ChangeLog
  lisp/textmodes/flyspell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-30 23:15:02 +0000
+++ b/lisp/ChangeLog    2011-06-30 23:19:45 +0000
@@ -1,5 +1,8 @@
 2011-06-30  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * textmodes/flyspell.el (flyspell-word): Consider words that
+       differ only in case as potential doublons (bug#5687).
+
        * net/soap-client.el (soap-invoke, soap-wsdl-resolve-references):
        Remove two rather uninteresting debugging-like messages to make
        debbugs.el more silent.

=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el        2011-05-23 17:57:17 +0000
+++ b/lisp/textmodes/flyspell.el        2011-06-30 23:19:45 +0000
@@ -993,14 +993,17 @@
 ;;*---------------------------------------------------------------------*/
 ;;*    flyspell-word-search-backward ...                                */
 ;;*---------------------------------------------------------------------*/
-(defun flyspell-word-search-backward (word bound)
+(defun flyspell-word-search-backward (word bound &optional ignore-case)
   (save-excursion
     (let ((r '())
          (inhibit-point-motion-hooks t)
          p)
       (while (and (not r) (setq p (search-backward word bound t)))
        (let ((lw (flyspell-get-word)))
-         (if (and (consp lw) (string-equal (car lw) word))
+         (if (and (consp lw)
+                  (if ignore-case
+                      (equalp (car lw) word)
+                    (string-equal (car lw) word)))
              (setq r p)
            (goto-char p))))
       r)))
@@ -1069,7 +1072,7 @@
                              (- end start)
                              (- (skip-chars-backward " \t\n\f"))))
                          (p (when (>= bound (point-min))
-                              (flyspell-word-search-backward word bound))))
+                              (flyspell-word-search-backward word bound t))))
                     (and p (/= p start)))))
            ;; yes, this is a doublon
            (flyspell-highlight-incorrect-region start end 'doublon)