~!fix bug where fill auto lines doesn't concat properly

2020-06-11 01:33:08 +01:00
parent 0f9ca9c5f1
commit 6a5d059dda
1 changed files with 1 additions and 1 deletions
--- a/Doom/.doom.d/org/personal.org
+++ b/Doom/.doom.d/org/personal.org
@@ -96,7 +96,7 @@ Then the main function, works like so:
         (n-sentences (dx:org/count-sub region-text "."))
         (parsed-text (apply #'concatenate 'string (cl-loop for c from beg to end collect
                                                            (if (string= (buffer-substring-no-properties c (+ c 1)) "\n") " "
-                                                              c)))))
+                                                              (buffer-substring-no-properties c (+ c 1)))))))
    (delete-region beg end)
    (insert parsed-text)
    (message "%s" n-sentences)