diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-26 23:10:53 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-26 23:10:53 +0100 |
| commit | 1f8fb3cf54fddad9ff0cb487754e1818044e5dea (patch) | |
| tree | 79ebb2e3db26ddbab2b1b855d3badd833aaa1475 | |
| parent | 7c710f6f57ab7dcc539511cc9c51ee350a966fce (diff) | |
| download | org-mode-1f8fb3cf54fddad9ff0cb487754e1818044e5dea.tar.gz | |
Fix `org-property-inherit-p'
* lisp/org.el (org-property-inherit-p): Properties are case insensitive.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 3ef57de..d51ae3f 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3828,14 +3828,14 @@ in this variable)." (regexp :tag "Properties matched by regexp"))) (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 ((eq org-use-property-inheritance t) t) ((not org-use-property-inheritance) nil) ((stringp org-use-property-inheritance) (string-match org-use-property-inheritance property)) ((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'")))) (defcustom org-columns-default-format "%25ITEM %TODO %3PRIORITY %TAGS" |