Commit d224ac83 authored by Glenn Morris's avatar Glenn Morris
Browse files

Replace runtime CL function, as flagged by the compiler.

* lisp/textmodes/flyspell.el (flyspell-word-search-backward):
Replace CL function.
parent 978ff6c5
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.
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment