[O] wrong-type-argument listp when filtering agenda on `work' tag

[Sebastien Vauban]

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-- ... ... ... ...)) 
(if notgroup (setq f ...) (setq 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)))) 
(setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- filter) x) (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 ... ...) (if notgroup 
... ...))))) (cond ((equal filter (quote ("+"))) (setq f (list (list ... 
...)))) ((equal nfilter filter) (funcall ffunc f1 f filter t nil)) (t (funcall 
ffunc nf1 nf nfilter nil nil)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (cond ((eq type (quote tag)) (setq filter (delete-dups (append (get (quote 
org-agenda-tag-filter) :preset-filter) filter))) (let ((--dolist-tail-- filter) 
x) (while --dolist-tail-- (setq x (car --dolist-tail--)) (let ((nfilter 
(org-agenda-filter-expand-tags filter)) nf nf1 (ffunc (function ...))) (cond 
((equal filter ...) (setq f ...)) ((equal nfilter filter) (funcall ffunc f1 f 
filter t nil)) (t (funcall ffunc nf1 nf nfilter nil nil)))) (setq 
--dolist-tail-- (cdr --dolist-tail--))))) ((eq type (quote category)) (setq 
filter (delete-dups (append (get (quote org-agenda-category-filter) 
:preset-filter) filter))) (let ((--dolist-tail-- filter) x) (while 
--dolist-tail-- (setq x (car --dolist-tail--)) (if (equal "-" (substring x 0 
1)) (setq f1 (list (quote not) (list ... ... ...))) (setq f1 (list (quote 
equal) (substring x 1) (quote cat)))) (setq f (cons f1 f)) (setq 
--dolist-tail-- (cdr --dolist-tail--))))) ((eq type (quote regexp)) (setq 
filter (delete-dups (append (get (quote org-agenda-regexp-filter) 
:preset-filter) filter))) (let ((--dolist-tail-- filter) x) (while 
--dolist-tail-- (setq x (car --dolist-tail--)) (if (equal "-" (substring x 0 
1)) (setq f1 (list (quote not) (list ... ... ...))) (setq f1 (list (quote 
string-match) (substring x 1) (quote txt)))) (setq f (cons f1 f)) (setq 
--dolist-tail-- (cdr --dolist-tail--))))) ((eq type (quote effort)) (setq 
filter (delete-dups (append (get (quote org-agenda-effort-filter) 
:preset-filter) filter))) (let ((--dolist-tail-- filter) x) (while 
--dolist-tail-- (setq x (car --dolist-tail--)) (setq f (cons 
(org-agenda-filter-effort-form x) f)) (setq --dolist-tail-- (cdr 
--dolist-tail--))))))
  (let (f f1) (cond ((eq type (quote tag)) (setq filter (delete-dups (append 
(get (quote org-agenda-tag-filter) :preset-filter) filter))) (let 
((--dolist-tail-- filter) x) (while --dolist-tail-- (setq x (car 
--dolist-tail--)) (let ((nfilter ...) nf nf1 (ffunc ...)) (cond (... ...) (... 
...) (t ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) ((eq type (quote 
category)) (setq filter (delete-dups (append (get (quote 
org-agenda-category-filter) :preset-filter) filter))) (let ((--dolist-tail-- 
filter) x) (while --dolist-tail-- (setq x (car --dolist-tail--)) (if (equal "-" 
(substring x 0 1)) (setq f1 (list ... ...)) (setq f1 (list ... ... ...))) (setq 
f (cons f1 f)) (setq --dolist-tail-- (cdr --dolist-tail--))))) ((eq type (quote 
regexp)) (setq filter (delete-dups (append (get (quote 
org-agenda-regexp-filter) :preset-filter) filter))) (let ((--dolist-tail-- 
filter) x) (while --dolist-tail-- (setq x (car --dolist-tail--)) (if (equal "-" 
(substring x 0 1)) (setq f1 (list ... ...)) (setq f1 (list ... ... ...))) (setq 
f (cons f1 f)) (setq --dolist-tail-- (cdr --dolist-tail--))))) ((eq type (quote 
effort)) (setq filter (delete-dups (append (get (quote 
org-agenda-effort-filter) :preset-filter) filter))) (let ((--dolist-tail-- 
filter) x) (while --dolist-tail-- (setq x (car --dolist-tail--)) (setq f (cons 
(org-agenda-filter-effort-form x) f)) (setq --dolist-tail-- (cdr 
--dolist-tail--)))))) (cons (quote and) (nreverse f)))
  org-agenda-filter-make-matcher(("+work") tag)
  (setq org-agenda-filter-form (org-agenda-filter-make-matcher filter type))
  (let (tags cat txt) (setq org-agenda-filter-form 
(org-agenda-filter-make-matcher filter type)) (setq 
org-agenda-filtered-by-category (and (eq type (quote category)) (not (equal 
(substring (car filter) 0 1) "-")))) (org-agenda-set-mode-name) (save-excursion 
(goto-char (point-min)) (while (not (eobp)) (if (org-get-at-bol (quote 
org-marker)) (progn (setq tags (apply (quote append) (mapcar ... ...)) cat 
(org-get-at-eol (quote org-category) 1) txt (org-get-at-eol (quote txt) 1)) (if 
(not (eval org-agenda-filter-form)) (org-agenda-filter-hide-line type)) 
(beginning-of-line 2)) (beginning-of-line 2)))) (if (get-char-property (point) 
(quote invisible)) (condition-case nil (progn (org-agenda-previous-line)) 
(error nil))) (if org-agenda-display-count-of-items (progn 
(org-agenda-insert-filtered-count-all-blocks))))
  org-agenda-filter-apply(("+work") tag)
  (cond ((equal char 13) (org-agenda-filter-show-all-tag) (if 
org-agenda-auto-exclude-function (progn (setq org-agenda-tag-filter nil) (let 
((--dolist-tail-- (org-agenda-get-represented-tags)) tag) (while 
--dolist-tail-- (setq tag (car --dolist-tail--)) (let (...) (if modifier ...)) 
(setq --dolist-tail-- (cdr --dolist-tail--)))) (if (not (null 
org-agenda-tag-filter)) (org-agenda-filter-apply org-agenda-tag-filter (quote 
tag)))))) ((equal char 47) (org-agenda-filter-show-all-tag) (if (get (quote 
org-agenda-tag-filter) :preset-filter) (progn (org-agenda-filter-apply 
org-agenda-tag-filter (quote tag)))) (if org-agenda-display-count-of-items 
(progn (org-agenda-remove-filtered-count-all-blocks))) (setq maybe-refresh t)) 
((equal char 46) (setq org-agenda-tag-filter (mapcar (function (lambda (tag) 
(concat "+" tag))) (org-get-at-bol (quote tags)))) (org-agenda-filter-apply 
org-agenda-tag-filter (quote tag))) ((or (equal char 32) (setq a (rassoc char 
alist)) (and tag (setq a (cons tag nil)))) (org-agenda-filter-show-all-tag) 
(setq tag (car a)) (setq org-agenda-tag-filter (cons (concat (if strip "-" "+") 
tag) (if narrow current nil))) (org-agenda-filter-apply org-agenda-tag-filter 
(quote tag))) (t (error "Invalid tag selection character %c" char)))
  (let* ((alist org-tag-alist-for-agenda) (tag-chars (mapconcat (function 
(lambda (x) (if (and ... ...) (char-to-string ...) ""))) alist "")) 
(inhibit-read-only t) (current org-agenda-tag-filter) a n tag) (if char nil 
(message "%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow" (if narrow "Narrow" 
"Filter") tag-chars (if org-agenda-auto-exclude-function "[RET], " "")) (setq 
char (read-char-exclusive))) (if (member char (quote (43 45))) (progn (cond 
((equal char 45) (setq strip t narrow t)) ((equal char 43) (setq strip nil 
narrow t))) (message "Narrow by tag [%s ], [TAB], [/]:off" tag-chars) (setq 
char (read-char-exclusive)))) (if (equal char 9) (progn (if (local-variable-p 
(quote org-global-tags-completion-table) (current-buffer)) nil (org-set-local 
(quote org-global-tags-completion-table) (org-global-tags-completion-table))) 
(let ((completion-ignore-case t)) (setq tag (org-icompleting-read "Tag: " 
org-global-tags-completion-table))))) (cond ((equal char 13) 
(org-agenda-filter-show-all-tag) (if org-agenda-auto-exclude-function (progn 
(setq org-agenda-tag-filter nil) (let ((--dolist-tail-- ...) tag) (while 
--dolist-tail-- (setq tag ...) (let ... ...) (setq --dolist-tail-- ...))) (if 
(not (null org-agenda-tag-filter)) (org-agenda-filter-apply 
org-agenda-tag-filter (quote tag)))))) ((equal char 47) 
(org-agenda-filter-show-all-tag) (if (get (quote org-agenda-tag-filter) 
:preset-filter) (progn (org-agenda-filter-apply org-agenda-tag-filter (quote 
tag)))) (if org-agenda-display-count-of-items (progn 
(org-agenda-remove-filtered-count-all-blocks))) (setq maybe-refresh t)) ((equal 
char 46) (setq org-agenda-tag-filter (mapcar (function (lambda (tag) (concat 
"+" tag))) (org-get-at-bol (quote tags)))) (org-agenda-filter-apply 
org-agenda-tag-filter (quote tag))) ((or (equal char 32) (setq a (rassoc char 
alist)) (and tag (setq a (cons tag nil)))) (org-agenda-filter-show-all-tag) 
(setq tag (car a)) (setq org-agenda-tag-filter (cons (concat (if strip "-" "+") 
tag) (if narrow current nil))) (org-agenda-filter-apply org-agenda-tag-filter 
(quote tag))) (t (error "Invalid tag selection character %c" char))))
  org-agenda-filter-by-tag(nil)
  call-interactively(org-agenda-filter-by-tag)
--8<---------------cut here---------------end--------------->8---

Best regards,
  Seb

[1] With the following setting in my .emacs file:

--8<---------------cut here---------------start------------->8---
  (setq org-tag-alist '((:startgroup . nil)
                         ("personal"  . ?p)
                         ("work"      . ?w)
                        (:endgroup . nil)
                        ("call"        . ?c)
                        ("errands"     . ?e)))
--8<---------------cut here---------------end--------------->8---

-- 
Sebastien Vauban
Org-mode version 8.3beta (release_8.3beta-536-gfbd603)