branch: master
commit e7d585b07c41c52ff65dd9b3305a3be7d2251d8c
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
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 ()
