From d224ac8375ca4fc8402fccf72a3666a9777be197 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 1 Jul 2011 14:13:17 -0400 Subject: [PATCH] Replace runtime CL function, as flagged by the compiler. * lisp/textmodes/flyspell.el (flyspell-word-search-backward): Replace CL function. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/flyspell.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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)))) -- 2.39.2