Lisp error when starting agenda

Lisp error when starting agenda

[Rainer Stengele]

All,

I pulled today and since then run into this issue after starting an agenda:

Please help!

Rainer


Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  upcase(nil)
  (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil))
  (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect
(progn ... ...) (and ... ...)))) (setq org-file-tags (delq nil (append org-file-tags (nth 0 ret))) org-tag-alist (delq nil (append org-tag-alist (nth 1 ret))) org-tag-groups-alist
(delq nil (append org-tag-groups-alist (nth 2 ret))) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq
ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if
(stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons (quote sequence)
(org-split-string value splitre)) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons (quote type) (org-split-string value splitre)) kwds))) ((string-match
"\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons (cons (intern (downcase ...)) (org-split-string value splitre)) kwds))) ((equal key "COLUMNS") (org-set-local (quote
org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (setq links (cons (cons ... ...) links))))) ((equal key
"PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist
(match-string 1 value) (match-string 2 value) props))))) ((equal key "DRAWERS") (setq drawers (delete-dups (append org-drawers (org-split-string value splitre))))) ((equal key
"CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts (org-split-string value splitre)) l var val) (while (setq l (car (prog1 opts ...))) (if (setq l (assoc l
org-startup-options)) (progn (setq var ... val ...) (if ... ... ... ... ...)))))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote (face t
fontified t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts (read (match-string 2 value))))) ((and (equal key
"SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name (org-remove-double-quotes value)) (quote noerror))) (if (not ext-setup-or-nil) (setq
ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat (substring ext-setup-or-nil 0 start) "\n" setup-contents "\n" (substring ext-setup-or-nil start)))))))
  (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer)
(unwind-protect ... ...))) (setq org-file-tags (delq nil (append org-file-tags ...)) org-tag-alist (delq nil (append org-tag-alist ...)) org-tag-groups-alist (delq nil (append
org-tag-groups-alist ...)) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq ext-setup-or-nil nil start 0)
(re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value
(org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons (quote sequence) (org-split-string value
splitre)) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons (quote type) (org-split-string value splitre)) kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key)
(setq kwds (cons (cons (intern ...) (org-split-string value splitre)) kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key "LINK")
(if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (setq links (cons ... links))))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key
"PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist ... ... props))))) ((equal key "DRAWERS") (setq drawers (delete-dups
(append org-drawers (org-split-string value splitre))))) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts (org-split-string value splitre)) l
var val) (while (setq l (car ...)) (if (setq l ...) (progn ... ...))))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote (face t fontified
t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts (read (match-string 2 value))))) ((and (equal key "SETUPFILE")
(not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name (org-remove-double-quotes value)) (quote noerror))) (if (not ext-setup-or-nil) (setq
ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat (substring ext-setup-or-nil 0 start) "\n" setup-contents "\n" (substring ext-setup-or-nil start)))))))
(goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n
]" " " (match-string 4))) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist ... ... props))))))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let (...) (save-current-buffer ... ...)) (setq
org-file-tags (delq nil ...) org-tag-alist (delq nil ...) org-tag-groups-alist (delq nil ...) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq
start (match-end 0))) (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value
(org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote
("SEQ_TODO" "TODO"))) (setq kwds (cons (cons ... ...) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons ... ...) kwds))) ((string-match
"\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons (cons ... ...) kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key
"LINK") (if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (setq links ...)))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY")
(if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props ...)))) ((equal key "DRAWERS") (setq drawers (delete-dups (append org-drawers ...)))) ((equal key
"CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts ...) l var val) (while (setq l ...) (if ... ...)))) ((equal key "ARCHIVE") (setq arch value)
(remove-text-properties 0 (length arch) (quote (face t fontified t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts
(read ...)))) ((and (equal key "SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name ...) (quote noerror))) (if (not ext-setup-or-nil)
(setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat ... "\n" setup-contents "\n" ...)))))) (goto-char (point-min)) (while (re-search-forward
org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n
]" " " (match-string 4))) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props ...))))))))
  (let ((re (org-make-options-regexp (quote ("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS"))
"\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ 	]+") (scripts org-use-sub-superscripts) kwds kws0 kwsa key log value cat arch const links hw dws tail sep kws1 prio props
drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let
... ...) (setq org-file-tags ... org-tag-alist ... org-tag-groups-alist ... org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0)))
(and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2
ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ...)) (setq kwds (cons ... kwds))) ((equal
key "TYP_TODO") (setq kwds (cons ... kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons ... kwds))) ((equal key "COLUMNS") (org-set-local (quote
org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn ...))) ((equal key "PRIORITIES") (setq prio (org-split-string
value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn ...))) ((equal key "DRAWERS") (setq drawers (delete-dups ...))) ((equal key
"CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let (... l var val) (while ... ...))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length
arch) (quote ...) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts ...))) ((and (equal key "SETUPFILE") (not
buffer-read-only)) (setq setup-contents (org-file-contents ... ...)) (if (not ext-setup-or-nil) (setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil ...)))))
(goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n
]" " " ...)) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn ...))))))) (org-set-local (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote
org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat) props)))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq prio (mapcar (quote
string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0 prio)) (org-set-local (quote org-lowest-priority) (nth 1 prio)) (org-set-local (quote
org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties) (nreverse props))) (and drawers (org-set-local (quote org-drawers) drawers)) (and arch
(org-set-local (quote org-archive-location) arch)) (and links (setq org-link-abbrev-alist-local (nreverse links))) (if kwds nil (setq kwds (default-value (quote
org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo-interpretation (default-value (quote org-todo-keywords)))))) (setq kwds (reverse kwds))) (setq kwds
(nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds (setq kwds (cdr kwds))))) (let ((kws (or (run-hook-with-args-until-success ... kws) kws))) (setq inter (car
(prog1 kws (setq kws ...))) sep (member "|" kws) kws0 (delete "|" (copy-sequence kws)) kwsa nil kws1 (mapcar (function (lambda ... ...)) kws0) kwsa (if kwsa (append (quote ...)
(nreverse kwsa) (quote ...))) hw (car kws1) dws (if sep (org-remove-keyword-keys (cdr sep)) (last kws1)) tail (list inter hw (car dws) (org-last dws)))) (add-to-list (quote
org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq org-done-keywords (append org-done-keywords dws nil)) (setq org-todo-key-alist (append
org-todo-key-alist kwsa)) (mapc (function (lambda (x) (setq org-todo-kwd-alist (cons ... org-todo-kwd-alist)))) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1
nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (quote cdr) org-todo-key-alist))
org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (list (org-last org-todo-keywords-1)))))
(setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length org-clock-string) (length org-closed-string))) org-drawer-regexp (concat
"^[ 	]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ 	]*$") org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1))
org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)") org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote)
org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format
org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?:
+\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?:
+\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$")
org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$") org-deadline-regexp
(concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-time-hour-regexp (concat "\\<" org-deadline-string "
*<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<"
org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string "
*<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\("
org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\("
org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|"
org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]
\n>]*?[]>]\\|<%%([^
\n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq
org-ota nil) (org-compute-latex-and-related-regexp))
  (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote
org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote
org-todo-log-states) nil) (org-set-local (quote org-file-properties) nil) (let ((re (org-make-options-regexp (quote ("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK"
"PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ 	]+") (scripts org-use-sub-superscripts) kwds kws0 kwsa key
log value cat arch const links hw dws tail sep kws1 prio props drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion (save-restriction (widen) (goto-char (point-min))
(while (or (and ext-setup-or-nil (not org-ota) (let ... ... ...)) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start ...)) (and (setq ext-setup-or-nil nil
start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq
value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key ...) (setq kwds ...)) ((equal key "TYP_TODO") (setq kwds ...)) ((string-match
"\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds ...)) ((equal key "COLUMNS") (org-set-local ... value)) ((equal key "LINK") (if ... ...)) ((equal key "PRIORITIES") (setq
prio ...)) ((equal key "PROPERTY") (if ... ...)) ((equal key "DRAWERS") (setq drawers ...)) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ...
...)) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 ... ... arch)) ((equal key "OPTIONS") (if ... ...)) ((and ... ...) (setq setup-contents ...) (if ... ...
...)))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase ...)) (progn (setq value ...) (if ... ...)))))) (org-set-local
(quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat) props)))) (if prio (progn (if (<
(length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0 prio)) (org-set-local (quote
org-lowest-priority) (nth 1 prio)) (org-set-local (quote org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties) (nreverse props))) (and drawers
(org-set-local (quote org-drawers) drawers)) (and arch (org-set-local (quote org-archive-location) arch)) (and links (setq org-link-abbrev-alist-local (nreverse links))) (if kwds
nil (setq kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo-interpretation (default-value ...))))) (setq kwds (reverse
kwds))) (setq kwds (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds (setq kwds ...)))) (let ((kws (or ... kws))) (setq inter (car (prog1 kws ...)) sep (member
"|" kws) kws0 (delete "|" (copy-sequence kws)) kwsa nil kws1 (mapcar (function ...) kws0) kwsa (if kwsa (append ... ... ...)) hw (car kws1) dws (if sep (org-remove-keyword-keys
...) (last kws1)) tail (list inter hw (car dws) (org-last dws)))) (add-to-list (quote org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq
org-done-keywords (append org-done-keywords dws nil)) (setq org-todo-key-alist (append org-todo-key-alist kwsa)) (mapc (function (lambda (x) (setq org-todo-kwd-alist ...))) kws1)
(setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger
(delq nil (mapcar (quote cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and
org-todo-keywords-1 (list (org-last org-todo-keywords-1))))) (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length
org-clock-string) (length org-closed-string))) org-drawer-regexp (concat "^[ 	]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ 	]*$") org-not-done-keywords
(org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)")
org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format
org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +"
org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat
"^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[
]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[
]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>")
org-deadline-time-hour-regexp (concat "\\<" org-deadline-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-deadline-line-regexp (concat "\\<\\("
org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>")
org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-closed-time-regexp (concat "\\<"
org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string
"\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" "
*[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" "
*\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]
\n>]*?[]>]\\|<%%([^
\n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq
org-ota nil) (org-compute-latex-and-related-regexp)))
  (if (derived-mode-p (quote org-mode)) (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote
org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local
(quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (org-set-local (quote org-file-properties) nil) (let ((re (org-make-options-regexp (quote ("CATEGORY"
"TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ 	]+") (scripts
org-use-sub-superscripts) kwds kws0 kwsa key log value cat arch const links hw dws tail sep kws1 prio props drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion
(save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil ... ...) (and ext-setup-or-nil ... ...) (and ... ...)) (setq key (upcase ...) value
(org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
(... ...) (... ...) (... ...) (... ... ...) (... ...) (... ... ...))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" ...) (progn
... ...))))) (org-set-local (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat)
props)))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ...))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0
prio)) (org-set-local (quote org-lowest-priority) (nth 1 prio)) (org-set-local (quote org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties)
(nreverse props))) (and drawers (org-set-local (quote org-drawers) drawers)) (and arch (org-set-local (quote org-archive-location) arch)) (and links (setq
org-link-abbrev-alist-local (nreverse links))) (if kwds nil (setq kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons
org-todo-interpretation ...)))) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds ...))) (let ((kws ...)) (setq inter
(car ...) sep (member "|" kws) kws0 (delete "|" ...) kwsa nil kws1 (mapcar ... kws0) kwsa (if kwsa ...) hw (car kws1) dws (if sep ... ...) tail (list inter hw ... ...)))
(add-to-list (quote org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq org-done-keywords (append org-done-keywords dws nil)) (setq
org-todo-key-alist (append org-todo-key-alist kwsa)) (mapc (function (lambda ... ...)) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) (setq org-todo-sets
(nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (quote cdr) org-todo-key-alist)) org-todo-key-alist
(org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (list (org-last org-todo-keywords-1))))) (setq
org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length org-clock-string) (length org-closed-string))) org-drawer-regexp (concat "^[
]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ 	]*$") org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1))
org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)") org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote)
org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format
org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?:
+\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?:
+\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$")
org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$") org-deadline-regexp
(concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-time-hour-regexp (concat "\\<" org-deadline-string "
*<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<"
org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string "
*<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\("
org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\("
org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|"
org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]
\n>]*?[]>]\\|<%%([^
\n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq
org-ota nil) (org-compute-latex-and-related-regexp))))
  org-set-regexps-and-options()
  (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote
org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let
((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-table)))) nil (set-char-table-parent org-mode-syntax-table (syntax-table))))
(if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents (list
local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if
(boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide)))
(define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote
undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec
(quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local
(quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq
bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function (lambda
... ...)) (if (stringp org-ellipsis) org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options-for-tags) (org-set-regexps-and-options)
(org-set-font-lock-defaults) (if (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote
calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn
(require (quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote
org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote
org-check-running-clock) nil (quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line))
(org-set-local (quote indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-set-local (quote beginning-of-defun-function) (quote
org-backward-element)) (org-set-local (quote end-of-defun-function) (quote org-forward-element)) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if
org-enforce-todo-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote
org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))
(remove-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp .
"^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) (if (or (featurep (quote xemacs)) (not
(boundp (quote outline-isearch-open-invisible-function)))) (org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (org-set-local (quote
outline-isearch-open-invisible-function) (function (lambda (&rest ignore) (org-show-context (quote isearch))))) (org-add-hook (quote isearch-mode-end-hook) (quote
org-fix-ellipsis-at-bol) (quote append) (quote local))) (set (make-local-variable (quote pcomplete-command-completion-function)) (quote org-pcomplete-initial)) ...)
  (progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote
outline-mode) (quote mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent
org-mode-map (current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-parent org-mode-syntax-table
(syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents
(list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if
(boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide)))
(define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote
undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec
(quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local
(quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq
bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function ...) (if
... org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options-for-tags) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if
(and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ")
(modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn (require (quote org-indent))
(org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook
(quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local))
(org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line)) (org-set-local (quote indent-region-function)
(quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-set-local (quote beginning-of-defun-function) (quote org-backward-element)) (org-set-local (quote
end-of-defun-function) (quote org-forward-element)) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies (add-hook (quote
org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent))) (if
org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote
org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote
(org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) (if (or (featurep (quote xemacs)) (not (boundp (quote
outline-isearch-open-invisible-function)))) (org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (org-set-local (quote
outline-isearch-open-invisible-function) (function (lambda (&rest ignore) (org-show-context (quote isearch))))) (org-add-hook (quote isearch-mode-end-hook) (quote
org-fix-ellipsis-at-bol) (quote append) (quote local))) (set (make-local-variable (quote pcomplete-command-completion-function)) (quote org-pcomplete-initial)) ...))
  org-mode()
  set-auto-mode-0(org-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org> "~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org" nil nil
"~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org" ((378368 0 . 32277) (39125 . 52227)))
  find-file-noselect("~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org")
  (setq buf (find-file-noselect file))
  (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf)
  (let ((buf (org-find-base-buffer-visiting file))) (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf))
  org-get-agenda-file-buffer("~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org")

Re: Lisp error when starting agenda

[Rainer Stengele]

Going back to

git checkout f0c2a680568009ad2f93020af8134dbd481070e2

works again, so I assume it could be the following commit.

Rainer


Am 04.07.2013 15:35, schrieb Rainer Stengele:
> All,
> 
> I pulled today and since then run into this issue after starting an agenda:
> 
> Please help!
> 
> Rainer
> 
> 
> Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
>   upcase(nil)
>   (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil))
>   (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect
> (progn ... ...) (and ... ...)))) (setq org-file-tags (delq nil (append org-file-tags (nth 0 ret))) org-tag-alist (delq nil (append org-tag-alist (nth 1 ret))) org-tag-groups-alist
> (delq nil (append org-tag-groups-alist (nth 2 ret))) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq
> ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if
> (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons (quote sequence)
> (org-split-string value splitre)) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons (quote type) (org-split-string value splitre)) kwds))) ((string-match
> "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons (cons (intern (downcase ...)) (org-split-string value splitre)) kwds))) ((equal key "COLUMNS") (org-set-local (quote
> org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (setq links (cons (cons ... ...) links))))) ((equal key
> "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist
> (match-string 1 value) (match-string 2 value) props))))) ((equal key "DRAWERS") (setq drawers (delete-dups (append org-drawers (org-split-string value splitre))))) ((equal key
> "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts (org-split-string value splitre)) l var val) (while (setq l (car (prog1 opts ...))) (if (setq l (assoc l
> org-startup-options)) (progn (setq var ... val ...) (if ... ... ... ... ...)))))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote (face t
> fontified t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts (read (match-string 2 value))))) ((and (equal key
> "SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name (org-remove-double-quotes value)) (quote noerror))) (if (not ext-setup-or-nil) (setq
> ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat (substring ext-setup-or-nil 0 start) "\n" setup-contents "\n" (substring ext-setup-or-nil start)))))))
>   (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer)
> (unwind-protect ... ...))) (setq org-file-tags (delq nil (append org-file-tags ...)) org-tag-alist (delq nil (append org-tag-alist ...)) org-tag-groups-alist (delq nil (append
> org-tag-groups-alist ...)) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq ext-setup-or-nil nil start 0)
> (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value
> (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons (quote sequence) (org-split-string value
> splitre)) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons (quote type) (org-split-string value splitre)) kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key)
> (setq kwds (cons (cons (intern ...) (org-split-string value splitre)) kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key "LINK")
> (if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (setq links (cons ... links))))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key
> "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist ... ... props))))) ((equal key "DRAWERS") (setq drawers (delete-dups
> (append org-drawers (org-split-string value splitre))))) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts (org-split-string value splitre)) l
> var val) (while (setq l (car ...)) (if (setq l ...) (progn ... ...))))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote (face t fontified
> t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts (read (match-string 2 value))))) ((and (equal key "SETUPFILE")
> (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name (org-remove-double-quotes value)) (quote noerror))) (if (not ext-setup-or-nil) (setq
> ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat (substring ext-setup-or-nil 0 start) "\n" setup-contents "\n" (substring ext-setup-or-nil start)))))))
> (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n
> ]" " " (match-string 4))) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist ... ... props))))))))
>   (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let (...) (save-current-buffer ... ...)) (setq
> org-file-tags (delq nil ...) org-tag-alist (delq nil ...) org-tag-groups-alist (delq nil ...) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq
> start (match-end 0))) (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value
> (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote
> ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons ... ...) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons ... ...) kwds))) ((string-match
> "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons (cons ... ...) kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key
> "LINK") (if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn (setq links ...)))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY")
> (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props ...)))) ((equal key "DRAWERS") (setq drawers (delete-dups (append org-drawers ...)))) ((equal key
> "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts ...) l var val) (while (setq l ...) (if ... ...)))) ((equal key "ARCHIVE") (setq arch value)
> (remove-text-properties 0 (length arch) (quote (face t fontified t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts
> (read ...)))) ((and (equal key "SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name ...) (quote noerror))) (if (not ext-setup-or-nil)
> (setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat ... "\n" setup-contents "\n" ...)))))) (goto-char (point-min)) (while (re-search-forward
> org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n
> ]" " " (match-string 4))) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props ...))))))))
>   (let ((re (org-make-options-regexp (quote ("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS"))
> "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ 	]+") (scripts org-use-sub-superscripts) kwds kws0 kwsa key log value cat arch const links hw dws tail sep kws1 prio props
> drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let
> ... ...) (setq org-file-tags ... org-tag-alist ... org-tag-groups-alist ... org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0)))
> (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2
> ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ...)) (setq kwds (cons ... kwds))) ((equal
> key "TYP_TODO") (setq kwds (cons ... kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons ... kwds))) ((equal key "COLUMNS") (org-set-local (quote
> org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn ...))) ((equal key "PRIORITIES") (setq prio (org-split-string
> value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn ...))) ((equal key "DRAWERS") (setq drawers (delete-dups ...))) ((equal key
> "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let (... l var val) (while ... ...))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length
> arch) (quote ...) arch)) ((equal key "OPTIONS") (if (string-match "\\([ 	]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts ...))) ((and (equal key "SETUPFILE") (not
> buffer-read-only)) (setq setup-contents (org-file-contents ... ...)) (if (not ext-setup-or-nil) (setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil ...)))))
> (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n
> ]" " " ...)) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn ...))))))) (org-set-local (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote
> org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat) props)))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq prio (mapcar (quote
> string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0 prio)) (org-set-local (quote org-lowest-priority) (nth 1 prio)) (org-set-local (quote
> org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties) (nreverse props))) (and drawers (org-set-local (quote org-drawers) drawers)) (and arch
> (org-set-local (quote org-archive-location) arch)) (and links (setq org-link-abbrev-alist-local (nreverse links))) (if kwds nil (setq kwds (default-value (quote
> org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo-interpretation (default-value (quote org-todo-keywords)))))) (setq kwds (reverse kwds))) (setq kwds
> (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds (setq kwds (cdr kwds))))) (let ((kws (or (run-hook-with-args-until-success ... kws) kws))) (setq inter (car
> (prog1 kws (setq kws ...))) sep (member "|" kws) kws0 (delete "|" (copy-sequence kws)) kwsa nil kws1 (mapcar (function (lambda ... ...)) kws0) kwsa (if kwsa (append (quote ...)
> (nreverse kwsa) (quote ...))) hw (car kws1) dws (if sep (org-remove-keyword-keys (cdr sep)) (last kws1)) tail (list inter hw (car dws) (org-last dws)))) (add-to-list (quote
> org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq org-done-keywords (append org-done-keywords dws nil)) (setq org-todo-key-alist (append
> org-todo-key-alist kwsa)) (mapc (function (lambda (x) (setq org-todo-kwd-alist (cons ... org-todo-kwd-alist)))) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1
> nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (quote cdr) org-todo-key-alist))
> org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (list (org-last org-todo-keywords-1)))))
> (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length org-clock-string) (length org-closed-string))) org-drawer-regexp (concat
> "^[ 	]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ 	]*$") org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1))
> org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)") org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote)
> org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format
> org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?:
> +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?:
> +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$")
> org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$") org-deadline-regexp
> (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-time-hour-regexp (concat "\\<" org-deadline-string "
> *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<"
> org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string "
> *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\("
> org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\("
> org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|"
> org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]
> \n>]*?[]>]\\|<%%([^
> \n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq
> org-ota nil) (org-compute-latex-and-related-regexp))
>   (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote
> org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote
> org-todo-log-states) nil) (org-set-local (quote org-file-properties) nil) (let ((re (org-make-options-regexp (quote ("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK"
> "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ 	]+") (scripts org-use-sub-superscripts) kwds kws0 kwsa key
> log value cat arch const links hw dws tail sep kws1 prio props drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion (save-restriction (widen) (goto-char (point-min))
> (while (or (and ext-setup-or-nil (not org-ota) (let ... ... ...)) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start ...)) (and (setq ext-setup-or-nil nil
> start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq
> value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key ...) (setq kwds ...)) ((equal key "TYP_TODO") (setq kwds ...)) ((string-match
> "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds ...)) ((equal key "COLUMNS") (org-set-local ... value)) ((equal key "LINK") (if ... ...)) ((equal key "PRIORITIES") (setq
> prio ...)) ((equal key "PROPERTY") (if ... ...)) ((equal key "DRAWERS") (setq drawers ...)) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ...
> ...)) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 ... ... arch)) ((equal key "OPTIONS") (if ... ...)) ((and ... ...) (setq setup-contents ...) (if ... ...
> ...)))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase ...)) (progn (setq value ...) (if ... ...)))))) (org-set-local
> (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat) props)))) (if prio (progn (if (<
> (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0 prio)) (org-set-local (quote
> org-lowest-priority) (nth 1 prio)) (org-set-local (quote org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties) (nreverse props))) (and drawers
> (org-set-local (quote org-drawers) drawers)) (and arch (org-set-local (quote org-archive-location) arch)) (and links (setq org-link-abbrev-alist-local (nreverse links))) (if kwds
> nil (setq kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo-interpretation (default-value ...))))) (setq kwds (reverse
> kwds))) (setq kwds (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds (setq kwds ...)))) (let ((kws (or ... kws))) (setq inter (car (prog1 kws ...)) sep (member
> "|" kws) kws0 (delete "|" (copy-sequence kws)) kwsa nil kws1 (mapcar (function ...) kws0) kwsa (if kwsa (append ... ... ...)) hw (car kws1) dws (if sep (org-remove-keyword-keys
> ...) (last kws1)) tail (list inter hw (car dws) (org-last dws)))) (add-to-list (quote org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq
> org-done-keywords (append org-done-keywords dws nil)) (setq org-todo-key-alist (append org-todo-key-alist kwsa)) (mapc (function (lambda (x) (setq org-todo-kwd-alist ...))) kws1)
> (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger
> (delq nil (mapcar (quote cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and
> org-todo-keywords-1 (list (org-last org-todo-keywords-1))))) (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length
> org-clock-string) (length org-closed-string))) org-drawer-regexp (concat "^[ 	]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ 	]*$") org-not-done-keywords
> (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)")
> org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format
> org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +"
> org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat
> "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[
> ]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[
> ]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>")
> org-deadline-time-hour-regexp (concat "\\<" org-deadline-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-deadline-line-regexp (concat "\\<\\("
> org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>")
> org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-closed-time-regexp (concat "\\<"
> org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string
> "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" "
> *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" "
> *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]
> \n>]*?[]>]\\|<%%([^
> \n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq
> org-ota nil) (org-compute-latex-and-related-regexp)))
>   (if (derived-mode-p (quote org-mode)) (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote
> org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local
> (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (org-set-local (quote org-file-properties) nil) (let ((re (org-make-options-regexp (quote ("CATEGORY"
> "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ 	]+") (scripts
> org-use-sub-superscripts) kwds kws0 kwsa key log value cat arch const links hw dws tail sep kws1 prio props drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion
> (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil ... ...) (and ext-setup-or-nil ... ...) (and ... ...)) (setq key (upcase ...) value
> (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
> (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ... ...))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" ...) (progn
> ... ...))))) (org-set-local (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat)
> props)))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ...))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0
> prio)) (org-set-local (quote org-lowest-priority) (nth 1 prio)) (org-set-local (quote org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties)
> (nreverse props))) (and drawers (org-set-local (quote org-drawers) drawers)) (and arch (org-set-local (quote org-archive-location) arch)) (and links (setq
> org-link-abbrev-alist-local (nreverse links))) (if kwds nil (setq kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons
> org-todo-interpretation ...)))) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds ...))) (let ((kws ...)) (setq inter
> (car ...) sep (member "|" kws) kws0 (delete "|" ...) kwsa nil kws1 (mapcar ... kws0) kwsa (if kwsa ...) hw (car kws1) dws (if sep ... ...) tail (list inter hw ... ...)))
> (add-to-list (quote org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq org-done-keywords (append org-done-keywords dws nil)) (setq
> org-todo-key-alist (append org-todo-key-alist kwsa)) (mapc (function (lambda ... ...)) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) (setq org-todo-sets
> (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (quote cdr) org-todo-key-alist)) org-todo-key-alist
> (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (list (org-last org-todo-keywords-1))))) (setq
> org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length org-clock-string) (length org-closed-string))) org-drawer-regexp (concat "^[
> ]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ 	]*$") org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1))
> org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)") org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote)
> org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format
> org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?:
> +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?:
> +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$")
> org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$") org-deadline-regexp
> (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-time-hour-regexp (concat "\\<" org-deadline-string "
> *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<"
> org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string "
> *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy 	.]*\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\("
> org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\("
> org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|"
> org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]
> \n>]*?[]>]\\|<%%([^
> \n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq
> org-ota nil) (org-compute-latex-and-related-regexp))))
>   org-set-regexps-and-options()
>   (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote
> org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let
> ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-table)))) nil (set-char-table-parent org-mode-syntax-table (syntax-table))))
> (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents (list
> local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if
> (boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide)))
> (define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote
> undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec
> (quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local
> (quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq
> bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
> make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function (lambda
> ... ...)) (if (stringp org-ellipsis) org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options-for-tags) (org-set-regexps-and-options)
> (org-set-font-lock-defaults) (if (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote
> calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn
> (require (quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote
> org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote
> org-check-running-clock) nil (quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line))
> (org-set-local (quote indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-set-local (quote beginning-of-defun-function) (quote
> org-backward-element)) (org-set-local (quote end-of-defun-function) (quote org-forward-element)) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if
> org-enforce-todo-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote
> org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))
> (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp .
> "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) (if (or (featurep (quote xemacs)) (not
> (boundp (quote outline-isearch-open-invisible-function)))) (org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (org-set-local (quote
> outline-isearch-open-invisible-function) (function (lambda (&rest ignore) (org-show-context (quote isearch))))) (org-add-hook (quote isearch-mode-end-hook) (quote
> org-fix-ellipsis-at-bol) (quote append) (quote local))) (set (make-local-variable (quote pcomplete-command-completion-function)) (quote org-pcomplete-initial)) ...)
>   (progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote
> outline-mode) (quote mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent
> org-mode-map (current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-parent org-mode-syntax-table
> (syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents
> (list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if
> (boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide)))
> (define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote
> undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec
> (quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local
> (quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq
> bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
> make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function ...) (if
> ... org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options-for-tags) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if
> (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ")
> (modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn (require (quote org-indent))
> (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook
> (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local))
> (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line)) (org-set-local (quote indent-region-function)
> (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-set-local (quote beginning-of-defun-function) (quote org-backward-element)) (org-set-local (quote
> end-of-defun-function) (quote org-forward-element)) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies (add-hook (quote
> org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent))) (if
> org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote
> org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote
> (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) (if (or (featurep (quote xemacs)) (not (boundp (quote
> outline-isearch-open-invisible-function)))) (org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (org-set-local (quote
> outline-isearch-open-invisible-function) (function (lambda (&rest ignore) (org-show-context (quote isearch))))) (org-add-hook (quote isearch-mode-end-hook) (quote
> org-fix-ellipsis-at-bol) (quote append) (quote local))) (set (make-local-variable (quote pcomplete-command-completion-function)) (quote org-pcomplete-initial)) ...))
>   org-mode()
>   set-auto-mode-0(org-mode nil)
>   set-auto-mode()
>   normal-mode(t)
>   after-find-file(nil t)
>   find-file-noselect-1(#<buffer Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org> "~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org" nil nil
> "~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org" ((378368 0 . 32277) (39125 . 52227)))
>   find-file-noselect("~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org")
>   (setq buf (find-file-noselect file))
>   (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf)
>   (let ((buf (org-find-base-buffer-visiting file))) (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf))
>   org-get-agenda-file-buffer("~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org")
> 
> 
> 

Re: Lisp error when starting agenda

[Bastien]

Hi Rainer,

Rainer Stengele <rainer.stengele@online.de> writes:

> I pulled today and since then run into this issue after starting an
> agenda:

Can you give a recipe?

Thanks,

-- 
 Bastien

Re: Lisp error when starting agenda

[Rainer Stengele]

Am 04.07.2013 16:07, schrieb Bastien:
> Hi Rainer,
>
> Rainer Stengele <rainer.stengele@online.de> writes:
>
>> I pulled today and since then run into this issue after starting an
>> agenda:
> Can you give a recipe?
>
> Thanks,
>
    ("01" "agenda - prio A,B todos - sorted prio up - today"  ;;
     (

      ;; show ONGOING todos first, but only if unscheduled, skip if scheduled
      (tags-todo "ONGOING"
             ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled))
              (org-agenda-overriding-header "ONGOING todos: ")))
      (agenda "todays agenda"
          (
           ;; (org-agenda-skip-function
           ;; (lambda nil
           ;;   (org-agenda-skip-entry-if 'regexp ":ONGOING:")))
           ;; (org-agenda-skip-entry-if 'regexp ":ONGOING:")))
           (org-agenda-span 'day)
           (org-agenda-start-with-log-mode t)
           (org-agenda-start-with-clockreport-mode t)

           (org-agenda-overriding-header "Today's Agenda")))

      (alltodo "todos Prio A+B - skip ONGOING todos"
           (
            (org-agenda-skip-function (lambda nil
                        (or (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\|#B\\]")
                            (org-agenda-skip-entry-if 'regexp ":ONGOING:")
                            (org-agenda-skip-entry-if 'scheduled 'deadline ))))
            (org-agenda-overriding-header "All todos prio A+B - skip ONGOING todos: ")
            )))
     ((org-agenda-sorting-strategy '(time-up priority-down todo-state-up))))

Re: Lisp error when starting agenda

[Bastien]

Please send a recipe: a step-by-step way of reproducing the problem,
with minimal config and org file.

-- 
 Bastien

Re: Lisp error when starting agenda

[Rainer Stengele]

Am 04.07.2013 16:11, schrieb Bastien:
> Please send a recipe: a step-by-step way of reproducing the problem,
> with minimal config and org file.
> 

Found it:

Lisp error is triggered by the SETUPFILE option:

#+SETUPFILE: ~/org/GLOBAL_SETUP_DIPLAN.org

If I remove that line everything works fine.

Thanks,
Rainer

Re: Lisp error when starting agenda

[Bastien]

Rainer Stengele <rainer.stengele@online.de> writes:

> Lisp error is triggered by the SETUPFILE option:
>
> #+SETUPFILE: ~/org/GLOBAL_SETUP_DIPLAN.org
>
> If I remove that line everything works fine.

Can you copy and past lines starting with "#+" from
GLOBAL_SETUP_DIPLAN.org?

Parsing those lines is where the error probably comes from,
if that's so we need to fix it.

Thanks again!

-- 
 Bastien

Re: Lisp error when starting agenda

[Rainer Stengele]

Am 04.07.2013 17:12, schrieb Bastien:
> Rainer Stengele <rainer.stengele@online.de> writes:
>
>> Lisp error is triggered by the SETUPFILE option:
>>
>> #+SETUPFILE: ~/org/GLOBAL_SETUP_DIPLAN.org
>>
>> If I remove that line everything works fine.
> Can you copy and past lines starting with "#+" from
> GLOBAL_SETUP_DIPLAN.org?
>
> Parsing those lines is where the error probably comes from,
> if that's so we need to fix it.
>
> Thanks again!
>

#+STARTUP:  overview
#+STARTUP:  hidestars inlineimages logdone nologrepeat nolognoteclock-out nologreschedule nologredeadline nologrefile
#+TAGS:     @DIPLAN @HOME(h) @IGN @KUNDE(k) @UNTERWEGS(U)
#+TAGS:     ADMIN(a) ASIEN(A) diplan(d) drill(D) EMAIL export(e) HIDE(H) HIDEAGENDA IGNORE(x) INFO(i) JWINTER(W)
LESEN(L) LPM(l) noexport(n) ONGOING(o)  PROJEKT REFILETARGET(r)
#+TAGS:     REVIEW_WEEKLY REVIEW_MONTHLY becom(b) fleckenm(f) foerster(F) rob(R) roth SERVICE stengele(s) TC(t)
TEL TDEIERL WARTEN(w) UBMED(u) ULLA(z)
#+SEQ_TODO: TODO NEXT WARTEN(w) HOLD(h) | MOVED DONE(d) CANCELED(c) DELEGATED
#+OPTIONS:   ^:{} \n:nil <:t todo:t toc:t
-*- coding:utf-8-unix; -*-

Re: Lisp error when starting agenda

[Bastien]

Hi Rainer,

This should now be fixed, thanks.

-- 
 Bastien

Re: Lisp error when starting agenda

[Rainer Stengele]

Am 04.07.2013 22:15, schrieb Bastien:
> Hi Rainer,
> 
> This should now be fixed, thanks.
> 
Confirmed!

Thanks!