Fix `org-property-inherit-p'

* lisp/org.el (org-property-inherit-p): Properties are case insensitive.
This commit is contained in:
Nicolas Goaziou 2017-01-26 23:10:53 +01:00
parent 7c710f6f57
commit 1f8fb3cf54
1 changed files with 2 additions and 2 deletions

View File

@ -3828,14 +3828,14 @@ in this variable)."
(regexp :tag "Properties matched by regexp"))) (regexp :tag "Properties matched by regexp")))
(defun org-property-inherit-p (property) (defun org-property-inherit-p (property)
"Check if PROPERTY is one that should be inherited." "Return a non-nil value if PROPERTY should be inherited."
(cond (cond
((eq org-use-property-inheritance t) t) ((eq org-use-property-inheritance t) t)
((not org-use-property-inheritance) nil) ((not org-use-property-inheritance) nil)
((stringp org-use-property-inheritance) ((stringp org-use-property-inheritance)
(string-match org-use-property-inheritance property)) (string-match org-use-property-inheritance property))
((listp org-use-property-inheritance) ((listp org-use-property-inheritance)
(member property org-use-property-inheritance)) (member-ignore-case property org-use-property-inheritance))
(t (error "Invalid setting of `org-use-property-inheritance'")))) (t (error "Invalid setting of `org-use-property-inheritance'"))))
(defcustom org-columns-default-format "%25ITEM %TODO %3PRIORITY %TAGS" (defcustom org-columns-default-format "%25ITEM %TODO %3PRIORITY %TAGS"