branch: externals/muse
commit f0bdba2edb92abf02fdecf940ef9b1c965c89699
Author: Alex Ott <[email protected]>
Commit: Alex Ott <[email protected]>
use correct newline character in longlines-mode
---
lisp/muse-mode.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/lisp/muse-mode.el b/lisp/muse-mode.el
index 96598433dd..3516d7b09a 100644
--- a/lisp/muse-mode.el
+++ b/lisp/muse-mode.el
@@ -360,6 +360,10 @@ the line if point is on a blank line."
(call-interactively cmd))
(message "Not inserting anything"))))
+(defun muse-get-new-line-character ()
+ "Returns newline character that is needed, dependent on mode"
+ (if longlines-mode hard-newline "\n"))
+
;;;###autoload
(defun muse-insert-list-item ()
"Insert a list item at the current point, taking into account
@@ -391,7 +395,7 @@ your current list type and indentation level."
(number-to-string itemno)
nil nil newitem))))))
;; insert the new item
- (insert (concat "\n" newitem))))
+ (insert (concat (muse-get-new-line-character) newitem))))
(defun muse-alter-list-item-indentation (operation)
"Alter the indentation of the current list item.
@@ -902,7 +906,8 @@ function, you might want to set this manually.")
;; Insert the tag, closing if necessary
(when tag (insert (concat "<" tag options ">")))
(when (nth 1 tag-entry)
- (insert (concat "\n\n</" tag ">\n"))
+ (insert (concat (muse-get-new-line-character)
(muse-get-new-line-character)
+ "</" tag ">" (muse-get-new-line-character)))
(forward-line -2))))
;;; Muse list edit minor mode
