mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
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."
|
||||
(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)))
|
||||
|
|
Loading…
Reference in a new issue