Explorar o código

Added a call to insert any bodynewline-paragraph value before the start of a line item.

Robert P. Goldman %!s(int64=15) %!d(string=hai) anos
pai
achega
e50657d7cb
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  1. 5 1
      contrib/lisp/org-export-generic.el

+ 5 - 1
contrib/lisp/org-export-generic.el

@@ -932,9 +932,13 @@ underlined headlines.  The default is 3."
             (string-match "^\\([ \t]+\\)\\(\\*[ \t]*\\)" line))
 	;;
 	;; plain list item
-	;;
 	;; TODO: nested lists
 	;;
+        ;; first add a line break between any previous paragraph or line item and this
+        ;; one
+        (when bodynewline-paragraph
+          (insert bodynewline-paragraph))
+
         ;; I believe this gets rid of leading whitespace.
 	(setq line (replace-match "" nil nil line))