Re: [O] wrong-type-argument listp when filtering agenda on `work' tag
Hello,
Nicolas Goaziou wrote:
Sebastien Vauban writes:
In the agenda view, when filtering for the tasks marked `work' (through
`/ w') [1], I get the following error:
Debugger entered--Lisp error: (wrong-type-argument listp
#({(?:work\\)\\} 0 16 (grouptag t)))
This should already be fixed. Please update if you can.
I confirm it is. Thanks!
Best regards,
Seb
--
Sebastien Vauban
[O] wrong-type-argument listp when filtering agenda on `work' tag
Hello,
In the agenda view, when filtering for the tasks marked `work' (through
`/ w') [1], I get the following error:
--8---cut here---start-8---
Debugger entered--Lisp error: (wrong-type-argument listp
#({(?:work\\)\\} 0 16 (grouptag t)))
reverse(#({(?:work\\)\\} 0 16 (grouptag t)))
(or (reverse rpl) (list rtnmatch))
(if single-as-list (or (reverse rpl) (list rtnmatch)) rtnmatch)
(let* ((case-fold-search t) (stable org-mode-syntax-table) (tal (or
org-tag-groups-alist-for-agenda org-tag-groups-alist)) (tal (if downcased
(mapcar (function (lambda (tg) (mapcar ... tg))) tal) tal)) (tml (mapcar (quote
car) tal)) (rtnmatch match) rpl) (modify-syntax-entry 64 w stable)
(modify-syntax-entry 95 w stable) (while (and tml (let ((table
(syntax-table)) (buffer (current-buffer))) (unwind-protect (progn
(set-syntax-table stable) (string-match (concat \\(?1:[+-]?\\)\\(?2:\\ ...
)) rtnmatch)) (save-current-buffer (set-buffer buffer) (set-syntax-table
table) (let* ((dir (match-string 1 rtnmatch)) (tag (match-string 2
rtnmatch)) (tag (if downcased (downcase tag) tag))) (setq tml (delete tag tml))
(if (not (get-text-property 0 (quote grouptag) (match-string 2 rtnmatch)))
(progn (setq rpl (append (org-uniquify rpl) (assoc tag tal))) (setq rpl (concat
dir {\\ (regexp-opt rpl) \\})) (if (stringp rpl) (org-add-props rpl
(quote ...))) (setq rtnmatch (replace-match rpl t t rtnmatch)) (if
single-as-list (or (reverse rpl) (list rtnmatch)) rtnmatch))
(if org-group-tags (let* ((case-fold-search t) (stable org-mode-syntax-table)
(tal (or org-tag-groups-alist-for-agenda org-tag-groups-alist)) (tal (if
downcased (mapcar (function (lambda ... ...)) tal) tal)) (tml (mapcar (quote
car) tal)) (rtnmatch match) rpl) (modify-syntax-entry 64 w stable)
(modify-syntax-entry 95 w stable) (while (and tml (let ((table
(syntax-table)) (buffer (current-buffer))) (unwind-protect (progn
(set-syntax-table stable) (string-match ... rtnmatch)) (save-current-buffer
(set-buffer buffer) (set-syntax-table table) (let* ((dir (match-string 1
rtnmatch)) (tag (match-string 2 rtnmatch)) (tag (if downcased (downcase tag)
tag))) (setq tml (delete tag tml)) (if (not (get-text-property 0 (quote
grouptag) (match-string 2 rtnmatch))) (progn (setq rpl (append ... ...)) (setq
rpl (concat dir {\\ ... \\})) (if (stringp rpl) (org-add-props rpl ...))
(setq rtnmatch (replace-match rpl t t rtnmatch)) (if single-as-list (or
(reverse rpl) (list rtnmatch)) rtnmatch)) (if single-as-list (list (if
downcased (downcase match) match)) match))
org-tags-expand(work t t)
(mapcar (function (lambda (f1) (concat dir f1))) (org-tags-expand f0 t t))
(append (mapcar (function (lambda (f1) (concat dir f1))) (org-tags-expand f0
t t)) rtn)
(setq rtn (append (mapcar (function (lambda (f1) (concat dir f1)))
(org-tags-expand f0 t t)) rtn))
(let (f0 dir) (if (string-match ^\\([+-]\\)\\(.+\\) f) (setq dir
(match-string 1 f) f0 (match-string 2 f)) (setq dir (if no-operator +) f0
f)) (setq rtn (append (mapcar (function (lambda (f1) (concat dir f1)))
(org-tags-expand f0 t t)) rtn)))
(lambda (f) (let (f0 dir) (if (string-match ^\\([+-]\\)\\(.+\\) f) (setq
dir (match-string 1 f) f0 (match-string 2 f)) (setq dir (if no-operator +)
f0 f)) (setq rtn (append (mapcar (function (lambda (f1) (concat dir f1)))
(org-tags-expand f0 t t)) rtn(+work)
mapc((lambda (f) (let (f0 dir) (if (string-match ^\\([+-]\\)\\(.+\\) f)
(setq dir (match-string 1 f) f0 (match-string 2 f)) (setq dir (if no-operator
+) f0 f)) (setq rtn (append (mapcar (function (lambda (f1) (concat dir
f1))) (org-tags-expand f0 t t)) rtn (+work))
(let ((case-fold-search t) rtn) (mapc (function (lambda (f) (let (f0 dir) (if
(string-match ^\\([+-]\\)\\(.+\\) f) (setq dir (match-string 1 f) f0
(match-string 2 f)) (setq dir (if no-operator +) f0 f)) (setq rtn (append
(mapcar ... ...) rtn) filter) (reverse rtn))
(if org-group-tags (let ((case-fold-search t) rtn) (mapc (function (lambda
(f) (let (f0 dir) (if (string-match ^\\([+-]\\)\\(.+\\) f) (setq dir ... f0
...) (setq dir ... f0 f)) (setq rtn (append ... rtn) filter) (reverse rtn))
filter)
org-agenda-filter-expand-tags((+work))
(let ((nfilter (org-agenda-filter-expand-tags filter)) nf nf1 (ffunc
(function (lambda (nf0 nf01 fltr notgroup op) (let ((--dolist-tail-- fltr) x)
(while --dolist-tail-- (setq x ...) (if ... ... ... ...) (setq nf0 ...) (setq
--dolist-tail-- ...))) (if notgroup (setq f (cons ... f)) (setq f (cons ...
f))) (cond ((equal filter (quote (+))) (setq f (list (list (quote not)
(quote tags) ((equal nfilter filter) (funcall ffunc f1 f filter t nil)) (t
(funcall ffunc nf1 nf nfilter nil nil
(while --dolist-tail-- (setq x (car --dolist-tail--)) (let ((nfilter
(org-agenda-filter-expand-tags filter)) nf nf1 (ffunc (function (lambda (nf0
nf01 fltr notgroup op) (let (... x) (while --dolist-tail-- ... ... ... ...))
Re: [O] wrong-type-argument listp when filtering agenda on `work' tag
Hello,
Sebastien Vauban sva-news-D0wtAvR13HarG/idocf...@public.gmane.org
writes:
In the agenda view, when filtering for the tasks marked `work' (through
`/ w') [1], I get the following error:
Debugger entered--Lisp error: (wrong-type-argument listp
#({(?:work\\)\\} 0 16 (grouptag t)))
This should already be fixed. Please update if you can.
Regards,
--
Nicolas Goaziou
