emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Marcelo de Moraes Serpa <celoserpa@gmail.com>
To: Org Mode <emacs-orgmode@gnu.org>
Subject: tag search broken
Date: Thu, 20 Sep 2012 19:28:14 -0500	[thread overview]
Message-ID: <CACHMzOG4bs4=-Sj+sgUYzeXH7UGE_UphgEMXXvqVsuGaoSHh-g@mail.gmail.com> (raw)

[-- Attachment #1: Type: text/plain, Size: 12766 bytes --]

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,

[-- Attachment #2: Type: text/html, Size: 13546 bytes --]

             reply	other threads:[~2012-09-21  0:28 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2012-09-21  0:28 Marcelo de Moraes Serpa [this message]
2012-09-21  3:28 ` tag search broken Nick Dokos
2012-09-21  3:36   ` Nick Dokos
2012-09-21  5:52     ` Marcelo de Moraes Serpa

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='CACHMzOG4bs4=-Sj+sgUYzeXH7UGE_UphgEMXXvqVsuGaoSHh-g@mail.gmail.com' \
    --to=celoserpa@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).