[elpa] master e7d585b 1/7: Don't expand in let bindings (Finally!!!)

[Artur Malabarba]

branch: master
commit e7d585b07c41c52ff65dd9b3305a3be7d2251d8c
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Don't expand in let bindings (Finally!!!)
---
 sotlisp.el |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/sotlisp.el b/sotlisp.el
index c466e10..9483bf9 100644
--- a/sotlisp.el
+++ b/sotlisp.el
@@ -99,6 +99,13 @@
 Specially, avoids matching inside argument lists."
   (and (eq (char-before) ?\()
        (not (sotlisp--looking-back "(\\(defun\\s-+.*\\|lambda\\s-+\\)("))
+       (save-excursion
+         (forward-char -1)
+         (backward-up-list)
+         (forward-sexp -1)
+         (not
+          (looking-at-p (rx (* (or (syntax word) (syntax symbol) "-"))
+                            "let" symbol-end))))
        (not (string-match (rx (syntax symbol)) (string last-command-event)))))
 
 (defun sotlisp--function-quote-p ()