Explorar o código

Fix a crash in org-odt-is-formula-link-p

* contrib/lisp/org-odt.el (org-odt-is-formula-link-p): Trivial
change to avoid a crash.
Jambunathan K %!s(int64=13) %!d(string=hai) anos
pai
achega
ce6f67c1ef
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      contrib/lisp/org-odt.el

+ 2 - 1
contrib/lisp/org-odt.el

@@ -1277,7 +1277,8 @@ value of `org-export-odt-use-htmlfontify."
     (org-export-odt-format-formula thefile href)))
 
 (defun org-odt-is-formula-link-p (file)
-  (member (downcase (file-name-extension file)) '("mathml")))
+  (let ((case-fold-search nil))
+    (string-match "\\.mathml\\'" file)))
 
 (defun org-odt-format-org-link (opt-plist type-1 path fragment desc attr
 					  descp)