oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
dx
2020-06-11 01:33:08 +01:00
parent 0f9ca9c5f1
commit 6a5d059dda
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Doom/.doom.d/org/personal.org
View File

@@ -96,7 +96,7 @@ Then the main function, works like so:
(n-sentences (dx:org/count-sub region-text ".")) (n-sentences (dx:org/count-sub region-text "."))
(parsed-text (apply #'concatenate 'string (cl-loop for c from beg to end collect (parsed-text (apply #'concatenate 'string (cl-loop for c from beg to end collect
(if (string= (buffer-substring-no-properties c (+ c 1)) "\n") " " (if (string= (buffer-substring-no-properties c (+ c 1)) "\n") " "
c))))) (buffer-substring-no-properties c (+ c 1)))))))
(delete-region beg end) (delete-region beg end)
(insert parsed-text) (insert parsed-text)
(message "%s" n-sentences) (message "%s" n-sentences)