FUEL: fixing markup to indent multiline code correctly

diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index f69ad844a96be04ce5a4972922eff08ac587d76b..cd8dd6a50c40e5b3edace27bdfffd05fd7c7a99f 100644 (file)
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -307,11 +307,12 @@
   (fuel-markup--insert-nl-if-nb)
   (newline)
   (dolist (snip (cdr e))
-    (when indent (insert "    "))
-    (if (stringp snip)
-        (insert (factor-font-lock-string snip))
-      (fuel-markup--print snip))
-    (newline))
+    (unless (stringp snip)
+      (error "snip is not a string"))
+    (dolist (line (split-string (factor-font-lock-string snip) "\n"))
+      (when indent (insert "    "))
+      (insert line)
+      (newline)))
   (newline))
 
 (defun fuel-markup--command (e)