Replace runtime CL function, as flagged by the compiler.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 066f56a653ba5417f9d67992e45f58871414e006..69d6c88827194430f44da464f7f64a08a1b78f31 100644 (file)
--- 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 7bb3323eb176294a760d11ea19046bef8ba8d7a1..e6837d0abdeec71282d414f1e97a3b75c02f75d3 100644 (file)
--- 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))))