summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-07-09 00:33:09 -0400
committerKyle Meyer <kyle@kyleam.com>2020-07-09 00:33:09 -0400
commit95eaab7f446e7f29ef5263eeb86c70fbdd23f121 (patch)
tree505efa155cd183ccf80684a5a5e800ffb02a9edc
parenteac255d911e0793513b2e2f14b06b94194a04daf (diff)
downloadorg-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.el10
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)))