@@ -486,6 +486,16 @@ val} as of Clojure 1.9.")
486
486
(declare-function paredit-close-curly " ext:paredit" t t )
487
487
(declare-function paredit-convolute-sexp " ext:paredit" )
488
488
489
+ (defvar clojure--let-regexp
490
+ " \( \\ (when-let\\ |if-let\\ |let\\ )\\ (\\ s-*\\ |\\ [\\ )"
491
+ " Regexp matching let like expressions, i.e. \" let\" , \" when-let\" , \" if-let\" .
492
+
493
+ The first match-group is the let expression.
494
+
495
+ The second match-group is the whitespace or the opening square
496
+ bracket if no whitespace between the let expression and the
497
+ bracket." )
498
+
489
499
(defun clojure--replace-let-bindings-and-indent (&rest _ )
490
500
" Replace let bindings and indent."
491
501
(save-excursion
@@ -2542,16 +2552,6 @@ See: https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-cycle-if"
2542
2552
2543
2553
; ;; let related stuff
2544
2554
2545
- (defvar clojure--let-regexp
2546
- " \( \\ (when-let\\ |if-let\\ |let\\ )\\ (\\ s-*\\ |\\ [\\ )"
2547
- " Regexp matching let like expressions, i.e. \" let\" , \" when-let\" , \" if-let\" .
2548
-
2549
- The first match-group is the let expression.
2550
-
2551
- The second match-group is the whitespace or the opening square
2552
- bracket if no whitespace between the let expression and the
2553
- bracket." )
2554
-
2555
2555
(defun clojure--goto-let ()
2556
2556
" Go to the beginning of the nearest let form."
2557
2557
(when (clojure--in-string-p)
0 commit comments