소스 검색

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 년 전
부모
커밋
95eaab7f44
1개의 변경된 파일6개의 추가작업 그리고 4개의 파일을 삭제
  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)))