Browse Source

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.
Kyle Meyer 5 years ago
parent
commit
95eaab7f44
1 changed files with 6 additions and 4 deletions
  1. 6 4
      lisp/org-agenda.el

+ 6 - 4
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."
 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")
-				   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")))
 		       "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")
-				   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")
 		       "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)))