org-export: Export properties from subtrees are case insensitive

* contrib/lisp/org-export.el (org-export--get-subtree-options): Export
  properties from subtrees are case insensitive.
This commit is contained in:
Nicolas Goaziou 2012-07-25 10:12:53 +02:00
parent f06a4db2be
commit 8d98835a3c
1 changed files with 3 additions and 1 deletions

View File

@ -1323,7 +1323,9 @@ for export. Return options as a plist."
(let ((property (nth 1 option)))
(when (and property (not (member property seen)))
(let* ((subtree-prop (concat "EXPORT_" property))
(value (org-entry-get (point) subtree-prop)))
;; Export properties are not case-sensitive.
(value (let ((case-fold-search t))
(org-entry-get (point) subtree-prop))))
(push property seen)
(when value
(setq plist