diff options
author | Kyle Meyer <kyle@kyleam.com> | 2020-07-09 00:33:09 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-07-09 00:33:09 -0400 |
commit | 95eaab7f446e7f29ef5263eeb86c70fbdd23f121 (patch) | |
tree | 505efa155cd183ccf80684a5a5e800ffb02a9edc | |
parent | eac255d911e0793513b2e2f14b06b94194a04daf (diff) | |
download | org-mode-95eaab7f446e7f29ef5263eeb86c70fbdd23f121.tar.gz |
agenda: Fold case when retrieving user-configured effort values
* lisp/org-agenda.el (org-agenda-filter-by-effort):
(org-agenda-filter-completion-function): Ignore case when querying
effort property key in org-global-properties since property keys are
documented as case-insensitive.
-rw-r--r-- | lisp/org-agenda.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 90129b2..5c2933b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7611,8 +7611,9 @@ This last option is in practice not very useful, but it is available for consistency with the other filter commands." (interactive "P") (let* ((efforts (split-string - (or (cdr (assoc (concat org-effort-property "_ALL") - org-global-properties)) + (or (cdr (assoc-string (concat org-effort-property "_ALL") + org-global-properties + t)) "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00"))) ;; XXX: the following handles only up to 10 different ;; effort values. @@ -7777,8 +7778,9 @@ which see." (org-agenda-get-represented-tags)))) ((member operator '("<" ">" "=")) (setq table (split-string - (or (cdr (assoc (concat org-effort-property "_ALL") - org-global-properties)) + (or (cdr (assoc-string (concat org-effort-property "_ALL") + org-global-properties + t)) "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00") " +"))) (t (setq table nil))) |