From: Glenn Morris Date: Fri, 1 Jul 2011 18:13:17 +0000 (-0400) Subject: Replace runtime CL function, as flagged by the compiler. X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~260 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d224ac8375ca4fc8402fccf72a3666a9777be197;p=emacs.git 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 066f56a653b..69d6c888271 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-07-01 Glenn Morris + + * textmodes/flyspell.el (flyspell-word-search-backward): + Replace CL function. + 2011-07-01 Stefan Monnier * 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))))