[Fix #531] Don't match strings when using clojure-rename-ns-alias.

Author: anthonygalea

clojure-mode.el

@@ -2668,7 +2668,8 @@ lists up."
           (replace-match (concat ":as " new-alias))))
       (save-excursion
         (while (re-search-forward (concat current-alias "/") nil t)
-          (replace-match (concat new-alias "/"))))
+          (when (not (eq 'font-lock-string-face (get-text-property (point) 'face)))
+            (replace-match (concat new-alias "/")))))
       (save-excursion
         (while (re-search-forward (concat "#::" current-alias "{") nil t)
           (replace-match (concat "#::" new-alias "{"))))

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

@@ -55,8 +55,26 @@
 
      (+ (lib/a 1) (b 2))"
 
-    (clojure--rename-ns-alias-internal "foo" "bar")))
+    (clojure--rename-ns-alias-internal "foo" "bar"))
 
-(provide 'clojure-mode-refactor-rename-ns-alias-test)
+  (when-refactoring-it "should skip strings"
+    "(ns cljr.core
+       (:require [my.lib :as lib]))
+
+     (def dirname \"/usr/local/lib/python3.6/site-packages\")
+
+     (+ (lib/a 1) (b 2))"
+
+    "(ns cljr.core
+       (:require [my.lib :as foo]))
+
+     (def dirname \"/usr/local/lib/python3.6/site-packages\")
+
+     (+ (foo/a 1) (b 2))"
+
+    (font-lock-fontify-buffer)
+    (clojure--rename-ns-alias-internal "lib" "foo")))
+
+  (provide 'clojure-mode-refactor-rename-ns-alias-test)
 
 ;;; clojure-mode-refactor-rename-ns-alias-test.el ends here