From mboxrd@z Thu Jan 1 00:00:00 1970 From: Marcelo de Moraes Serpa Subject: tag search broken Date: Thu, 20 Sep 2012 19:28:14 -0500 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=f46d0447f21ac85f8f04ca2b50ba Return-path: Received: from eggs.gnu.org ([208.118.235.92]:57627) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TEr6Q-0005JT-AH for emacs-orgmode@gnu.org; Thu, 20 Sep 2012 20:28:20 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TEr6N-0000mS-DY for emacs-orgmode@gnu.org; Thu, 20 Sep 2012 20:28:18 -0400 Received: from mail-iy0-f169.google.com ([209.85.210.169]:35306) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TEr6N-0000mL-5B for emacs-orgmode@gnu.org; Thu, 20 Sep 2012 20:28:15 -0400 Received: by iaby26 with SMTP id y26so2239033iab.0 for ; Thu, 20 Sep 2012 17:28:14 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org Mode --f46d0447f21ac85f8f04ca2b50ba Content-Type: text/plain; charset=ISO-8859-1 Hello guys, My tag search is broken, for some reason. When I search for "tag1" for example, the search breaks and I get the following message in the *Messages* buffer: if: Wrong type argument: stringp, ("tag0" "tag1" "tag3" "tag4") Here's the backtrace: Debugger entered--Lisp error: (wrong-type-argument stringp ("haxe" "ruby" > "blog" "coffeinthevein")) > string-match("\\[\\[\\([^][]+\\)\\]\\(\\[\\([^][]+\\)\\]\\)?\\]" ("haxe" > "ruby" "blog" "coffeinthevein")) > (if (string-match org-bracket-link-regexp category) (progn (setq l ...) > (when ... ... ...)) (if (and org-prefix-category-max-length ...) (setq > category ...))) > (let* ((category ...) (category-icon ...) (category-icon ...) (tag ...) > time effort neffort (ts ...) (time-of-day ...) stamp plain s0 s1 s2 rtn srp > l duration thecategory) (and (derived-mode-p ...) buffer-file-name > (add-to-list ... buffer-file-name)) (when (and dotime time-of-day) (when > ... ... ...) (if s1 ...) (if s2 ...) (when ... ...) (when s2 ...)) (when > (string-match ... txt) (if ... ... ...)) (when (derived-mode-p ...) (setq > effort ...) (when effort ...)) (or effort (setq effort "")) (when remove-re > (while ... ...)) (add-text-properties 0 (length txt) (quote ...) txt) (setq > time (cond ... ... ...) extra (or ... "") category (if ... ... category) > thecategory (copy-sequence category)) (if (string-match > org-bracket-link-regexp category) (progn ... ...) (if ... ...)) (setq rtn > (concat ... txt)) (remove-text-properties 0 (length rtn) (quote ...) rtn) > (org-add-props rtn nil (quote org-category) (if thecategory ... category) > (quote tags) (mapcar ... tags) (quote org-highest-priority) > org-highest-priority (quote org-lowest-priority) org-lowest-priority (quote > time-of-day) time-of-day (quote duration) duration (quote effort) effort > (quote effort-minutes) neffort (quote txt) txt (quote time) time (quote > extra) extra (quote format) org-prefix-format-compiled (quote dotime) > dotime)) > (progn (setq txt (org-trim txt)) (setq txt > (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags > org-agenda-hide-tags-regexp)) (let* (... ... ... ... time effort neffort > ... ... stamp plain s0 s1 s2 rtn srp l duration thecategory) (and ... > buffer-file-name ...) (when ... ... ... ... ... ...) (when ... ...) (when > ... ... ...) (or effort ...) (when remove-re ...) (add-text-properties 0 > ... ... txt) (setq time ... extra ... category ... thecategory ...) (if ... > ... ...) (setq rtn ...) (remove-text-properties 0 ... ... rtn) > (org-add-props rtn nil ... ... ... ... ... org-highest-priority ... > org-lowest-priority ... time-of-day ... duration ... effort ... neffort ... > txt ... time ... extra ... org-prefix-format-compiled ... dotime))) > (unwind-protect (progn (setq txt ...) (setq txt ...) (let* ... ... ... > ... ... ... ... ... ... ... ... ... ...)) (set-match-data > save-match-data-internal (quote evaporate))) > (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... > ...) (set-match-data save-match-data-internal ...))) > (save-match-data (setq txt (org-trim txt)) (setq txt > (org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags > org-agenda-hide-tags-regexp)) (let* (... ... ... ... time effort neffort > ... ... stamp plain s0 s1 s2 rtn srp l duration thecategory) (and ... > buffer-file-name ...) (when ... ... ... ... ... ...) (when ... ...) (when > ... ... ...) (or effort ...) (when remove-re ...) (add-text-properties 0 > ... ... txt) (setq time ... extra ... category ... thecategory ...) (if ... > ... ...) (setq rtn ...) (remove-text-properties 0 ... ... rtn) > (org-add-props rtn nil ... ... ... ... ... org-highest-priority ... > org-lowest-priority ... time-of-day ... duration ... effort ... neffort ... > txt ... time ... extra ... org-prefix-format-compiled ... dotime))) > (let* ((bindings ...) (formatter ...)) (loop for (var value) in bindings > do (set var value)) (save-match-data (setq txt ...) (setq txt ...) (let* > ... ... ... ... ... ... ... ... ... ... ... ... ...))) > org-agenda-format-item("" #("cyberchrist haxe engine vs jekyll -- a nice > way to see what's haxe is capable of and what is missing from ruby > :haxe:ruby:blog:coffeinthevein:" 0 142 (org-category "someday_maybe" > fontified nil)) "someday_maybe" ("haxe" "ruby" "blog" "coffeinthevein")) > (setq txt (org-agenda-format-item "" (concat ... ...) category > tags-list) priority (org-get-priority txt)) > (cond ((eq action ...) (and org-highlight-sparse-tree-matches ... ... > ...) (org-show-context ...)) ((eq action ...) (setq txt ... priority ...) > (goto-char lspos) (setq marker ...) (org-add-props txt props ... marker ... > marker ... category ... todo ... priority ... "tagsmatch") (push txt rtn)) > ((functionp action) (setq org-map-continue-from nil) (save-excursion ... > ...)) (t (error "Invalid action"))) > (progn (cond (... ... ...) (... ... ... ... ... ...) (... ... ...) (t > ...)) (unless org-tags-match-list-sublevels (org-end-of-subtree t) > (backward-char 1))) > (if (and (and ... ...) (progn ... t) (or ... ...) (or ... ...)) (progn > (cond ... ... ... ...) (unless org-tags-match-list-sublevels ... ...))) > (when (and (and ... ...) (progn ... t) (or ... ...) (or ... ...)) (cond > (... ... ...) (... ... ... ... ... ...) (... ... ...) (t ...)) (unless > org-tags-match-list-sublevels (org-end-of-subtree t) (backward-char 1))) > (catch :skip (setq todo (if ... ...) tags (if ... ...)) (goto-char (setq > lspos ...)) (setq level (org-reduced-level ...) category > (org-get-category)) (setq i llast llast level) (while (>= i level) (when > ... ...) (setq i ...)) (when tags (setq tags ... tags-alist ...)) (setq > tags-list (if org-use-tag-inheritance ... tags) org-scanner-tags tags-list) > (when org-use-tag-inheritance (setcdr ... ...)) (when (and tags > org-use-tag-inheritance ...) (setcdr ... ...)) (when (and ... ... ... ...) > (cond ... ... ... ...) (unless org-tags-match-list-sublevels ... ...))) > (while (re-search-forward re nil t) (setq org-map-continue-from nil) > (catch :skip (setq todo ... tags ...) (goto-char ...) (setq level ... > category ...) (setq i llast llast level) (while ... ... ...) (when tags > ...) (setq tags-list ... org-scanner-tags tags-list) (when > org-use-tag-inheritance ...) (when ... ...) (when ... ... ...)) (if > org-map-continue-from (goto-char org-map-continue-from) (and ... ...))) > (save-excursion (goto-char (point-min)) (when (eq action ...) > (org-overview) (org-remove-occur-highlights)) (while (re-search-forward re > nil t) (setq org-map-continue-from nil) (catch :skip ... ... ... ... ... > ... ... ... ... ...) (if org-map-continue-from ... ...))) > (let* ((re ...) (props ...) (case-fold-search nil) > (org-map-continue-from nil) lspos tags tags-list (tags-alist ...) (llast 0) > rtn rtn1 level category i txt todo marker entry priority) (when (not ...) > (setq action ...)) (save-excursion (goto-char ...) (when ... ... ...) > (while ... ... ... ...)) (when (and ... ...) (org-hide-archived-subtrees > ... ...)) (nreverse rtn)) > org-scan-tags(agenda (and (progn (setq org-cached-props nil) (member > "ruby" tags-list)) t) nil) > (setq rtn (org-scan-tags (quote agenda) matcher todo-only)) > (save-restriction (if org-agenda-restrict (narrow-to-region > org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (setq rtn > (org-scan-tags ... matcher todo-only)) (setq rtnall (append rtnall rtn))) > (save-excursion (save-restriction (if org-agenda-restrict ... ...) (setq > rtn ...) (setq rtnall ...))) > (save-current-buffer (set-buffer buffer) (unless (derived-mode-p ...) > (error "Agenda file %s is not in `org-mode'" file)) (save-excursion > (save-restriction ... ... ...))) > (with-current-buffer buffer (unless (derived-mode-p ...) (error "Agenda > file %s is not in `org-mode'" file)) (save-excursion (save-restriction ... > ... ...))) > (if (not buffer) (setq rtn (list ...) rtnall (append rtnall rtn)) > (with-current-buffer buffer (unless ... ...) (save-excursion ...))) > (catch (quote nextfile) (org-check-agenda-file file) (setq buffer (if > ... ... ...)) (if (not buffer) (setq rtn ... rtnall ...) > (with-current-buffer buffer ... ...))) > (while (setq file (pop files)) (catch (quote nextfile) > (org-check-agenda-file file) (setq buffer ...) (if ... ... ...))) > (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name > ...)) (org-agenda-prepare (concat "TAGS " match)) > (org-compile-prefix-format (quote tags)) (org-set-sorting-strategy (quote > tags)) (setq org-agenda-query-string match) (setq org-agenda-redo-command > (list ... ... ...)) (setq files (org-agenda-files nil ...) rtnall nil) > (while (setq file ...) (catch ... ... ... ...)) (if > org-agenda-overriding-header (insert ... "\n") (insert "Headlines with TAGS > match: ") (add-text-properties ... ... ...) (setq pos ...) (insert match > "\n") (add-text-properties pos ... ...) (setq pos ...) (unless > org-agenda-multi ...) (add-text-properties pos ... ...)) > (org-agenda-mark-header-line (point-min)) (when rtnall (insert ... "\n")) > (goto-char (point-min)) (or org-agenda-multi > (org-agenda-fit-window-to-buffer)) (add-text-properties (point-min) > (point-max) (\` ...)) (org-agenda-finalize) (setq buffer-read-only t)) > (let* ((org-tags-match-list-sublevels org-tags-match-list-sublevels) > (completion-ignore-case t) rtn rtnall files file pos matcher buffer) (when > (and ... ...) (setq match nil)) (setq matcher (org-make-tags-matcher match) > match (car matcher) matcher (cdr matcher)) (catch (quote exit) (if > org-agenda-sticky ...) (org-agenda-prepare ...) (org-compile-prefix-format > ...) (org-set-sorting-strategy ...) (setq org-agenda-query-string match) > (setq org-agenda-redo-command ...) (setq files ... rtnall nil) (while ... > ...) (if org-agenda-overriding-header ... ... ... ... ... ... ... ... ...) > (org-agenda-mark-header-line ...) (when rtnall ...) (goto-char ...) (or > org-agenda-multi ...) (add-text-properties ... ... ...) > (org-agenda-finalize) (setq buffer-read-only t))) > org-tags-view(nil) > call-interactively(org-tags-view) > (cond ((setq entry ...) (if ... ... ...)) ((equal org-keys "C") (setq > org-agenda-custom-commands org-agenda-custom-commands-orig) > (customize-variable ...)) ((equal org-keys "a") (call-interactively ...)) > ((equal org-keys "s") (call-interactively ...)) ((equal org-keys "S") > (org-call-with-arg ... ...)) ((equal org-keys "t") (call-interactively > ...)) ((equal org-keys "T") (org-call-with-arg ... ...)) ((equal org-keys > "m") (call-interactively ...)) ((equal org-keys "M") (org-call-with-arg ... > ...)) ((equal org-keys "e") (call-interactively ...)) ((equal org-keys "?") > (org-tags-view nil "+FLAGGED") (org-add-hook ... ... t t)) ((equal org-keys > "L") (unless ... ...) (unless restriction ... ...)) ((equal org-keys "#") > (call-interactively ...)) ((equal org-keys "/") (call-interactively ...)) > ((equal org-keys "!") (customize-variable ...)) (t (error "Invalid agenda > key"))) > (let* ((prefix-descriptions nil) (org-agenda-buffer-name > org-agenda-buffer-name) (org-agenda-window-setup ...) > (org-agenda-custom-commands-orig org-agenda-custom-commands) > (org-agenda-custom-commands ...) (org-agenda-custom-commands ...) (buf ...) > (bfn ...) entry key type org-match lprops ans) (unless > org-agenda-overriding-restriction (unless ... ...) (setq > org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) > (move-marker org-agenda-restrict-end nil)) (put (quote > org-agenda-redo-command) (quote org-lprops) nil) (put (quote > org-agenda-redo-command) (quote last-args) nil) (setq > org-agenda-last-dispatch-buffer (current-buffer)) (unless org-keys (setq > ans ... org-keys ... restriction ...)) (if org-agenda-sticky (setq > org-agenda-buffer-name ...)) (when (and ... restriction) (put ... ... ...) > (cond ... ...)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) > (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... > ...) (... ...) (... ...) (... ...) (t ...))) > (catch (quote exit) (let* (... ... ... ... ... ... ... ... entry key > type org-match lprops ans) (unless org-agenda-overriding-restriction ... > ... ... ...) (put ... ... nil) (put ... ... nil) (setq > org-agenda-last-dispatch-buffer ...) (unless org-keys ...) (if > org-agenda-sticky ...) (when ... ... ...) (cond ... ... ... ... ... ... ... > ... ... ... ... ... ... ... ... ...))) > org-agenda(nil) > call-interactively(org-agenda nil nil) I can't remember exactly when it started, but I don't remember messing with org sources or installing additional elisp pacakges in the last days. Does anyone know what could be wrong? Thanks in advance, --f46d0447f21ac85f8f04ca2b50ba Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable
Hello guys,

My tag search is broken, for some= reason. When I search for "tag1" for example, the search breaks = and I get the following message in the *Messages* buffer:

if: Wrong type argument: stringp, ("tag0" "t= ag1" "tag3" "tag4")

Here's the backtrace:

Debugger entered--Lisp error: (wrong-type-argument stringp ("haxe"= ; "ruby" "blog" "coffeinthevein"))
=A0 str= ing-match("\\[\\[\\([^][]+\\)\\]\\(\\[\\([^][]+\\)\\]\\)?\\]" (&q= uot;haxe" "ruby" "blog" "coffeinthevein"= ))
=A0 (if (string-match org-bracket-link-regexp category) (progn (setq l ...)= (when ... ... ...)) (if (and org-prefix-category-max-length ...) (setq cat= egory ...)))
=A0 (let* ((category ...) (category-icon ...) (category-ico= n ...) (tag ...) time effort neffort (ts ...) (time-of-day ...) stamp plain= s0 s1 s2 rtn srp l duration thecategory) (and (derived-mode-p ...) buffer-= file-name (add-to-list ... buffer-file-name)) (when (and dotime time-of-day= ) (when ... ... ...) (if s1 ...) (if s2 ...) (when ... ...) (when s2 ...)) = (when (string-match ... txt) (if ... ... ...)) (when (derived-mode-p ...) (= setq effort ...) (when effort ...)) (or effort (setq effort "")) = (when remove-re (while ... ...)) (add-text-properties 0 (length txt) (quote= ...) txt) (setq time (cond ... ... ...) extra (or ... "") catego= ry (if ... ... category) thecategory (copy-sequence category)) (if (string-= match org-bracket-link-regexp category) (progn ... ...) (if ... ...)) (setq= rtn (concat ... txt)) (remove-text-properties 0 (length rtn) (quote ...) r= tn) (org-add-props rtn nil (quote org-category) (if thecategory ... categor= y) (quote tags) (mapcar ... tags) (quote org-highest-priority) org-highest-= priority (quote org-lowest-priority) org-lowest-priority (quote time-of-day= ) time-of-day (quote duration) duration (quote effort) effort (quote effort= -minutes) neffort (quote txt) txt (quote time) time (quote extra) extra (qu= ote format) org-prefix-format-compiled (quote dotime) dotime))
=A0 (progn (setq txt (org-trim txt)) (setq txt (org-agenda-fix-displayed-ta= gs txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-regexp)) (l= et* (... ... ... ... time effort neffort ... ... stamp plain s0 s1 s2 rtn s= rp l duration thecategory) (and ... buffer-file-name ...) (when ... ... ...= ... ... ...) (when ... ...) (when ... ... ...) (or effort ...) (when remov= e-re ...) (add-text-properties 0 ... ... txt) (setq time ... extra ... cate= gory ... thecategory ...) (if ... ... ...) (setq rtn ...) (remove-text-prop= erties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ... org-highes= t-priority ... org-lowest-priority ... time-of-day ... duration ... effort = ... neffort ... txt ... time ... extra ... org-prefix-format-compiled ... d= otime)))
=A0 (unwind-protect (progn (setq txt ...) (setq txt ...) (let* ... ... ... = ... ... ... ... ... ... ... ... ... ...)) (set-match-data save-match-data-i= nternal (quote evaporate)))
=A0 (let ((save-match-data-internal ...)) (u= nwind-protect (progn ... ... ...) (set-match-data save-match-data-internal = ...)))
=A0 (save-match-data (setq txt (org-trim txt)) (setq txt (org-agenda-fix-di= splayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide-tags-r= egexp)) (let* (... ... ... ... time effort neffort ... ... stamp plain s0 s= 1 s2 rtn srp l duration thecategory) (and ... buffer-file-name ...) (when .= .. ... ... ... ... ...) (when ... ...) (when ... ... ...) (or effort ...) (= when remove-re ...) (add-text-properties 0 ... ... txt) (setq time ... extr= a ... category ... thecategory ...) (if ... ... ...) (setq rtn ...) (remove= -text-properties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ... = org-highest-priority ... org-lowest-priority ... time-of-day ... duration .= .. effort ... neffort ... txt ... time ... extra ... org-prefix-format-comp= iled ... dotime)))
=A0 (let* ((bindings ...) (formatter ...)) (loop for (var value) in binding= s do (set var value)) (save-match-data (setq txt ...) (setq txt ...) (let* = ... ... ... ... ... ... ... ... ... ... ... ... ...)))
=A0 org-agenda-fo= rmat-item("" #("cyberchrist haxe engine vs jekyll -- a nice = way to see what's haxe is capable of and what is missing from ruby :hax= e:ruby:blog:coffeinthevein:" 0 142 (org-category "someday_maybe&q= uot; fontified nil)) "someday_maybe" ("haxe" "ruby= " "blog" "coffeinthevein"))
=A0 (setq txt (org-agenda-format-item "" (concat ... ...) categor= y tags-list) priority (org-get-priority txt))
=A0 (cond ((eq action ...)= (and org-highlight-sparse-tree-matches ... ... ...) (org-show-context ...)= ) ((eq action ...) (setq txt ... priority ...) (goto-char lspos) (setq mark= er ...) (org-add-props txt props ... marker ... marker ... category ... tod= o ... priority ... "tagsmatch") (push txt rtn)) ((functionp actio= n) (setq org-map-continue-from nil) (save-excursion ... ...)) (t (error &qu= ot;Invalid action")))
=A0 (progn (cond (... ... ...) (... ... ... ... ... ...) (... ... ...) (t .= ..)) (unless org-tags-match-list-sublevels (org-end-of-subtree t) (backward= -char 1)))
=A0 (if (and (and ... ...) (progn ... t) (or ... ...) (or ...= ...)) (progn (cond ... ... ... ...) (unless org-tags-match-list-sublevels = ... ...)))
=A0 (when (and (and ... ...) (progn ... t) (or ... ...) (or ... ...)) (cond= (... ... ...) (... ... ... ... ... ...) (... ... ...) (t ...)) (unless org= -tags-match-list-sublevels (org-end-of-subtree t) (backward-char 1)))
=A0 (catch :skip (setq todo (if ... ...) tags (if ... ...)) (goto-char (set= q lspos ...)) (setq level (org-reduced-level ...) category (org-get-categor= y)) (setq i llast llast level) (while (>=3D i level) (when ... ...) (set= q i ...)) (when tags (setq tags ... tags-alist ...)) (setq tags-list (if or= g-use-tag-inheritance ... tags) org-scanner-tags tags-list) (when org-use-t= ag-inheritance (setcdr ... ...)) (when (and tags org-use-tag-inheritance ..= .) (setcdr ... ...)) (when (and ... ... ... ...) (cond ... ... ... ...) (un= less org-tags-match-list-sublevels ... ...)))
=A0 (while (re-search-forward re nil t) (setq org-map-continue-from nil) (c= atch :skip (setq todo ... tags ...) (goto-char ...) (setq level ... categor= y ...) (setq i llast llast level) (while ... ... ...) (when tags ...) (setq= tags-list ... org-scanner-tags tags-list) (when org-use-tag-inheritance ..= .) (when ... ...) (when ... ... ...)) (if org-map-continue-from (goto-char = org-map-continue-from) (and ... ...)))
=A0 (save-excursion (goto-char (point-min)) (when (eq action ...) (org-over= view) (org-remove-occur-highlights)) (while (re-search-forward re nil t) (s= etq org-map-continue-from nil) (catch :skip ... ... ... ... ... ... ... ...= ... ...) (if org-map-continue-from ... ...)))
=A0 (let* ((re ...) (props ...) (case-fold-search nil) (org-map-continue-fr= om nil) lspos tags tags-list (tags-alist ...) (llast 0) rtn rtn1 level cate= gory i txt todo marker entry priority) (when (not ...) (setq action ...)) (= save-excursion (goto-char ...) (when ... ... ...) (while ... ... ... ...)) = (when (and ... ...) (org-hide-archived-subtrees ... ...)) (nreverse rtn)) =A0 org-scan-tags(agenda (and (progn (setq org-cached-props nil) (member &q= uot;ruby" tags-list)) t) nil)
=A0 (setq rtn (org-scan-tags (quote a= genda) matcher todo-only))
=A0 (save-restriction (if org-agenda-restrict= (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (wide= n)) (setq rtn (org-scan-tags ... matcher todo-only)) (setq rtnall (append r= tnall rtn)))
=A0 (save-excursion (save-restriction (if org-agenda-restrict ... ...) (set= q rtn ...) (setq rtnall ...)))
=A0 (save-current-buffer (set-buffer buff= er) (unless (derived-mode-p ...) (error "Agenda file %s is not in `org= -mode'" file)) (save-excursion (save-restriction ... ... ...))) =A0 (with-current-buffer buffer (unless (derived-mode-p ...) (error "A= genda file %s is not in `org-mode'" file)) (save-excursion (save-r= estriction ... ... ...)))
=A0 (if (not buffer) (setq rtn (list ...) rtna= ll (append rtnall rtn)) (with-current-buffer buffer (unless ... ...) (save-= excursion ...)))
=A0 (catch (quote nextfile) (org-check-agenda-file file) (setq buffer (if .= .. ... ...)) (if (not buffer) (setq rtn ... rtnall ...) (with-current-buffe= r buffer ... ...)))
=A0 (while (setq file (pop files)) (catch (quote nex= tfile) (org-check-agenda-file file) (setq buffer ...) (if ... ... ...))) =A0 (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name = ...)) (org-agenda-prepare (concat "TAGS " match)) (org-compile-pr= efix-format (quote tags)) (org-set-sorting-strategy (quote tags)) (setq org= -agenda-query-string match) (setq org-agenda-redo-command (list ... ... ...= )) (setq files (org-agenda-files nil ...) rtnall nil) (while (setq file ...= ) (catch ... ... ... ...)) (if org-agenda-overriding-header (insert ... &qu= ot;\n") (insert "Headlines with TAGS match: ") (add-text-pro= perties ... ... ...) (setq pos ...) (insert match "\n") (add-text= -properties pos ... ...) (setq pos ...) (unless org-agenda-multi ...) (add-= text-properties pos ... ...)) (org-agenda-mark-header-line (point-min)) (wh= en rtnall (insert ... "\n")) (goto-char (point-min)) (or org-agen= da-multi (org-agenda-fit-window-to-buffer)) (add-text-properties (point-min= ) (point-max) (\` ...)) (org-agenda-finalize) (setq buffer-read-only t)) =A0 (let* ((org-tags-match-list-sublevels org-tags-match-list-sublevels) (c= ompletion-ignore-case t) rtn rtnall files file pos matcher buffer) (when (a= nd ... ...) (setq match nil)) (setq matcher (org-make-tags-matcher match) m= atch (car matcher) matcher (cdr matcher)) (catch (quote exit) (if org-agend= a-sticky ...) (org-agenda-prepare ...) (org-compile-prefix-format ...) (org= -set-sorting-strategy ...) (setq org-agenda-query-string match) (setq org-a= genda-redo-command ...) (setq files ... rtnall nil) (while ... ...) (if org= -agenda-overriding-header ... ... ... ... ... ... ... ... ...) (org-agenda-= mark-header-line ...) (when rtnall ...) (goto-char ...) (or org-agenda-mult= i ...) (add-text-properties ... ... ...) (org-agenda-finalize) (setq buffer= -read-only t)))
=A0 org-tags-view(nil)
=A0 call-interactively(org-tags-view)
=A0 (con= d ((setq entry ...) (if ... ... ...)) ((equal org-keys "C") (setq= org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-var= iable ...)) ((equal org-keys "a") (call-interactively ...)) ((equ= al org-keys "s") (call-interactively ...)) ((equal org-keys "= ;S") (org-call-with-arg ... ...)) ((equal org-keys "t") (cal= l-interactively ...)) ((equal org-keys "T") (org-call-with-arg ..= . ...)) ((equal org-keys "m") (call-interactively ...)) ((equal o= rg-keys "M") (org-call-with-arg ... ...)) ((equal org-keys "= e") (call-interactively ...)) ((equal org-keys "?") (org-tag= s-view nil "+FLAGGED") (org-add-hook ... ... t t)) ((equal org-ke= ys "L") (unless ... ...) (unless restriction ... ...)) ((equal or= g-keys "#") (call-interactively ...)) ((equal org-keys "/&qu= ot;) (call-interactively ...)) ((equal org-keys "!") (customize-v= ariable ...)) (t (error "Invalid agenda key")))
=A0 (let* ((prefix-descriptions nil) (org-agenda-buffer-name org-agenda-buf= fer-name) (org-agenda-window-setup ...) (org-agenda-custom-commands-orig or= g-agenda-custom-commands) (org-agenda-custom-commands ...) (org-agenda-cust= om-commands ...) (buf ...) (bfn ...) entry key type org-match lprops ans) (= unless org-agenda-overriding-restriction (unless ... ...) (setq org-agenda-= restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-= agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-l= props) nil) (put (quote org-agenda-redo-command) (quote last-args) nil) (se= tq org-agenda-last-dispatch-buffer (current-buffer)) (unless org-keys (setq= ans ... org-keys ... restriction ...)) (if org-agenda-sticky (setq org-age= nda-buffer-name ...)) (when (and ... restriction) (put ... ... ...) (cond .= .. ...)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... .= ..) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (..= . ...) (... ...) (... ...) (t ...)))
=A0 (catch (quote exit) (let* (... ... ... ... ... ... ... ... entry key ty= pe org-match lprops ans) (unless org-agenda-overriding-restriction ... ... = ... ...) (put ... ... nil) (put ... ... nil) (setq org-agenda-last-dispatch= -buffer ...) (unless org-keys ...) (if org-agenda-sticky ...) (when ... ...= ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= )))
=A0 org-agenda(nil)
=A0 call-interactively(org-agenda nil nil)


I can't remember exactly wh= en it started, but I don't remember messing with org sources or install= ing additional elisp pacakges in the last days.=A0

Does anyone know what could be wrong?

Thanks in advance,




=A0
--f46d0447f21ac85f8f04ca2b50ba--