@@ -2682,7 +2682,7 @@ lists up."
26822682;;;### autoload
26832683(defun clojure-let-backward-slurp-sexp (&optional n )
26842684 " Slurp the s-expression before the let form into the let form.
2685- With a numberic prefix argument slurp the previous N s-expression
2685+ With a numeric prefix argument slurp the previous N s-expressions
26862686into the let form."
26872687 (interactive " p" )
26882688 (let ((n (or n 1 )))
@@ -2702,7 +2702,8 @@ into the let form."
27022702;;;### autoload
27032703(defun clojure-let-forward-slurp-sexp (&optional n )
27042704 " Slurp the next s-expression after the let form into the let form.
2705- With a numeric prefix argument slurp the next N s-expressions into the let form."
2705+ With a numeric prefix argument slurp the next N s-expressions
2706+ into the let form."
27062707 (interactive " p" )
27072708 (unless n (setq n 1 ))
27082709 (dotimes (_ n)
@@ -2731,8 +2732,8 @@ With a numeric prefix argument the let is introduced N lists up."
27312732 (let ((rgx (concat " :as +" current-alias))
27322733 (bound (save-excursion (forward-list 1 ) (point ))))
27332734 (if (save-excursion (search-forward-regexp rgx bound t ))
2734- (let ((new-alias (read-from-minibuffer " New alias: " )))
2735- (clojure--rename-ns-alias-internal current-alias new-alias))
2735+ (let ((new-alias (read-from-minibuffer " New alias: " )))
2736+ (clojure--rename-ns-alias-internal current-alias new-alias))
27362737 (message " Cannot find namespace alias: '%s ' " current-alias))))))
27372738
27382739;;;### autoload
@@ -2755,7 +2756,7 @@ With a numeric prefix argument the let is introduced N lists up."
27552756 ((looking-back " \\ [" 1 ) ; ; single-arity defn
27562757 (let* ((bol (save-excursion (beginning-of-line ) (point )))
27572758 (same-line (save-excursion (re-search-backward " defn" bol t )))
2758- (new-arity-text (concat (when same-line " \n " ) " ([])\n [" )))
2759+ (new-arity-text (concat (when same-line " \n " ) " ([])\n [" )))
27592760 (re-search-backward " +\\ [" )
27602761 (replace-match new-arity-text)
27612762 (save-excursion
0 commit comments