[BUG] org-agenda-list

[Nick Dokos <ndokos@gmail.com>]

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

I just pulled and I get the attached backtrace from org-agenda-list.
I tried with -q -l minimal.emacs and it's still there.
It's probably caused by commit 42691788273cecb75ec620d40cc5394d2cd95ed1.
When I revert that, the agenda comes up properly.

Org-mode version 8.0.5 (release_8.0.5-334-g1b1469 @
/home/nick/elisp/org-mode/lisp/)
(which includes the revert: the real one is -333-)


[-- Attachment #2: Backtrace --]
[-- Type: text/plain, Size: 18773 bytes --]

Debugger entered--Lisp error: (wrong-type-argument sequencep :newline)
  concat(:newline "")
  (cond ((eq (car tg) :startgroup) "{") ((eq (car tg) :endgroup) "}") ((eq (car tg) :grouptags) ":") (t (concat (car tg) (if (characterp (cdr tg)) (format "(%s)" (char-to-string (cdr tg))) ""))))
  (lambda (tg) (cond ((eq (car tg) :startgroup) "{") ((eq (car tg) :endgroup) "}") ((eq (car tg) :grouptags) ":") (t (concat (car tg) (if (characterp (cdr tg)) (format "(%s)" (char-to-string (cdr tg))) "")))))((:newline))
  mapcar((lambda (tg) (cond ((eq (car tg) :startgroup) "{") ((eq (car tg) :endgroup) "}") ((eq (car tg) :grouptags) ":") (t (concat (car tg) (if (characterp (cdr tg)) (format "(%s)" (char-to-string (cdr tg))) ""))))) (("@DIPLAN") ("@HOME" . 104) ("@IGN") ("@KUNDE" . 107) ("@UNTERWEGS" . 85) (:newline) ("ADMIN" . 97) ("ASIEN" . 65) ("diplan" . 100) ("drill" . 68) ("EMAIL") ("export" . 101) ("HIDE" . 72) ("HIDEAGENDA") ("IGNORE" . 120) ("INFO" . 105) ("JWINTER" . 87) ("LESEN" . 76) ("LPM" . 108) ("noexport" . 110) ("ONGOING" . 111) ("PROJEKT") ("REFILETARGET" . 114) (:newline) ("REVIEW_WEEKLY") ("REVIEW_MONTHLY") ("becom" . 98) ("fleckenm" . 102) ("foerster" . 70) ("rob" . 82) ("roth") ("SERVICE") ("stengele" . 115) ("TC" . 116) ("TEL") ("TDEIERL") ("WARTEN" . 119) ("UBMED" . 117) ("ULLA" . 122)))
  (setq tags (mapcar (function (lambda (tg) (cond ((eq (car tg) :startgroup) "{") ((eq (car tg) :endgroup) "}") ((eq (car tg) :grouptags) ":") (t (concat (car tg) (if ... ... "")))))) org-tag-alist))
  (progn (setq tags (mapcar (function (lambda (tg) (cond ((eq ... :startgroup) "{") ((eq ... :endgroup) "}") ((eq ... :grouptags) ":") (t (concat ... ...))))) org-tag-alist)))
  (if (and (not tags) org-tag-alist) (progn (setq tags (mapcar (function (lambda (tg) (cond (... "{") (... "}") (... ":") (t ...)))) org-tag-alist))))
  (let ((re (org-make-options-regexp (quote ("FILETAGS" "TAGS")))) (splitre "[ 	]+") (start 0) tags ftags key value) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (re-search-forward re nil t) (setq key (upcase (org-match-string-no-properties 1)) value (org-match-string-no-properties 2)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "TAGS") (setq tags (append tags ... ...))) ((equal key "FILETAGS") (if (string-match "\\S-" value) (progn ...))))))) (and ftags (org-set-local (quote org-file-tags) (mapcar (quote org-add-prop-inherited) ftags))) (org-set-local (quote org-tag-groups-alist) nil) (if (and (not tags) org-tag-alist) (progn (setq tags (mapcar (function (lambda (tg) (cond ... ... ... ...))) org-tag-alist)))) (let (e tgs g) (while (setq e (car (prog1 tags (setq tags (cdr tags))))) (cond ((equal e "{") (progn (setq tgs (cons ... tgs)) (if (equal ... ":") (progn ... ...)))) ((equal e ":") (setq tgs (cons (quote ...) tgs))) ((equal e "}") (setq tgs (cons (quote ...) tgs)) (if g (setq g nil))) ((equal e "\\n") (setq tgs (cons (quote ...) tgs))) ((string-match "^\\([[:alnum:]_@#%]+\\)(\\(.\\))$" e) (setq tgs (cons (cons ... ...) tgs)) (if (and g (> g 0)) (setcar org-tag-groups-alist (append ... ...))) (if g (setq g (1+ g)))) (t (setq tgs (cons (list e) tgs)) (if (and g (> g 0)) (setcar org-tag-groups-alist (append ... ...))) (if g (setq g (1+ g)))))) (org-set-local (quote org-tag-alist) nil) (while (setq e (car (prog1 tgs (setq tgs (cdr tgs))))) (or (and (stringp (car e)) (assoc (car e) org-tag-alist)) (setq org-tag-alist (cons e org-tag-alist)))) (list org-file-tags org-tag-alist org-tag-groups-alist)))
  (progn (org-set-local (quote org-file-tags) nil) (let ((re (org-make-options-regexp (quote ("FILETAGS" "TAGS")))) (splitre "[ 	]+") (start 0) tags ftags key value) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (re-search-forward re nil t) (setq key (upcase (org-match-string-no-properties 1)) value (org-match-string-no-properties 2)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "TAGS") (setq tags ...)) ((equal key "FILETAGS") (if ... ...)))))) (and ftags (org-set-local (quote org-file-tags) (mapcar (quote org-add-prop-inherited) ftags))) (org-set-local (quote org-tag-groups-alist) nil) (if (and (not tags) org-tag-alist) (progn (setq tags (mapcar (function (lambda ... ...)) org-tag-alist)))) (let (e tgs g) (while (setq e (car (prog1 tags (setq tags ...)))) (cond ((equal e "{") (progn (setq tgs ...) (if ... ...))) ((equal e ":") (setq tgs (cons ... tgs))) ((equal e "}") (setq tgs (cons ... tgs)) (if g (setq g nil))) ((equal e "\\n") (setq tgs (cons ... tgs))) ((string-match "^\\([[:alnum:]_@#%]+\\)(\\(.\\))$" e) (setq tgs (cons ... tgs)) (if (and g ...) (setcar org-tag-groups-alist ...)) (if g (setq g ...))) (t (setq tgs (cons ... tgs)) (if (and g ...) (setcar org-tag-groups-alist ...)) (if g (setq g ...))))) (org-set-local (quote org-tag-alist) nil) (while (setq e (car (prog1 tgs (setq tgs ...)))) (or (and (stringp (car e)) (assoc (car e) org-tag-alist)) (setq org-tag-alist (cons e org-tag-alist)))) (list org-file-tags org-tag-alist org-tag-groups-alist))))
  (if (derived-mode-p (quote org-mode)) (progn (org-set-local (quote org-file-tags) nil) (let ((re (org-make-options-regexp (quote ("FILETAGS" "TAGS")))) (splitre "[ 	]+") (start 0) tags ftags key value) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (re-search-forward re nil t) (setq key (upcase ...) value (org-match-string-no-properties 2)) (if (stringp value) (setq value ...)) (cond (... ...) (... ...))))) (and ftags (org-set-local (quote org-file-tags) (mapcar (quote org-add-prop-inherited) ftags))) (org-set-local (quote org-tag-groups-alist) nil) (if (and (not tags) org-tag-alist) (progn (setq tags (mapcar (function ...) org-tag-alist)))) (let (e tgs g) (while (setq e (car (prog1 tags ...))) (cond ((equal e "{") (progn ... ...)) ((equal e ":") (setq tgs ...)) ((equal e "}") (setq tgs ...) (if g ...)) ((equal e "\\n") (setq tgs ...)) ((string-match "^\\([[:alnum:]_@#%]+\\)(\\(.\\))$" e) (setq tgs ...) (if ... ...) (if g ...)) (t (setq tgs ...) (if ... ...) (if g ...)))) (org-set-local (quote org-tag-alist) nil) (while (setq e (car (prog1 tgs ...))) (or (and (stringp ...) (assoc ... org-tag-alist)) (setq org-tag-alist (cons e org-tag-alist)))) (list org-file-tags org-tag-alist org-tag-groups-alist)))))
  org-set-regexps-and-options-for-tags()
  (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options-for-tags) (goto-char (point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil t) (progn (org-set-regexps-and-options)))) (org-refresh-category-properties) (org-refresh-properties org-effort-property (quote org-effort)) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn (goto-char ...) (while ... ...))) (goto-char (point-min)) (setq re (format org-heading-keyword-regexp-format org-comment-string)) (while (re-search-forward re nil t) (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc)))) (if modified nil (restore-buffer-modified-p nil)))))
  (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options-for-tags) (goto-char (point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil t) (progn (org-set-regexps-and-options)))) (org-refresh-category-properties) (org-refresh-properties org-effort-property (quote org-effort)) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (save-excursion (remove-text-properties (point-min) (point-max) pall) (if org-agenda-skip-archived-trees (progn ... ...)) (goto-char (point-min)) (setq re (format org-heading-keyword-regexp-format org-comment-string)) (while (re-search-forward re nil t) (add-text-properties ... ... pc)))) (if modified nil (restore-buffer-modified-p nil))))))
  (save-restriction (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options-for-tags) (goto-char (point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil t) (progn (org-set-regexps-and-options)))) (org-refresh-category-properties) (org-refresh-properties org-effort-property (quote org-effort)) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (save-excursion (remove-text-properties ... ... pall) (if org-agenda-skip-archived-trees ...) (goto-char ...) (setq re ...) (while ... ...))) (if modified nil (restore-buffer-modified-p nil)))))))
  (save-excursion (save-restriction (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options-for-tags) (goto-char (point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil t) (progn (org-set-regexps-and-options)))) (org-refresh-category-properties) (org-refresh-properties org-effort-property (quote org-effort)) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist (append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn (save-excursion ... ... ... ... ...)) (if modified nil (restore-buffer-modified-p nil))))))))
  (let ((pa (quote (:org-archived t))) (pc (quote (:org-comment t))) (pall (quote (:org-archived t :org-comment t))) (inhibit-read-only t) (org-inhibit-startup org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")) file re) (setq org-tag-alist-for-agenda nil org-tag-groups-alist-for-agenda nil) (save-excursion (save-restriction (while (setq file (car (prog1 files (setq files ...)))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options-for-tags) (goto-char (point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil t) (progn ...))) (org-refresh-category-properties) (org-refresh-properties org-effort-property (quote org-effort)) (org-refresh-properties "APPT_WARNTIME" (quote org-appt-warntime)) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist ...))) (let* ((modified ...) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn ...) (if modified nil ...))))))) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keyword-alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda)))
  org-agenda-prepare-buffers(("/home/nick/lib/org/rainer.org" "/home/nick/lib/org/ajames.org" "/home/nick/lib/org/appts.org" "/home/nick/lib/org/appts2.org" "/home/nick/lib/org/bills.org" "/home/nick/lib/org/car.org" "/home/nick/lib/org/catalog-software.org" "/home/nick/lib/org/cloud.org" "/home/nick/lib/org/crm.org" "/home/nick/lib/org/current.org" "/home/nick/lib/org/desktops.org" "/home/nick/lib/org/ext4.org" "/home/nick/lib/org/feeds.org" "/home/nick/lib/org/finances.org" "/home/nick/lib/org/fios.org" "/home/nick/lib/org/harness.org" "/home/nick/lib/org/hazard.org" "/home/nick/lib/org/health.org" "/home/nick/lib/org/home.org" "/home/nick/lib/org/journal.org" "/home/nick/lib/org/lab.org" "/home/nick/lib/org/labels.org" "/home/nick/lib/org/links.org" "/home/nick/lib/org/linuxcon.org" "/home/nick/lib/org/margeneta.org" "/home/nick/lib/org/music.org" "/home/nick/lib/org/notes.org" "/home/nick/lib/org/ohiotrip.org" "/home/nick/lib/org/org-mode-requirements.org" "/home/nick/lib/org/org-options.org" "/home/nick/lib/org/org.org" "/home/nick/lib/org/other.org" "/home/nick/lib/org/ra.org" "/home/nick/lib/org/regression.org" "/home/nick/lib/org/rhel6.org" "/home/nick/lib/org/runs.org" "/home/nick/lib/org/shopping.org" "/home/nick/lib/org/sprint.org" "/home/nick/lib/org/sw.org" "/home/nick/lib/org/tabs.org" "/home/nick/lib/org/test.org" "/home/nick/lib/org/thyroid.org" "/home/nick/lib/org/todo.org" "/home/nick/lib/org/trip.org" "/home/nick/lib/org/weather.org" "/home/nick/lib/org/work.org" "/home/nick/lib/org/workqueue.org"))
  (let* ((cnt 0) (scope (or args (quote (:deadline* :scheduled* :timestamp)))) (org-agenda-new-buffers nil) (org-deadline-warning-days 0) (today (org-date-to-gregorian (time-to-days (current-time)))) (org-agenda-restrict nil) (files (org-agenda-files (quote unrestricted))) entries file (org-agenda-buffer nil)) (org-agenda-prepare-buffers files) (while (setq file (car (prog1 files (setq files (cdr files))))) (setq entries (delq nil (append entries (apply (quote org-agenda-get-day-entries) file today scope))))) (mapc (function (lambda (x) (let* ((evt (org-trim ...)) (cat (get-text-property 1 ... x)) (tod (get-text-property 1 ... x)) (ok (or ... ... ... ...)) (wrn (get-text-property 1 ... x))) (if (and ok tod) (progn (setq tod ... tod ...) (if ... ... ...) (setq cnt ...)))))) entries) (org-release-buffers org-agenda-new-buffers) (if (eq cnt 0) (message "No event to add") (message "Added %d event%s for today" cnt (if (> cnt 1) "s" ""))))
  org-agenda-to-appt()
  ndk/agenda-to-appt()
  eval-buffer(#<buffer  *load*-441532> nil "/home/nick/elisp/config/org-config.el" nil t)  ; Reading at buffer position 12042
  load-with-code-conversion("/home/nick/elisp/config/org-config.el" "/home/nick/elisp/config/org-config.el" nil t)
  require(org-config)
  (if (experimental-enabled t) (require (quote org-config)))
  eval-buffer(#<buffer  *load*> nil "/home/nick/.emacs" nil t)  ; Reading at buffer position 7204
  load-with-code-conversion("/home/nick/.emacs" "/home/nick/.emacs" t t)
  load("~/.emacs" t t)
  #[0 "\b\205\262\0	\306=\203\x11\0\307\b\310Q\202;\0	\311=\204\x1e\0\307\b\312Q\202;\0\313\307\314\315#\203*\0\316\202;\0\313\307\314\317#\203:\0\320\nB\x12\321\202;\0\316\322\x13\323\x01\322\211#\210\v\322=\203a\0\324\325\326\307\b\327Q!\"\323\x01\322\211#\210\v\322=\203`\0\x01\x13\210\v\203\243\0\330\v!\331\232\203\243\0\332\v!\211\333P\334\x01!\203}\0\211\202\210\0\334\x02!\203\207\0\x01\202\210\0\314\262\x02\x01\203\241\0\335\x02\v\"\203\237\0\336\337\x03\v#\210\340\341!\210\x01\x13\266\x02\f?\205\260\0\314\x1d\323\342\322\211#)\262\x01\207" [init-file-user system-type delayed-warnings-list user-init-file inhibit-default-init inhibit-startup-screen ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs' init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc" file-name-sans-extension ".el" file-exists-p file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]()
  command-line()
  normal-top-level()

[-- Attachment #3: Type: text/plain, Size: 12 bytes --]


-- 
Nick