File tree 2 files changed +7
-6
lines changed
2 files changed +7
-6
lines changed Original file line number Diff line number Diff line change @@ -2692,8 +2692,7 @@ lists up."
2692
2692
(group-n 1 (+ (not (in " ,]\n " ))))))
2693
2693
(res ()))
2694
2694
(while (re-search-forward rgx end 'noerror )
2695
- (message (match-string 1 ))
2696
- (push (cons (point ) (match-string-no-properties 1 )) res))
2695
+ (push (match-string-no-properties 1 ) res))
2697
2696
res)))
2698
2697
2699
2698
(defun clojure--rename-ns-alias-internal (current-alias new-alias )
@@ -2759,8 +2758,7 @@ With a numeric prefix argument the let is introduced N lists up."
2759
2758
(defun clojure-rename-ns-alias ()
2760
2759
" Rename a namespace alias."
2761
2760
(interactive )
2762
- (let ((current-alias (completing-read " Current alias: "
2763
- (mapcar 'cdr (clojure--collect-ns-aliases)))))
2761
+ (let ((current-alias (completing-read " Current alias: " (clojure--collect-ns-aliases))))
2764
2762
(save-excursion
2765
2763
(clojure--find-ns-in-direction 'backward )
2766
2764
(let ((rgx (concat " :as +" current-alias))
Original file line number Diff line number Diff line change 114
114
(with-clojure-buffer
115
115
" (ns test.ns
116
116
(:require [my.math.subtraction :as math.-]
117
- [my.math.multiplication :as math.*]))
117
+ [my.math.multiplication :as math.*]
118
+ [clojure.spec.alpha as s]
119
+ ;; [clojure.spec.alpha2 :as s2]
120
+ [symbols :as abc123.-$#.%*+!@]))
118
121
119
122
(math.*/operator 1 (math.-/subtract 2 3))"
120
123
(expect (clojure--collect-ns-aliases)
121
- :to-equal '(( 104 . " math.*" ) ( 56 . " math.-" ) )))))
124
+ :to-equal '(" abc123.-$#.%*+!@ " " s " " math.*" " math.-" )))))
122
125
123
126
(provide 'clojure-mode-refactor-rename-ns-alias-test )
124
127
You can’t perform that action at this time.
0 commit comments