Browse Source

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

Robert P. Goldman 15 years ago
parent
commit
e50657d7cb
1 changed files with 5 additions and 1 deletions
  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))
             (string-match "^\\([ \t]+\\)\\(\\*[ \t]*\\)" line))
 	;;
 	;;
 	;; plain list item
 	;; plain list item
-	;;
 	;; TODO: nested lists
 	;; 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.
         ;; I believe this gets rid of leading whitespace.
 	(setq line (replace-match "" nil nil line))
 	(setq line (replace-match "" nil nil line))