[O] 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:address@hidden:]+:\\)\\)?" "[    
]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" 
org-todo-regexp "\\)?" "\\(?:
+\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: 
*\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?" "[    ]*$")
org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp 
"\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[        
]+\\(:[[:alnum:]:address@hidden:\\)\\)?" "[     ]*$") 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:address@hidden:]+:\\)\\)?" "[    ]*$") 
org-complex-heading-regexp-format (concat
"^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" 
"\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" 
"\\)" "\\(?:[
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?" "[    ]*$") org-todo-line-tags-regexp 
(concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" 
"\\(?:[
]+\\(:[[:alnum:]:address@hidden:\\)\\)?" "[     ]*$") 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:address@hidden:]+:\\)\\)?" "[    
]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" 
org-todo-regexp "\\)?" "\\(?:
+\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: 
*\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[       
]+\\(:[[:alnum:address@hidden:]+:\\)\\)?" "[    ]*$")
org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp 
"\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[        
]+\\(:[[:alnum:]:address@hidden:\\)\\)?" "[     ]*$") 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")