瀏覽代碼

Merge branch 'maint'

Nicolas Goaziou 6 年之前
父節點
當前提交
f45caca608
共有 1 個文件被更改,包括 3 次插入2 次删除
  1. 3 2
      lisp/ox-html.el

+ 3 - 2
lisp/ox-html.el

@@ -2006,8 +2006,9 @@ communication channel."
 			(plist-get info :html-metadata-timestamp-format))))
 		    (when (plist-get info :with-creator)
 		      (format "<p class=\"creator\">%s</p>\n" creator))
-		    (format "<p class=\"validation\">%s</p>\n"
-			    validation-link))))
+		    (when (org-string-nw-p validation-link)
+		      (format "<p class=\"validation\">%s</p>\n"
+			      validation-link)))))
 		(t
 		 (let ((formats (plist-get info (if (eq type 'preamble)
 						    :html-preamble-format