Просмотр исходного кода

Merge branch 'master' into next

Nicolas Goaziou 6 лет назад
Родитель
Сommit
1e063b401a
1 измененных файлов с 3 добавлено и 0 удалено
  1. 3 0
      lisp/ox-odt.el

+ 3 - 0
lisp/ox-odt.el

@@ -1360,6 +1360,9 @@ original parsed data.  INFO is a plist holding export options."
   (let* ((styles-file (plist-get info :odt-styles-file))
 	 (styles-file (and (org-string-nw-p styles-file)
 			   (org-trim styles-file)))
+	 (styles-file (if (string-match-p "\\`(.*)\\'" styles-file)
+			  (ignore-errors (read styles-file))
+			styles-file))
 	 ;; Non-availability of styles.xml is not a critical
 	 ;; error. For now, throw an error.
 	 (styles-file (or styles-file