branch: elpa/gnosis
commit e21004f3d99c3b37e29da6462a19184ff6365859
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
display-keimenon: Remove newlines when fill-paragraph is used.
---
gnosis.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gnosis.el b/gnosis.el
index 9c781d367d..8757761908 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -488,7 +488,9 @@ This will not be applied to sentences that start with
double space."
If FILL-PARAGRAPH-P, insert question using `fill-paragraph'."
(let ((fill-paragraph-p (or fill-paragraph-p t)))
(erase-buffer)
- (if fill-paragraph-p (fill-paragraph (insert "\n" str))
+ (if fill-paragraph-p
+ (fill-paragraph
+ (insert "\n" (replace-regexp-in-string "\n" "" str)))
(insert "\n" str))
(gnosis-insert-separator)
(gnosis-apply-center-buffer-overlay)
