fix(custom-line-paragraph): correct paren-jump, line-join, and duplicate

This module carried three editing bugs.

cj/jump-to-matching-paren, with point on a closing delimiter, ran backward-sexp from there and landed on the last inner sexp instead of the opener. It now steps past the closer first so backward-sexp spans the whole expression, and restores point when the delimiter is unmatched. Four tests that asserted the last-inner-sexp landings are corrected to the true matching opener.

cj/join-line-or-region, without a region, added a newline unconditionally after joining, which left a stray blank line when joining a line in the middle of the buffer. It now adds the newline only at end of buffer.

cj/duplicate-line-or-region duplicated a stray empty line for a region ending at beginning-of-line and split the line for a region ending mid-line. I normalized the bounds to the whole lines the region touches and insert that block once.

1 files changed, 34 insertions, 0 deletions

diff --git a/tests/test-custom-line-paragraph-duplicate-line-or-region.el b/tests/test-custom-line-paragraph-duplicate-line-or-region.el
index 84f5bc2d..9e501086 100644
--- a/tests/test-custom-line-paragraph-duplicate-line-or-region.el
+++ b/tests/test-custom-line-paragraph-duplicate-line-or-region.el
@@ -327,6 +327,40 @@
         (should (> (length (buffer-string)) (length "line one\nline two\nline three"))))
     (test-duplicate-line-or-region-teardown)))
 
+(ert-deftest test-duplicate-line-or-region-mid-line-bounds-duplicate-whole-lines ()
+  "A region ending mid-line duplicates every whole line it touches, no splits.
+The old open-line loop split the mid-line-ending line instead."
+  (test-duplicate-line-or-region-setup)
+  (unwind-protect
+      (with-temp-buffer
+        (insert "aaa\nbbb\nccc")
+        (transient-mark-mode 1)
+        (goto-char (point-min))
+        (forward-char 1)                ; mid first line
+        (set-mark (point))
+        (forward-line 1)
+        (forward-char 2)                ; mid second line
+        (activate-mark)
+        (cj/duplicate-line-or-region)
+        (should (string= "aaa\nbbb\naaa\nbbb\nccc" (buffer-string))))
+    (test-duplicate-line-or-region-teardown)))
+
+(ert-deftest test-duplicate-line-or-region-ends-at-bol-no-extra-empty-line ()
+  "A region ending at beginning-of-line duplicates only the fully-included lines.
+The old open-line loop duplicated a stray empty line here."
+  (test-duplicate-line-or-region-setup)
+  (unwind-protect
+      (with-temp-buffer
+        (insert "aaa\nbbb\nccc")
+        (transient-mark-mode 1)
+        (goto-char (point-min))
+        (set-mark (point))
+        (forward-line 2)                ; region "aaa\nbbb\n", ends at bol of ccc
+        (activate-mark)
+        (cj/duplicate-line-or-region)
+        (should (string= "aaa\nbbb\naaa\nbbb\nccc" (buffer-string))))
+    (test-duplicate-line-or-region-teardown)))
+
 (ert-deftest test-duplicate-line-or-region-trailing-whitespace ()
   "Should preserve trailing whitespace."
   (test-duplicate-line-or-region-setup)