Fixed extra line issue when duplicating

bbatsov · Aug 10, 2021 · c3b6138 · c3b6138
1 parent 95f5040
commit c3b6138
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/crux.el b/crux.el
@@ -384,7 +384,8 @@ there's a region, all lines that region covers will be duplicated."
                (region (buffer-substring-no-properties beg end)))
     (dotimes (_i arg)
       (goto-char end)
-      (newline)
+      (unless (use-region-p)
+        (newline))
       (insert region)
       (setq end (point)))
     (goto-char (+ origin (* (length region) arg) arg))))
@@ -402,7 +403,8 @@ there's a region, all lines that region covers will be duplicated."
     (setq end (line-end-position))
     (dotimes (_ arg)
       (goto-char end)
-      (newline)
+      (unless (use-region-p)
+        (newline))
       (insert region)
       (setq end (point)))
     (goto-char (+ origin (* (length region) arg) arg))))