[nongnu] elpa/spell-fu 907271a557 03/86: Cleanup: unnecessary 'let' nesting

[ELPA Syncer]

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

    Cleanup: unnecessary 'let' nesting
---
 spell-fu.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/spell-fu.el b/spell-fu.el
index c1a54d2739..67236da714 100644
--- a/spell-fu.el
+++ b/spell-fu.el
@@ -192,15 +192,17 @@ Argument AFTER, ignore when true."
 (defun spell-fu--faces-at-point (pos)
   "Add the named faces that the `read-face-name' or `face' property use.
 Argument POS return faces at this point."
-  (let ((faces nil))
-    (let ((faceprop (or (get-char-property pos 'read-face-name) 
(get-char-property pos 'face))))
-      (cond
-        ((facep faceprop)
-          (push faceprop faces))
-        ((face-list-p faceprop)
-          (dolist (face faceprop)
-            (if (facep face)
-              (push face faces))))))
+  (let
+    ( ;; List of faces to return.
+      (faces nil)
+      (faceprop (or (get-char-property pos 'read-face-name) (get-char-property 
pos 'face))))
+    (cond
+      ((facep faceprop)
+        (push faceprop faces))
+      ((face-list-p faceprop)
+        (dolist (face faceprop)
+          (if (facep face)
+            (push face faces)))))
     faces))
 
 (defun spell-fu--file-is-older-list (file-test file-list)