Fixed extra line issue when duplicating

bbatsov · Mar 20, 2021 · 7659f3b · 7659f3b
1 parent b2cdd27
commit 7659f3b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/crux.el b/crux.el
@@ -381,7 +381,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))))
@@ -399,7 +400,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))))