Fix missing first word within <em> tags
This commit is contained in:
parent
c235a0e70e
commit
181522ca83
|
@ -48,7 +48,7 @@
|
||||||
(vector-refs (contents) 0 1)))))
|
(vector-refs (contents) 0 1)))))
|
||||||
,@(convert-many (cdr (contents-list)))))
|
,@(convert-many (cdr (contents-list)))))
|
||||||
((equal? type "Emph")
|
((equal? type "Emph")
|
||||||
`(em ,@(convert-many (cdr (contents-list)))))
|
`(em ,@(convert-many (contents-list))))
|
||||||
((equal? type "Header")
|
((equal? type "Header")
|
||||||
(let* ((level (car (contents-list)))
|
(let* ((level (car (contents-list)))
|
||||||
(h-tag (string->symbol
|
(h-tag (string->symbol
|
||||||
|
|
Loading…
Reference in New Issue