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-)
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 "\205\262 \306=\203 \307\310Q\202;
\311=\204 \307\312Q\202; \313\307\314\315#\203* \316\202; \313\307\314\317#\203: \320\nB\321\202; \316\322\323\322\211#\210 \322=\203a \324\325\326\307\327Q!\"\323\322\211#\210 \322=\203` \210 \203\243 \330 !\331\232\203\243 \332 !\211\333P\334!\203} \211\202\210 \334!\203\207 \202\210 \314\262\203\241 \335 \"\203\237 \336\337 #\210\340\341!\210\266\f?\205\260 \314 \323\342\322\211#)\262\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()
--
Nick
