Skip to content

Commit ffa0252

Browse files
committed
Tweak docstrings and indentation
1 parent 63a317a commit ffa0252

File tree

1 file changed

+6
-5
lines changed

1 file changed

+6
-5
lines changed

clojure-mode.el

+6-5
Original file line numberDiff line numberDiff line change
@@ -2680,7 +2680,7 @@ lists up."
26802680
;;;###autoload
26812681
(defun clojure-let-backward-slurp-sexp (&optional n)
26822682
"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
26842684
into the let form."
26852685
(interactive "p")
26862686
(let ((n (or n 1)))
@@ -2700,7 +2700,8 @@ into the let form."
27002700
;;;###autoload
27012701
(defun clojure-let-forward-slurp-sexp (&optional n)
27022702
"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."
27042705
(interactive "p")
27052706
(unless n (setq n 1))
27062707
(dotimes (_ n)
@@ -2729,8 +2730,8 @@ With a numeric prefix argument the let is introduced N lists up."
27292730
(let ((rgx (concat ":as +" current-alias))
27302731
(bound (save-excursion (forward-list 1) (point))))
27312732
(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))
27342735
(message "Cannot find namespace alias: '%s'" current-alias))))))
27352736

27362737
;;;###autoload
@@ -2753,7 +2754,7 @@ With a numeric prefix argument the let is introduced N lists up."
27532754
((looking-back "\\[" 1) ;; single-arity defn
27542755
(let* ((bol (save-excursion (beginning-of-line) (point)))
27552756
(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[")))
27572758
(re-search-backward " +\\[")
27582759
(replace-match new-arity-text)
27592760
(save-excursion

0 commit comments

Comments
 (0)