Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)]

Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)]

[Elric Milon]

--

Hi everyone,
I upgradded org-mode to latest master and found out that my "Incoming"
agenda broke, a bisect points the following commit as the culprit:

commit 61a241f0dc07aef5a3a5c2bd037a197236bde2e6
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date:   Tue Oct 14 10:53:29 2014 +0200

    Rewrite setup keywords initialization

    * lisp/org-table.el (org-table-set-constants): Remove function.
    * lisp/org.el (org-set-regexps-and-options): Rewrite function.  Merge
      it with `org-set-regexps-and-options-for-tags'.
    (org-set-regexps-and-options-for-tags): Remove function
    (org--setup-collect-keywords, org--setup-process-tags): New functions.
    (org-mode): Remove `org-set-regexps-and-options-for-tags' call.
    (org-agenda-prepare-buffers): Use optimized setup for tags in all
    cases.  Improve docstring.
    (org-make-options-regexp): Make returned regexp more efficient.


The commands for the agenda that breaks are:

("i" "Incoming" ((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil))) (tags-todo "-SOMEDAY-NOTES-@office-@home-@errands" ((org-agenda-overriding-header "Tasks with no context") (org-tags-match-list-sublevels t)))) nil)

And the stacktrace top:

Debugger entered--Lisp error: (wrong-type-argument listp #("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
  delete-dups(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
  (let ((res (copy-sequence list))) (delete-dups res))
  org-uniquify(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
  (append (org-uniquify rpl) (assoc tag tal))
  (setq rpl (append (org-uniquify rpl) (assoc tag tal)))
  (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 (grouptag t)))) (setq rtnmatch (replace-match rpl t t rtnmatch)))
  ...

Full stacktrace at:

    http://paste.lisp.org/+33BI

Thanks for this amazing piece of software!


=================================================

Emacs  : GNU Emacs 24.4.1 (x86_64-pc-linux-gnu, GTK+ Version 3.14.3)
 of 2014-10-25 on trouble, modified by Debian
Package: Org-mode version 8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)

current state:
==============
(setq
 org-table-export-default-format "orgtbl-to-csv"
 org-src-lang-modes '(("plantuml" . fundamental) ("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa" . artist) ("asymptote" . asy) ("dot" . fundamental) ("sqlite" . sql) ("calc" . fundamental) ("C" . c) ("cpp" . c++) ("C++" . c++) ("screen" . shell-script) ("shell" . sh) ("bash" . sh))
 org-agenda-log-mode-items '(closed state)
 org-agenda-tags-todo-honor-ignore-options t
 org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-show-following-heading t
 org-babel-results-keyword "results"
 org-agenda-clockreport-parameter-plist '(:link t :maxlevel 5 :fileskip0 t :compact t :narrow 80)
 org-show-hierarchy-above t
 org-insert-heading-hook '(bh/insert-heading-inactive-timestamp)
 org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
 org-export-with-timestamps nil
 org-special-ctrl-k t
 org-agenda-diary-file "diary.org"
 org-id-method 'uuidgen
 org-agenda-skip-timestamp-if-done t
 org-agenda-auto-exclude-function 'bh/org-auto-exclude-function
 org-time-clocksum-format '(:hours "%d" :require-hours t :minutes ":%02d" :require-minutes t)
 org-clock-history-length 23
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function '(lambda (name contents) contents)
 org-log-done 'time
 org-src-window-setup 'current-window
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id
 org-finalize-agenda-hook '(bh/org-agenda-to-appt)
 org-columns-default-format "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM"
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-speed-commands-user '(("0" . ignore) ("1" . ignore) ("2" . ignore) ("3" . ignore) ("4" . ignore) ("5" . ignore) ("6" . ignore) ("7" . ignore) ("8" . ignore) ("9" . ignore) ("a" . ignore) ("d" . ignore) ("h" . bh/hide-other)
                           ("i" progn (forward-char 1) (call-interactively (quote org-insert-heading-respect-content))) ("k" . org-kill-note-or-show-branches) ("l" . ignore) ("m" . ignore) ("q" . bh/show-org-agenda) ("r" . ignore) ("s" . org-save-all-org-buffers) ("w" . org-refile) ("x" . ignore) ("y" . ignore)
                           ("z" . org-add-note) ("A" . ignore) ("B" . ignore) ("E" . ignore) ("F" . bh/restrict-to-file-or-follow) ("G" . ignore) ("H" . ignore) ("J" . org-clock-goto) ("K" . ignore) ("L" . ignore) ("M" . ignore) ("N" . bh/narrow-to-org-subtree) ("P" . bh/narrow-to-org-project) ("Q" . ignore)
                           ("R" . ignore) ("S" . ignore) ("T" . bh/org-todo) ("U" . bh/narrow-up-one-org-level) ("V" . ignore) ("W" . bh/widen) ("X" . ignore) ("Y" . ignore) ("Z" . ignore))
 org-agenda-sticky t
 org-agenda-restore-windows-after-quit t
 org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . system) ("\\.x?html?\\'" . system) ("\\.pdf\\'" . system))
 org-emphasis-alist '(("*" bold "<b>" "</b>") ("/" italic "<i>" "</i>") ("_" underline "<span style=\"text-decoration:underline;\">" "</span>") ("=" org-code "<code>" "</code>" verbatim) ("~" org-verbatim "<code>" "</code>" verbatim))
 org-list-allow-alphabetical t
 org-pretty-entities t
 org-special-ctrl-a/e t
 org-agenda-skip-scheduled-if-done t
 org-font-lock-hook '(org-inlinetask-fontify)
 org-agenda-custom-commands '(("N" "Notes" tags "NOTE" ((org-agenda-overriding-header "Notes") (org-tags-match-list-sublevels t))) ("h" "Habits" tags-todo "STYLE=\"habit\"" ((org-agenda-overriding-header "Habits") (org-agenda-sorting-strategy (quote (todo-state-down effort-up category-keep)))))
                              (" " "Agenda"
                               ((agenda "" nil) (tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil)))
                                (tags-todo "-SOMEDAY-CANCELLED/!" ((org-agenda-overriding-header "Stuck Projects") (org-agenda-skip-function (quote bh/skip-non-stuck-projects)) (org-agenda-sorting-strategy (quote (category-keep)))))
                                (tags-todo "-HOLD-CANCELLED/!" ((org-agenda-overriding-header "Projects") (org-agenda-skip-function (quote bh/skip-non-projects)) (org-tags-match-list-sublevels (quote indented)) (org-agenda-sorting-strategy (quote (category-keep)))))
                                (tags-todo "-CANCELLED/!NEXT"
                                 ((org-agenda-overriding-header (concat "Project Next Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote bh/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-sublevels t)
                                  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
                                  (org-agenda-sorting-strategy (quote (todo-state-down effort-up category-keep))))
                                 )
                                (tags-todo "-SOMEDAY-REFILE-CANCELLED-WAITING-HOLD/!"
                                 ((org-agenda-overriding-header (concat "Standalone Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote bh/skip-project-tasks))
                                  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-sorting-strategy (quote (category-keep))))
                                 )
                                (tags-todo "-CANCELLED+WAITING|HOLD/!"
                                 ((org-agenda-overriding-header (concat "Waiting and Postponed Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote bh/skip-non-tasks)) (org-tags-match-list-sublevels nil)
                                  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks))
                                 )
                                (tags "-REFILE/" ((org-agenda-overriding-header "Tasks to Archive") (org-agenda-skip-function (quote bh/skip-non-archivable-tasks)) (org-tags-match-list-sublevels nil))))
                               nil)
                              ("n" "Next tasks"
                               ((agenda "" nil)
                                (tags-todo "-CANCELLED/!NEXT"
                                 ((org-agenda-overriding-header (concat "Project Next Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote bh/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-sublevels t)
                                  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
                                  (org-agenda-sorting-strategy (quote (todo-state-down effort-up category-keep))))
                                 )
                                (tags-todo "-SOMEDAY/!NEXT"
                                 ((org-agenda-overriding-header (concat "Standalone Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote bh/skip-project-tasks))
                                  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-sorting-strategy (quote (category-keep))))
                                 )
                                (tags-todo "-CANCELLED+WAITING|HOLD/!"
                                 ((org-agenda-overriding-header (concat "Waiting and Postponed Tasks" (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote bh/skip-non-tasks)) (org-tags-match-list-sublevels nil)
                                  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks))
                                 )
                                )
                               nil)
                              ("i" "Incoming" ((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil))) (tags-todo "-SOMEDAY-NOTES-@office-@home-@errands" ((org-agenda-overriding-header "Tasks with no context") (org-tags-match-list-sublevels t)))) nil))
 org-use-sub-superscripts nil
 org-export-with-sub-superscripts nil
 org-html-xml-declaration '(("html" . "") ("was-html" . "<?xml version=\"1.0\" encoding=\"%s\"?>") ("php" . "<?php echo \"<?xml version=\\\"1.0\\\" encoding=\\\"%s\\\" ?>\"; ?>"))
 org-return-follows-link t
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-agenda-restriction-lock-highlight-subtree nil
 org-default-notes-file "/var/data/org/notes.org"
 org-clock-in-resume t
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("NEXT" :foreground "blue" :weight bold) ("DONE" :foreground "forest green" :weight bold) ("WAITING" :foreground "orange" :weight bold) ("HOLD" :foreground "magenta" :weight bold) ("CANCELLED" :foreground "forest green" :weight bold)
                          ("MEETING" :foreground "forest green" :weight bold) ("PHONE" :foreground "forest green" :weight bold))
 org-capture-templates '(("t" "todo" entry (file "refile.org") "* TODO %?\n%U\n%a\n" :clock-in t :clock-resume t) ("r" "respond" entry (file "refile.org") "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
                         ("n" "note" entry (file+datetree "notes.org") "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t) ("j" "Journal" entry (file+datetree "diary.org.gpg") "* %?\n%U\n" :clock-in t :clock-resume t) ("w" "org-protocol" entry (file "refile.org") "* TODO Review %c\n%U\n" :immediate-finish t)
                         ("m" "Meeting" entry (file "refile.org") "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t) ("p" "Phone call" entry (file "refile.org") "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
                         ("h" "Habit" entry (file "refile.org") "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n")
                         ("c" "Checklist habit" entry (file "refile.org") "* NEXT %^{description} [/]\n%U\n - [ ] %?\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:RESET_CHECK_BOXES: t\n:END:\n"))
 org-startup-indented t
 org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current bh/mark-next-parent-tasks-todo)
 org-latex-format-drawer-function '(lambda (name contents) contents)
 org-from-is-user-regexp "\\<whirm\\>"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-agenda-clock-consistency-checks '(:max-duration "4:00" :min-duration 0 :max-gap 0 :gap-ok-around ("4:00"))
 org-babel-pre-tangle-hook '(save-buffer)
 org-global-properties '(("Effort_ALL" . "0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00 0:00") ("STYLE_ALL" . "habit"))
 org-html-head-include-default-style nil
 org-agenda-dim-blocked-tasks nil
 org-mode-hook '(er/add-org-mode-expansions (lambda nil (org-add-hook (quote before-save-hook) (quote org-encrypt-entries) nil t)) #[nil "\300\301!\207" [abbrev-mode 1] 2] org-clock-load #[nil "\300\301!\207" [org-bullets-mode t] 2]
                 (lambda nil (org-add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local))) (lambda nil (org-add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all) (quote append) (quote local))) org-babel-result-hide-spec org-babel-hide-all-hashes
                 turn-on-flyspell (lambda nil (org-defkey org-mode-map ".[" (quote undefined)) (org-defkey org-mode-map ".]" (quote undefined)) (org-defkey org-mode-map ".;" (quote undefined)) (org-defkey org-mode-map ".\x18." (quote undefined)))
                 #[nil "\300\301\302\"\207" [local-set-key [3 134217839] bh/mail-subtree] 3])
 org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
 org-agenda-cmp-user-defined 'bh/agenda-sort
 org-export-coding-system 'utf-8
 org-outline-path-complete-in-steps nil
 org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t)) ("HOLD" ("WAITING") ("HOLD" . t)) (done ("WAITING") ("HOLD")) ("TODO" ("WAITING") ("CANCELLED") ("HOLD")) ("NEXT" ("WAITING") ("CANCELLED") ("HOLD")) ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))
 org-stuck-projects '("" nil nil "")
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-use-speed-commands t
 org-agenda-compact-blocks t
 org-agenda-sorting-strategy '((agenda habit-down time-up user-defined-up effort-up category-keep) (todo category-up effort-up) (tags category-up effort-up) (search category-up))
 org-ascii-format-drawer-function '(lambda (name contents width) contents)
 org-agenda-time-grid '((daily today remove-match) #("----------------" 0 16 (org-heading t)) (900 1100 1300 1500 1700))
 org-clock-persist t
 org-yank-adjusted-subtrees t
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
 org-refile-use-outline-path t
 org-agenda-persistent-filter t
 org-clock-in-switch-to-state 'bh/clock-in-to-next
 org-directory "/var/data/org/"
 org-enforce-todo-dependencies t
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-hide-inline-tasks org-cycle-show-empty-lines org-optimize-window-after-visibility-change)
 org-tags-exclude-from-inheritance '("crypt")
 org-agenda-tags-column -102
 org-plantuml-jar-path "~/java/plantuml.jar"
 org-archive-location "%s_archive::* Archived Tasks"
 org-clone-delete-id t
 org-read-date-prefer-future 'time
 org-bullets-bullet-list '("⎈" "◉" "○" "∙" "∘")
 org-agenda-finalize-hook '(bh/org-agenda-to-appt)
 org-agenda-text-search-extra-files '(agenda-archives)
 org-agenda-insert-diary-extract-time t
 org-clock-persist-query-resume nil
 org-crypt-key "F0B66B40"
 org-refile-allow-creating-parent-nodes 'confirm
 org-blank-before-new-entry '((heading) (plain-list-item . auto))
 org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))
 org-time-stamp-rounding-minutes '(1 1)
 org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m)
 org-agenda-window-setup 'current-window
 org-clock-report-include-clocking-task t
 org-agenda-span 'day
 org-catch-invisible-edits 'error
 org-deadline-warning-days 30
 org-babel-tangle-lang-exts '(("latex" . "tex") ("clojure" . "clj") ("ruby" . "rb") ("python" . "py") ("awk" . "awk") ("emacs-lisp" . "el") ("elisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-edit-src-content-indentation 0
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-log-into-drawer t
 org-crypt-disable-auto-save nil
 org-babel-after-execute-hook '(bh/display-inline-images)
 org-latex-listings t
 org-checklist-export-function 'org-export-as-ascii
 org-html-head-extra "<link rel=\"stylesheet\" href=\"http://doc.norang.ca/org.css\" type=\"text/css\" />"
 org-treat-S-cursor-todo-selection-as-state-change nil
 org-show-siblings '((default))
 org-ditaa-jar-path "~/git/org-mode/contrib/scripts/ditaa.jar"
 org-list-demote-modify-bullet '(("+" . "-") ("*" . "-") ("1." . "-") ("1)" . "-") ("A)" . "-") ("B)" . "-") ("a)" . "-") ("b)" . "-") ("A." . "-") ("B." . "-") ("a." . "-") ("b." . "-"))
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-skip-deadline-if-done t
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-structure-template-alist '(("s" "#+begin_src ?\n\n#+end_src" "<src lang=\"?\">\n\n</src>") ("e" "#+begin_example\n?\n#+end_example" "<example>\n?\n</example>") ("q" "#+begin_quote\n?\n#+end_quote" "<quote>\n?\n</quote>") ("v" "#+begin_verse\n?\n#+end_verse" "<verse>\n?\n</verse>")
                                ("c" "#+begin_center\n?\n#+end_center" "<center>\n?\n</center>") ("l" "#+begin_latex\n?\n#+end_latex" "<literal style=\"latex\">\n?\n</literal>") ("L" "#+latex: " "<literal style=\"latex\">?</literal>") ("h" "#+begin_html\n?\n#+end_html" "<literal style=\"html\">\n?\n</literal>")
                                ("H" "#+html: " "<literal style=\"html\">?</literal>") ("a" "#+begin_ascii\n?\n#+end_ascii") ("A" "#+ascii: ") ("i" "#+index: ?" "#+index: ?") ("I" "#+include %file ?" "<include file=%file markup=\"?\">"))
 org-mobile-directory "**********"
 org-cycle-separator-lines 0
 org-indirect-buffer-display 'current-window
 org-babel-load-languages '((awk . t) (emacs-lisp . t) (dot . t) (ditaa . t) (R . t) (python . t) (ruby . t) (gnuplot . t) (clojure . t) (sh . t) (ledger . t) (org . t) (plantuml . t) (latex . t))
 org-clock-sound "/usr/local/lib/tngchime.wav"
 org-clock-in-hook '((lambda nil (if (not org-timer-current-timer) (org-pomodoro))) bh/mark-next-parent-tasks-todo)
 org-reveal-start-hook '(org-decrypt-entry)
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-agenda-mode-hook '(#[nil "\300\301\302\"\207" [local-set-key [S-return] org-pomodoro] 3] (lambda nil (org-defkey org-agenda-mode-map "W" (lambda nil (interactive) (setq bh/hide-scheduled-and-waiting-next-tasks t) (bh/widen))))
                        (lambda nil (org-defkey org-agenda-mode-map "F" (quote bh/restrict-to-file-or-follow))) (lambda nil (org-defkey org-agenda-mode-map "N" (quote bh/narrow-to-subtree))) (lambda nil (org-defkey org-agenda-mode-map "U" (quote bh/narrow-up-one-level)))
                        (lambda nil (org-defkey org-agenda-mode-map "P" (quote bh/narrow-to-project))) (lambda nil (org-defkey org-agenda-mode-map "V" (quote bh/view-next-project))) (lambda nil (org-defkey org-agenda-mode-map ".\x18<" (quote bh/set-agenda-restriction-lock))) (lambda nil (hl-line-mode 1)))
 org-habit-graph-column 50
 org-agenda-files '("/var/data/org/gtd.org" "/var/data/org/refile.org" "/var/data/org/someday.org" "/var/data/org/mobile.org" "/var/data/org/notes.org")
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer bh/remove-empty-drawer-on-clock-out bh/clock-out-maybe)
 org-link-frame-setup '((vm . vm-visit-folder) (gnus . org-gnus-no-new-news) (file . find-file))
 org-mobile-inbox-for-pull "/var/data/org//mobile.org"
 org-export-headline-levels 6
 org-agenda-skip-additional-timestamps-same-entry t
 org-clock-out-remove-zero-time-clocks t
 org-refile-target-verify-function 'bh/verify-refile-target
  org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 72) (:endgroup) ("WAITING" . 119) ("HOLD" . 104) ("PERSONAL" . 80) ("WORK" . 87) ("COMPUTER" . 99) ("crypt" . 69) ("NOTE" . 110) ("CANCELLED" . 67) ("FLAGGED" . 58))
 )

--
Elric
PGP: 3939C2B494084E2F

Re: Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)]

[Nicolas Goaziou]

Hello,

Elric Milon <emacs@whirm.eu> writes:

> The commands for the agenda that breaks are:
>
> ("i" "Incoming" ((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil))) (tags-todo "-SOMEDAY-NOTES-@office-@home-@errands" ((org-agenda-overriding-header "Tasks with no context") (org-tags-match-list-sublevels t)))) nil)
>
> And the stacktrace top:
>
> Debugger entered--Lisp error: (wrong-type-argument listp #("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
>   delete-dups(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
>   (let ((res (copy-sequence list))) (delete-dups res))
>   org-uniquify(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
>   (append (org-uniquify rpl) (assoc tag tal))
>   (setq rpl (append (org-uniquify rpl) (assoc tag tal)))
>   (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 (grouptag t)))) (setq rtnmatch (replace-match rpl t t rtnmatch)))
>   ...
>
> Full stacktrace at:
>
>     http://paste.lisp.org/+33BI

I cannot reproduce it.

This patch is related to setup keywords, e.g. "#+FILETAGS:". Do you have
a file containing such keywords? If so, what happens if you remove them?


Regards,

-- 
Nicolas Goaziou

Re: Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)]

[Elric Milon]

Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:

> Hello,
>
> Elric Milon <emacs@whirm.eu> writes:
>
>> The commands for the agenda that breaks are:
>>
>> ("i" "Incoming" ((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil))) (tags-todo "-SOMEDAY-NOTES-@office-@home-@errands" ((org-agenda-overriding-header "Tasks with no context") (org-tags-match-list-sublevels t)))) nil)
>>
>> And the stacktrace top:
>>
>> Debugger entered--Lisp error: (wrong-type-argument listp #("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
>>   delete-dups(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
>>   (let ((res (copy-sequence list))) (delete-dups res))
>>   org-uniquify(#("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
>>   (append (org-uniquify rpl) (assoc tag tal))
>>   (setq rpl (append (org-uniquify rpl) (assoc tag tal)))
>>   (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 (grouptag t)))) (setq rtnmatch (replace-match rpl t t rtnmatch)))
>>   ...
>>
>> Full stacktrace at:
>>
>>     http://paste.lisp.org/+33BI
>
> I cannot reproduce it.
>
> This patch is related to setup keywords, e.g. "#+FILETAGS:". Do you have
> a file containing such keywords? If so, what happens if you remove them?

I updated to current master, removed all lines starting with # from my
.org files and I still get the same error.

cheers,

>
> Regards,

--
Elric
PGP: 3939C2B494084E2F

Re: Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)]

[Karl Voit]

* Elric Milon <emacs@whirm.eu> wrote:
>
> ("i" "Incoming" ((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil))) (tags-todo "-SOMEDAY-NOTES-@office-@home-@errands" ((org-agenda-overriding-header "Tasks with no context") (org-tags-match-list-sublevels t)))) nil)
>
> And the stacktrace top:
>
> Debugger entered--Lisp error: (wrong-type-argument listp #("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))

I did not bisect the issue yet but I got an issue as well: when I
filter my agenda using "/ - mytag" I get "org-tags-expand: Wrong
type argument: listp, #("{\\<\\(?:@alw\\)\\>}" 0 16 (grouptag t))".

Some of my Org-files are using file-local tags.

When I switch to the commit before a197236bde2e6, it works. With
a197236bde2e6, I get the endless loop error which Nicolas was able
to fix for me.

HTH

Re: Bug: commit a197236bde2e6 breaks one of my agenda views [8.3beta (release_8.3beta-530-g31b56b @ /home/whirm/.emacs.d/var/el-get/org-mode/lisp/)]

[Nicolas Goaziou]

Hello,

Karl Voit <devnull@Karl-Voit.at> writes:

> * Elric Milon <emacs@whirm.eu> wrote:
>>
>> ("i" "Incoming" ((tags "REFILE" ((org-agenda-overriding-header
>> "Tasks to Refile") (org-tags-match-list-sublevels nil))) (tags-todo
>> "-SOMEDAY-NOTES-@office-@home-@errands"
>> ((org-agenda-overriding-header "Tasks with no context")
>> (org-tags-match-list-sublevels t)))) nil)
>>
>> And the stacktrace top:
>>
>> Debugger entered--Lisp error: (wrong-type-argument listp #("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))

This should now be fixed. Thanks to both of you.


Regards,

-- 
Nicolas Goaziou

Re: Bug: commit a197236bde2e6 breaks one of my agenda views

[Karl Voit]

* Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
> Hello,

Hello Nicolas!

> Karl Voit <devnull@Karl-Voit.at> writes:
>
>> * Elric Milon <emacs@whirm.eu> wrote:
>>>
>>> Debugger entered--Lisp error: (wrong-type-argument listp #("-{\\<\\(?:@office\\)\\>}" 0 20 (grouptag t)))
>
> This should now be fixed. Thanks to both of you.

Agenda works again as expected.

So therefore my issue is gone due to your magic spell - thank you
very much once again :-)