[Orgmode] org-agenda-filter-by-tag doesn't work with custom effort property

[Daniel Clemente]

  Hi, I would like to contribute 1 byte to org-mode; it's an "a":


--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4407,7 +4407,7 @@ to switch to narrowing."
                    (lambda (x) (if (cdr x) (char-to-string (cdr x)) ""))
                    alist ""))
        (efforts (org-split-string
-                 (or (cdr (assoc (concat org-effort-property "_ALL")
+                 (or (cadr (assoc (concat org-effort-property "_ALL")
                                  org-global-properties))
                      "0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00 8:00"     
              "")))
        (effort-op org-agenda-filter-effort-default-operator)


  This solves the following stack trace:


Debugger entered--Lisp error: (wrong-type-argument stringp ("0 0:10 0:30 1:00 
2:00 3:00 4:00 5:00 6:00 12:00 18:00 24:00 30:00"))
  string-match("[ \f    \n…]+" ("0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 
12:00 18:00 24:00 30:00") 0)
  org-split-string(("0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 12:00 18:00 
24:00 30:00"))
  org-agenda-filter-by-tag(nil)
  call-interactively(org-agenda-filter-by-tag nil nil)


  Thanks,
Daniel