@@ -2680,7 +2680,7 @@ lists up."
2680
2680
;;;### autoload
2681
2681
(defun clojure-let-backward-slurp-sexp (&optional n )
2682
2682
" Slurp the s-expression before the let form into the let form.
2683
- With a numberic prefix argument slurp the previous N s-expression
2683
+ With a numeric prefix argument slurp the previous N s-expressions
2684
2684
into the let form."
2685
2685
(interactive " p" )
2686
2686
(let ((n (or n 1 )))
@@ -2700,7 +2700,8 @@ into the let form."
2700
2700
;;;### autoload
2701
2701
(defun clojure-let-forward-slurp-sexp (&optional n )
2702
2702
" Slurp the next s-expression after the let form into the let form.
2703
- With a numeric prefix argument slurp the next N s-expressions into the let form."
2703
+ With a numeric prefix argument slurp the next N s-expressions
2704
+ into the let form."
2704
2705
(interactive " p" )
2705
2706
(unless n (setq n 1 ))
2706
2707
(dotimes (_ n)
@@ -2729,8 +2730,8 @@ With a numeric prefix argument the let is introduced N lists up."
2729
2730
(let ((rgx (concat " :as +" current-alias))
2730
2731
(bound (save-excursion (forward-list 1 ) (point ))))
2731
2732
(if (save-excursion (search-forward-regexp rgx bound t ))
2732
- (let ((new-alias (read-from-minibuffer " New alias: " )))
2733
- (clojure--rename-ns-alias-internal current-alias new-alias))
2733
+ (let ((new-alias (read-from-minibuffer " New alias: " )))
2734
+ (clojure--rename-ns-alias-internal current-alias new-alias))
2734
2735
(message " Cannot find namespace alias: '%s ' " current-alias))))))
2735
2736
2736
2737
;;;### autoload
@@ -2753,7 +2754,7 @@ With a numeric prefix argument the let is introduced N lists up."
2753
2754
((looking-back " \\ [" 1 ) ; ; single-arity defn
2754
2755
(let* ((bol (save-excursion (beginning-of-line ) (point )))
2755
2756
(same-line (save-excursion (re-search-backward " defn" bol t )))
2756
- (new-arity-text (concat (when same-line " \n " ) " ([])\n [" )))
2757
+ (new-arity-text (concat (when same-line " \n " ) " ([])\n [" )))
2757
2758
(re-search-backward " +\\ [" )
2758
2759
(replace-match new-arity-text)
2759
2760
(save-excursion
0 commit comments