Browse Source

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 13 years ago
parent
commit
ce6f67c1ef
1 changed files with 2 additions and 1 deletions
  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)