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(# 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(# 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()