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") > > >