Merge remote-tracking branch 'origin/master'

md4tj_parse.el

@@ -70,13 +70,9 @@
    "<" "&lt;"
    (string-replace ">" "&gt;" line)))
 				  
-
-;; Note: a "block" is the smallest unit of parsing
-;; It is normally a line of the code, but can be
-;; multiple lines in the case of a block (NI)
-(defun md4tj-process-block (codeblock state)
-  "Process CODEBLOCK with STATE and return html."
-  (let ((cleanline (md4tj-clean-multiline codeblock)))
+(defun md4tj-convert-line-to-html (line state)
+  "Process LINE with STATE and return html."
+  (let ((cleanline (md4tj-clean-multiline line)))
 	(concat
 	 ;; Beginning of multiline block
 	 (cond ((eq state 'beginul) "<ul>\n<li>")
@@ -141,7 +137,7 @@
 	  (setq line (with-current-buffer inbuf (getline)))
 	  (setq state (md4tj-next-state line state))
 	  ;; Insert next line(s) into output file
-	  (insert (concat (md4tj-process-block line state) "\n"))
+	  (insert (concat (md4tj-convert-line-to-html line state) "\n"))
 	  ;; Advance input file by a line
 	  (with-current-buffer inbuf (forward-line)))
 	(insert (md4tj-finalize state))