[nongnu] elpa/spell-fu 1b765f8029 58/86: Cleanup: replace setq with let binding

[ELPA Syncer]

branch: elpa/spell-fu
commit 1b765f80298dd5463007c12e7e0a942343f95f68
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: replace setq with let binding
---
 spell-fu.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/spell-fu.el b/spell-fu.el
index 949b3fefd1..b46d30bf91 100644
--- a/spell-fu.el
+++ b/spell-fu.el
@@ -583,14 +583,14 @@ Argument POINT-END the end position of WORD."
   (let
     (
       (result (null spell-fu-faces-include))
-      (faces-at-pos (spell-fu--faces-at-point pos))
-      (face nil))
-    (while (setq face (pop faces-at-pos))
-      (when (memq face spell-fu-faces-exclude)
-        (setq faces-at-pos nil)
-        (setq result nil))
-      (when (and (null result) (memq face spell-fu-faces-include))
-        (setq result t)))
+      (faces-at-pos (spell-fu--faces-at-point pos)))
+    (while faces-at-pos
+      (let ((face (pop faces-at-pos)))
+        (when (memq face spell-fu-faces-exclude)
+          (setq faces-at-pos nil)
+          (setq result nil))
+        (when (and (null result) (memq face spell-fu-faces-include))
+          (setq result t))))
     result))
 
 (defun spell-fu--check-range-with-faces (point-start point-end)