diff --git a/md4tj_parse.el b/md4tj_parse.el index 0fc28c6..97362a5 100644 --- a/md4tj_parse.el +++ b/md4tj_parse.el @@ -134,7 +134,10 @@ (defun md4tj-begin () "Insert beginning code for all html." (concat "\n" - (md4tj-begin-tag "html" (list (list "lang" "en-us"))) "\n")) + (md4tj-begin-tag "html" + (list (list "lang" + (or (nth 1 (car (cl-remove-if-not (lambda (meta) (string= (car meta) "@@LANG")) (md4tj-find-metas)))) "en")))) + "\n")) (defun md4tj-finalize (state) "Finalizes HTML document by inserting missing end tags based on STATE."