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 <>
* textmodes/flyspell.el (flyspell-word-search-backward):
Replace CL function.
2011-07-01 Stefan Monnier <> 2011-07-01 Stefan Monnier <>
* mouse.el (mouse--strip-first-event): New function. * mouse.el (mouse--strip-first-event): New function.
...@@ -1002,7 +1002,7 @@ Mostly we check word delimiters." ...@@ -1002,7 +1002,7 @@ Mostly we check word delimiters."
(let ((lw (flyspell-get-word))) (let ((lw (flyspell-get-word)))
(if (and (consp lw) (if (and (consp lw)
(if ignore-case (if ignore-case
(equalp (car lw) word) (string-equal (downcase (car lw)) (downcase word))
(string-equal (car lw) word))) (string-equal (car lw) word)))
(setq r p) (setq r p)
(goto-char 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