Replace runtime CL function, as flagged by the compiler.

* lisp/textmodes/flyspell.el (flyspell-word-search-backward):
Replace CL function.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 066f56a653b..69d6c888271 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-01  Glenn Morris  <rgm@gnu.org>
+
+        * textmodes/flyspell.el (flyspell-word-search-backward):
+        Replace CL function.
+
 2011-07-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * mouse.el (mouse--strip-first-event): New function.
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 7bb3323eb17..e6837d0abde 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1002,7 +1002,7 @@ Mostly we check word delimiters."
         (let ((lw (flyspell-get-word)))
           (if (and (consp lw)
                    (if ignore-case
-                       (equalp (car lw) word)
+                       (string-equal (downcase (car lw)) (downcase word))
                      (string-equal (car lw) word)))
               (setq r p)
             (goto-char p))))