emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/clojure-mode 8bcc657 5/8: Move clojure--let-regexp before


From: ELPA Syncer
Subject: [nongnu] elpa/clojure-mode 8bcc657 5/8: Move clojure--let-regexp before first use
Date: Sat, 21 Aug 2021 16:57:19 -0400 (EDT)

branch: elpa/clojure-mode
commit 8bcc6574beb0fc781a1a11d95094af283fe84a17
Author: Rob Browning <rlb@defaultvalue.org>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Move clojure--let-regexp before first use
    
    Otherwise test-bytecomp fails with:
    
      In toplevel form:
      clojure-mode.el:493:25:Error: reference to free variable 
`clojure--let-regexp'
---
 clojure-mode.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/clojure-mode.el b/clojure-mode.el
index 2c32212..c83f864 100644
--- a/clojure-mode.el
+++ b/clojure-mode.el
@@ -486,6 +486,16 @@ val} as of Clojure 1.9.")
 (declare-function paredit-close-curly "ext:paredit" t t)
 (declare-function paredit-convolute-sexp "ext:paredit")
 
+(defvar clojure--let-regexp
+  "\(\\(when-let\\|if-let\\|let\\)\\(\\s-*\\|\\[\\)"
+  "Regexp matching let like expressions, i.e. \"let\", \"when-let\", 
\"if-let\".
+
+The first match-group is the let expression.
+
+The second match-group is the whitespace or the opening square
+bracket if no whitespace between the let expression and the
+bracket.")
+
 (defun clojure--replace-let-bindings-and-indent (&rest _)
   "Replace let bindings and indent."
   (save-excursion
@@ -2542,16 +2552,6 @@ See: 
https://github.com/clojure-emacs/clj-refactor.el/wiki/cljr-cycle-if";
 
 ;;; let related stuff
 
-(defvar clojure--let-regexp
-  "\(\\(when-let\\|if-let\\|let\\)\\(\\s-*\\|\\[\\)"
-  "Regexp matching let like expressions, i.e. \"let\", \"when-let\", 
\"if-let\".
-
-The first match-group is the let expression.
-
-The second match-group is the whitespace or the opening square
-bracket if no whitespace between the let expression and the
-bracket.")
-
 (defun clojure--goto-let ()
   "Go to the beginning of the nearest let form."
   (when (clojure--in-string-p)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]