From 1d2e9a381e89ce14df3386d08f76f4012f202203 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 8 Aug 2015 19:39:15 -0400
Subject: slurp: Reduce new line stretches to single space

... instead of replacing each new line with a space.
---
 test-org-link-edit.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'test-org-link-edit.el')

diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index e00288c..19d8c97 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -113,6 +113,15 @@ otherwise place the point at the beginning of the inserted text."
 website is"
       (org-link-edit-forward-slurp 1)
       (buffer-string))))
+  ;; Collapse stretches of new lines.
+  (should
+   (string=
+    "\[\[http://orgmode.org/\]\[Org's website is\]\]"
+    (org-test-with-temp-text
+        "\[\[http://orgmode.org/\]\[Org's\]\]
+\n\nwebsite\n\n\nis"
+      (org-link-edit-forward-slurp 2)
+      (buffer-string))))
   ;; Slurp blob that has no whitespace.
   (should
    (string=
@@ -204,6 +213,15 @@ website is"
 <point>\[\[http://orgmode.org/\]\[Org's website\]\]"
       (org-link-edit-backward-slurp 1)
       (buffer-string))))
+  ;; Collapse stretches of new lines.
+  (should
+   (string=
+    "\[\[http://orgmode.org/\]\[Here is Org's website\]\]"
+    (org-test-with-temp-text
+        "Here\n\nis\n\n\n
+<point>\[\[http://orgmode.org/\]\[Org's website\]\]"
+      (org-link-edit-backward-slurp 2)
+      (buffer-string))))
   ;; Slurp blob that has no whitespace.
   (should
    (string=
-- 
cgit v1.2.3