forked from mirrors/org-mode
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.
This commit is contained in:
parent
eac255d911
commit
95eaab7f44
|
@ -7611,8 +7611,9 @@ This last option is in practice not very useful, but it is available for
|
||||||
consistency with the other filter commands."
|
consistency with the other filter commands."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(let* ((efforts (split-string
|
(let* ((efforts (split-string
|
||||||
(or (cdr (assoc (concat org-effort-property "_ALL")
|
(or (cdr (assoc-string (concat org-effort-property "_ALL")
|
||||||
org-global-properties))
|
org-global-properties
|
||||||
|
t))
|
||||||
"0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")))
|
"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
|
;; XXX: the following handles only up to 10 different
|
||||||
;; effort values.
|
;; effort values.
|
||||||
|
@ -7777,8 +7778,9 @@ which see."
|
||||||
(org-agenda-get-represented-tags))))
|
(org-agenda-get-represented-tags))))
|
||||||
((member operator '("<" ">" "="))
|
((member operator '("<" ">" "="))
|
||||||
(setq table (split-string
|
(setq table (split-string
|
||||||
(or (cdr (assoc (concat org-effort-property "_ALL")
|
(or (cdr (assoc-string (concat org-effort-property "_ALL")
|
||||||
org-global-properties))
|
org-global-properties
|
||||||
|
t))
|
||||||
"0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")
|
"0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")
|
||||||
" +")))
|
" +")))
|
||||||
(t (setq table nil)))
|
(t (setq table nil)))
|
||||||
|
|
Loading…
Reference in a new issue