forked from mirrors/org-mode
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:
parent
f06a4db2be
commit
8d98835a3c
|
@ -1323,7 +1323,9 @@ for export. Return options as a plist."
|
||||||
(let ((property (nth 1 option)))
|
(let ((property (nth 1 option)))
|
||||||
(when (and property (not (member property seen)))
|
(when (and property (not (member property seen)))
|
||||||
(let* ((subtree-prop (concat "EXPORT_" property))
|
(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)
|
(push property seen)
|
||||||
(when value
|
(when value
|
||||||
(setq plist
|
(setq plist
|
||||||
|
|
Loading…
Reference in a new issue