[elpa] master 171883f 13/47: Add let coloring.

[Jackson Ray Hamilton]

branch: master
commit 171883fa4f044bc5c4acf0042531f1b160a8e7d6
Author: Jackson Ray Hamilton <address@hidden>
Commit: Jackson Ray Hamilton <address@hidden>

    Add let coloring.
---
 context-coloring.el |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/context-coloring.el b/context-coloring.el
index a84a1b4..9c31314 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -375,6 +375,7 @@ generated by `js2-mode'."
              one-word-found-p
              in-defun-p
              in-lambda-p
+             in-let-p
              in-let*-p
              defun-arglist
              defun-arg
@@ -472,10 +473,13 @@ generated by `js2-mode'."
                 (setq in-defun-p t))
                ((string-match-p "\\`lambda\\'" child-0-string)
                 (setq in-lambda-p t))
+               ((string-match-p "\\`let\\'" child-0-string)
+                (setq in-let-p t))
                ((string-match-p "\\`let\\*\\'" child-0-string)
                 (setq in-let*-p t)))))
             (when (or in-defun-p
                       in-lambda-p
+                      in-let-p
                       in-let*-p)
               (setq scope-stack (cons (context-coloring-make-scope
                                        (nth 0 ppss)
@@ -524,7 +528,8 @@ generated by `js2-mode'."
               ;; Cleanup
               (setq in-defun-p nil)
               (setq in-lambda-p nil))
-             (in-let*-p
+             ((or in-let-p
+                  in-let*-p)
               (goto-char child-0-end)
               ;; Lookahead for bindings
               (context-coloring-forward-sws)
@@ -552,6 +557,7 @@ generated by `js2-mode'."
                   (setq let-varlist (cdr let-varlist)))
                 (goto-char child-1-end))
               ;; Cleanup
+              (setq in-let-p nil)
               (setq in-let*-p nil))
              (t
               (goto-char (cond