Fix bug when renaming ns aliases with common prefixes

Author: yuhan0

clojure-mode.el

@@ -2703,7 +2703,7 @@ lists up."
 (defun clojure--rename-ns-alias-internal (current-alias new-alias)
   "Rename a namespace alias CURRENT-ALIAS to NEW-ALIAS."
   (clojure--find-ns-in-direction 'backward)
-  (let ((rgx (concat ":as +" (regexp-quote current-alias)))
+  (let ((rgx (concat ":as +" (regexp-quote current-alias) "\\_>"))
         (bound (save-excursion (forward-list 1) (point))))
     (when (search-forward-regexp rgx bound t)
       (replace-match (concat ":as " new-alias))
@@ -2768,7 +2768,7 @@ With a numeric prefix argument the let is introduced N lists up."
     (let* ((current-alias (completing-read "Current alias: "
                                            (clojure-collect-ns-aliases
                                             (save-excursion (thing-at-point 'list)))))
-           (rgx (concat ":as +" current-alias))
+           (rgx (concat ":as +" (regexp-quote current-alias) "\\_>"))
            (bound (save-excursion (forward-list 1) (point))))
       (if (save-excursion (search-forward-regexp rgx bound t))
           (let ((new-alias (read-from-minibuffer "New alias: ")))

test/clojure-mode-refactor-rename-ns-alias-test.el

@@ -43,6 +43,23 @@
      (+ (foo/a 1) (b 2))"
 
     (clojure--rename-ns-alias-internal "lib" "foo"))
+  (when-refactoring-it "should handle multiple aliases with common prefixes"
+
+    "(ns foo
+  (:require [clojure.string :as string]
+            [clojure.spec.alpha :as s]
+            [clojure.java.shell :as shell]))
+
+(s/def ::abc string/blank?)
+"
+    "(ns foo
+  (:require [clojure.string :as string]
+            [clojure.spec.alpha :as spec]
+            [clojure.java.shell :as shell]))
+
+(spec/def ::abc string/blank?)
+"
+    (clojure--rename-ns-alias-internal "s" "spec"))
 
   (when-refactoring-it "should handle ns declarations with missing as"
     "(ns cljr.core