[O] Cannot start any agenda anymore

[Rainer Stengele]

Hi all,

since yesterday I cannot start any agenda anymore.
I did reorganise a few things but cannot find the reason whats wrong.

setting debug to true I get the message below after a standard "C-a a t". 
Please help I am completely stuck.
Thank you, Rainer


Org-mode version 8.3beta (release_8.3beta-589-g9eff31 @ 
c:/Users/rainer/AppData/Roaming/.emacs.d/org/lisp/)
GNU Emacs 24.3.50.1 (i386-mingw-nt6.1.7601) of 2013-03-14 on VBOX



Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  looking-at(nil)
  outline-on-heading-p(t)
  org-at-heading-p()
  (cond ((eq mode (quote item)) (org-element-item-parser limit structure 
raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser 
limit)) ((eq mode (quote
node-property)) (org-element-node-property-parser limit)) ((let* 
((org-called-with-limited-levels t) (org-outline-regexp 
(org-get-limited-outline-regexp)) (outline-regexp
org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) 
(org-at-heading-p)) (org-element-headline-parser limit raw-secondary-p)) ((eq 
mode (quote section))
(org-element-section-parser limit)) ((eq mode (quote first-section)) 
(org-element-section-parser (or (save-excursion (let* 
((org-called-with-limited-levels t) (org-outline-regexp
...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) 
(outline-next-heading))) limit))) ((and (eq mode (quote planning)) (looking-at 
org-planning-line-re))
(org-element-planning-parser limit)) ((and (memq mode (quote (planning 
property-drawer))) (looking-at org-property-drawer-re)) 
(org-element-property-drawer-parser limit)) ((not
(bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at 
org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-p) 
(org-element-inlinetask-parser
limit raw-secondary-p)) (t (let ((affiliated 
(org-element--collect-affiliated-keywords limit))) (cond ((and (cdr affiliated) 
(>= (point) limit)) (goto-char (car affiliated))
(org-element-keyword-parser limit nil)) ((looking-at 
org-element--latex-begin-environment) (org-element-latex-environment-parser 
limit affiliated)) ((looking-at org-drawer-regexp)
(org-element-drawer-parser limit affiliated)) ((looking-at "[   ]*:\\( 
\\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[    
 ]*#") (goto-char (match-end 0))
(cond ((looking-at "\\(?: \\|$\\)") (beginning-of-line) 
(org-element-comment-parser limit affiliated)) ((looking-at 
"\\+BEGIN_\\(\\S-+\\)") (beginning-of-line) (let ... ...))
((looking-at "\\+CALL:") (beginning-of-line) (org-element-babel-call-parser 
limit affiliated)) ((looking-at "\\+BEGIN:? ") (beginning-of-line) 
(org-element-dynamic-block-parser
limit affiliated)) ((looking-at "\\+\\S-+:") (beginning-of-line) 
(org-element-keyword-parser limit affiliated)) (t (beginning-of-line) 
(org-element-paragraph-parser limit
affiliated)))) ((looking-at org-footnote-definition-re) 
(org-element-footnote-definition-parser limit affiliated)) ((looking-at "[      
]*-\\{5,\\}[    ]*$")
(org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") 
(org-element-diary-sexp-parser limit affiliated)) ((org-at-table-p t) 
(org-element-table-parser limit
affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parser limit 
affiliated (or structure (org-element--list-struct limit)))) (t 
(org-element-paragraph-parser limit
affiliated))))))
  (let ((case-fold-search t) (raw-secondary-p (and granularity (not (eq 
granularity (quote object)))))) (cond ((eq mode (quote item)) 
(org-element-item-parser limit structure
raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser 
limit)) ((eq mode (quote node-property)) (org-element-node-property-parser 
limit)) ((let*
((org-called-with-limited-levels t) (org-outline-regexp 
(org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) 
(org-outline-regexp-bol (concat "^"
org-outline-regexp))) (org-at-heading-p)) (org-element-headline-parser limit 
raw-secondary-p)) ((eq mode (quote section)) (org-element-section-parser 
limit)) ((eq mode (quote
first-section)) (org-element-section-parser (or (save-excursion (let* (... ... 
... ...) (outline-next-heading))) limit))) ((and (eq mode (quote planning)) 
(looking-at
org-planning-line-re)) (org-element-planning-parser limit)) ((and (memq mode 
(quote (planning property-drawer))) (looking-at org-property-drawer-re))
(org-element-property-drawer-parser limit)) ((not (bolp)) 
(org-element-paragraph-parser limit (list (point)))) ((looking-at 
org-clock-line-re) (org-element-clock-parser limit))
((org-at-heading-p) (org-element-inlinetask-parser limit raw-secondary-p)) (t 
(let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond 
((and (cdr affiliated) (>=
... limit)) (goto-char (car affiliated)) (org-element-keyword-parser limit 
nil)) ((looking-at org-element--latex-begin-environment) 
(org-element-latex-environment-parser limit
affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit 
affiliated)) ((looking-at "[      ]*:\\( \\|$\\)") 
(org-element-fixed-width-parser limit affiliated))
((looking-at "[         ]*#") (goto-char (match-end 0)) (cond (... ... ...) 
(... ... ...) (... ... ...) (... ... ...) (... ... ...) (t ... ...))) 
((looking-at org-footnote-definition-re)
(org-element-footnote-definition-parser limit affiliated)) ((looking-at "[      
]*-\\{5,\\}[    ]*$") (org-element-horizontal-rule-parser limit affiliated)) 
((looking-at "%%(")
(org-element-diary-sexp-parser limit affiliated)) ((org-at-table-p t) 
(org-element-table-parser limit affiliated)) ((looking-at (org-item-re)) 
(org-element-plain-list-parser limit
affiliated (or structure ...))) (t (org-element-paragraph-parser limit 
affiliated)))))))
  (save-excursion (let ((case-fold-search t) (raw-secondary-p (and granularity 
(not (eq granularity (quote object)))))) (cond ((eq mode (quote item)) 
(org-element-item-parser limit
structure raw-secondary-p)) ((eq mode (quote table-row)) 
(org-element-table-row-parser limit)) ((eq mode (quote node-property)) 
(org-element-node-property-parser limit)) ((let*
((org-called-with-limited-levels t) (org-outline-regexp 
(org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) 
(org-outline-regexp-bol (concat "^"
org-outline-regexp))) (org-at-heading-p)) (org-element-headline-parser limit 
raw-secondary-p)) ((eq mode (quote section)) (org-element-section-parser 
limit)) ((eq mode (quote
first-section)) (org-element-section-parser (or (save-excursion (let* ... ...)) 
limit))) ((and (eq mode (quote planning)) (looking-at org-planning-line-re))
(org-element-planning-parser limit)) ((and (memq mode (quote (planning 
property-drawer))) (looking-at org-property-drawer-re)) 
(org-element-property-drawer-parser limit)) ((not
(bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at 
org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-p) 
(org-element-inlinetask-parser
limit raw-secondary-p)) (t (let ((affiliated 
(org-element--collect-affiliated-keywords limit))) (cond ((and ... ...) 
(goto-char ...) (org-element-keyword-parser limit nil))
((looking-at org-element--latex-begin-environment) 
(org-element-latex-environment-parser limit affiliated)) ((looking-at 
org-drawer-regexp) (org-element-drawer-parser limit
affiliated)) ((looking-at "[    ]*:\\( \\|$\\)") 
(org-element-fixed-width-parser limit affiliated)) ((looking-at "[     ]*#") 
(goto-char ...) (cond ... ... ... ... ... ...))
((looking-at org-footnote-definition-re) 
(org-element-footnote-definition-parser limit affiliated)) ((looking-at "[     
]*-\\{5,\\}[    ]*$") (org-element-horizontal-rule-parser limit
affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit 
affiliated)) ((org-at-table-p t) (org-element-table-parser limit affiliated)) 
((looking-at ...)
(org-element-plain-list-parser limit affiliated ...)) (t 
(org-element-paragraph-parser limit affiliated))))))))
  org-element--current-element(779 element nil nil)
  (setq element (org-element--current-element end (quote element) mode 
(org-element-property :structure parent)))
  (if element nil (setq element (org-element--current-element end (quote 
element) mode (org-element-property :structure parent))) 
(org-element-put-property element :parent parent)
(org-element--cache-put element))
  (while t (if syncp (progn (cond ((= (point) pos) (throw (quote exit) parent)) 
((org-element--cache-interrupt-p time-limit) (throw (quote interrupt) nil))))) 
(if element nil (setq
element (org-element--current-element end (quote element) mode 
(org-element-property :structure parent))) (org-element-put-property element 
:parent parent) (org-element--cache-put
element)) (let ((elem-end (org-element-property :end element)) (type 
(org-element-type element))) (cond ((and (<= elem-end pos) (/= (point-max) 
elem-end)) (goto-char elem-end)
(setq mode (org-element--next-mode type nil))) ((not (memq type 
org-element-greater-elements)) (throw (quote exit) element)) ((let ((cbeg 
(org-element-property :contents-begin
element)) (cend (org-element-property :contents-end element))) (if (or syncp 
(and cbeg cend ... ...)) (progn (goto-char ...) (setq next nil mode ... parent 
element end cend))))) (t
(throw (quote exit) element)))) (setq element nil))
  (let ((end (or (org-element-property :end element) (save-excursion (let* 
((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp 
org-outline-regexp)
(org-outline-regexp-bol ...)) (outline-next-heading)) (point)))) (parent 
element)) (while t (if syncp (progn (cond ((= (point) pos) (throw (quote exit) 
parent))
((org-element--cache-interrupt-p time-limit) (throw (quote interrupt) nil))))) 
(if element nil (setq element (org-element--current-element end (quote element) 
mode
(org-element-property :structure parent))) (org-element-put-property element 
:parent parent) (org-element--cache-put element)) (let ((elem-end 
(org-element-property :end element))
(type (org-element-type element))) (cond ((and (<= elem-end pos) (/= 
(point-max) elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode 
type nil))) ((not (memq type
org-element-greater-elements)) (throw (quote exit) element)) ((let ((cbeg ...) 
(cend ...)) (if (or syncp ...) (progn ... ...)))) (t (throw (quote exit) 
element)))) (setq element nil)))
  (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find 
pos nil))) (begin (org-element-property :begin cached)) element next mode) 
(cond ((not cached) (if
(let* ((org-called-with-limited-levels t) (org-outline-regexp 
(org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) 
(org-outline-regexp-bol (concat "^"
org-outline-regexp))) (outline-previous-heading)) (progn (setq mode (quote 
planning)) (forward-line))) (skip-chars-forward "
        \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp 
(org-element-property :parent cached) cached))) ((re-search-backward (let* 
((org-called-with-limited-levels
t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp 
org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) 
org-outline-regexp-bol) begin
t) (forward-line) (skip-chars-forward "
        \n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up 
cached) (pos (if (= ... pos) (1- pos) pos))) (goto-char (or 
(org-element-property :contents-begin cached)
begin)) (while (let ((end ...)) (and (<= end pos) (goto-char end) (setq up 
...)))) (cond ((not up)) ((eobp) (setq element up)) (t (setq element up next 
(point))))))) (let ((end (or
(org-element-property :end element) (save-excursion (let* (... ... ... ...) 
(outline-next-heading)) (point)))) (parent element)) (while t (if syncp (progn 
(cond ((= ... pos) (throw
... parent)) ((org-element--cache-interrupt-p time-limit) (throw ... nil))))) 
(if element nil (setq element (org-element--current-element end (quote element) 
mode
(org-element-property :structure parent))) (org-element-put-property element 
:parent parent) (org-element--cache-put element)) (let ((elem-end 
(org-element-property :end element))
(type (org-element-type element))) (cond ((and (<= elem-end pos) (/= ... 
elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode type nil))) 
((not (memq type
org-element-greater-elements)) (throw (quote exit) element)) ((let (... ...) 
(if ... ...))) (t (throw (quote exit) element)))) (setq element nil))))
  (save-restriction (widen) (goto-char pos) (let* ((cached (and 
(org-element--cache-active-p) (org-element--cache-find pos nil))) (begin 
(org-element-property :begin cached))
element next mode) (cond ((not cached) (if (let* 
((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp 
org-outline-regexp) (org-outline-regexp-bol ...))
(outline-previous-heading)) (progn (setq mode (quote planning)) 
(forward-line))) (skip-chars-forward "
        \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp 
(org-element-property :parent cached) cached))) ((re-search-backward (let* 
((org-called-with-limited-levels
t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) 
(org-outline-regexp-bol ...)) org-outline-regexp-bol) begin t) (forward-line) 
(skip-chars-forward "
        \n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up 
cached) (pos (if ... ... pos))) (goto-char (or (org-element-property 
:contents-begin cached) begin)) (while
(let (...) (and ... ... ...))) (cond ((not up)) ((eobp) (setq element up)) (t 
(setq element up next ...)))))) (let ((end (or (org-element-property :end 
element) (save-excursion
(let* ... ...) (point)))) (parent element)) (while t (if syncp (progn (cond 
(... ...) (... ...)))) (if element nil (setq element 
(org-element--current-element end (quote element)
mode (org-element-property :structure parent))) (org-element-put-property 
element :parent parent) (org-element--cache-put element)) (let ((elem-end 
(org-element-property :end
element)) (type (org-element-type element))) (cond ((and ... ...) (goto-char 
elem-end) (setq mode ...)) ((not ...) (throw ... element)) ((let ... ...)) (t 
(throw ... element))))
(setq element nil)))))
  (save-excursion (save-restriction (widen) (goto-char pos) (let* ((cached (and 
(org-element--cache-active-p) (org-element--cache-find pos nil))) (begin 
(org-element-property
:begin cached)) element next mode) (cond ((not cached) (if (let* (... ... ... 
...) (outline-previous-heading)) (progn (setq mode ...) (forward-line))) 
(skip-chars-forward "
        \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp 
(org-element-property :parent cached) cached))) ((re-search-backward (let* (... 
... ... ...)
org-outline-regexp-bol) begin t) (forward-line) (skip-chars-forward "
        \n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up 
cached) (pos ...)) (goto-char (or ... begin)) (while (let ... ...)) (cond (...) 
(... ...) (t ...))))) (let
((end (or (org-element-property :end element) (save-excursion ... ...))) 
(parent element)) (while t (if syncp (progn (cond ... ...))) (if element nil 
(setq element
(org-element--current-element end ... mode ...)) (org-element-put-property 
element :parent parent) (org-element--cache-put element)) (let ((elem-end ...) 
(type ...)) (cond (... ...
...) (... ...) (...) (t ...))) (setq element nil))))))
  (catch (quote exit) (save-excursion (save-restriction (widen) (goto-char pos) 
(let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos 
nil))) (begin
(org-element-property :begin cached)) element next mode) (cond ((not cached) 
(if (let* ... ...) (progn ... ...)) (skip-chars-forward "
        \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp 
... cached))) ((re-search-backward (let* ... org-outline-regexp-bol) begin t) 
(forward-line)
(skip-chars-forward "
        \n") (beginning-of-line) (setq mode (quote planning))) (t (let (... 
...) (goto-char ...) (while ...) (cond ... ... ...)))) (let ((end (or ... ...)) 
(parent element)) (while t (if
syncp (progn ...)) (if element nil (setq element ...) (org-element-put-property 
element :parent parent) (org-element--cache-put element)) (let (... ...) (cond 
... ... ... ...))
(setq element nil)))))))
  org-element--parse-to(21)
  (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) 
(org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp 
org-outline-regexp) (org-outline-regexp-bol
(concat "^" org-outline-regexp))) (org-at-heading-p)) (beginning-of-line) 
(org-element-headline-parser (point-max) t)) (t (if 
(org-element--cache-active-p) (progn (if (not
org-element--cache) (org-element-cache-reset) (org-element--cache-sync 
(current-buffer) origin)))) (org-element--parse-to origin)))
  (let ((origin (point))) (end-of-line) (skip-chars-backward "
        \n") (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) 
(org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp 
org-outline-regexp)
(org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)) 
(beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if 
(org-element--cache-active-p)
(progn (if (not org-element--cache) (org-element-cache-reset) 
(org-element--cache-sync (current-buffer) origin)))) (org-element--parse-to 
origin))))
  (save-restriction (widen) (let ((origin (point))) (end-of-line) 
(skip-chars-backward "
        \n") (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) 
(org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp 
org-outline-regexp)
(org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)) 
(beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if 
(org-element--cache-active-p)
(progn (if (not org-element--cache) (org-element-cache-reset) 
(org-element--cache-sync ... origin)))) (org-element--parse-to origin)))))
  (save-excursion (save-restriction (widen) (let ((origin (point))) 
(end-of-line) (skip-chars-backward "
        \n") (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) 
(org-outline-regexp ...) (outline-regexp org-outline-regexp) 
(org-outline-regexp-bol ...)) (org-at-heading-p))
(beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if 
(org-element--cache-active-p) (progn (if ... ... ...))) (org-element--parse-to 
origin))))))
  org-element-at-point()
  (let ((element (org-element-at-point))) (if (eq (org-element-type element) 
(quote keyword)) (progn (let ((key (org-element-property :key element)) (value 
(org-element-property
:value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) 
(progn ...))) ((equal key "CATEGORY") (setq alist (cons ... alist))) ((equal 
key "COLUMNS") (setq alist
(cons ... alist))) ((equal key "CONSTANTS") (let* (... ...) (progn ...) (if 
constants ... ...))) ((equal key "FILETAGS") (if (org-string-nw-p value) (progn 
...))) ((equal key
"LINK") (if (string-match "\\`\\(\\S-+\\)[      ]+\\(.+\\)" value) (progn 
...))) ((equal key "PRIORITIES") (setq alist (cons ... alist))) ((equal key 
"PROPERTY") (if (string-match
"\\(\\S-+\\)[   ]+\\(.*\\)" value) (progn ...))) ((equal key "STARTUP") (let 
(...) (if startup ... ...))) ((equal key "TAGS") (let (...) (if tag-cell ... 
...))) ((member key (quote
...)) (let (... ...) (if todo ... ...))) ((equal key "SETUPFILE") (if 
buffer-read-only nil (let ... ...))))))))
  (while (re-search-forward regexp nil t) (let ((element 
(org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) 
(progn (let ((key (org-element-property :key
element)) (value (org-element-property :value element))) (cond ((equal key 
"ARCHIVE") (if ... ...)) ((equal key "CATEGORY") (setq alist ...)) ((equal key 
"COLUMNS") (setq alist
...)) ((equal key "CONSTANTS") (let* ... ... ...)) ((equal key "FILETAGS") (if 
... ...)) ((equal key "LINK") (if ... ...)) ((equal key "PRIORITIES") (setq 
alist ...)) ((equal key
"PROPERTY") (if ... ...)) ((equal key "STARTUP") (let ... ...)) ((equal key 
"TAGS") (let ... ...)) ((member key ...) (let ... ...)) ((equal key 
"SETUPFILE") (if buffer-read-only
nil ...))))))))
  (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let 
((element (org-element-at-point))) (if (eq (org-element-type element) (quote 
keyword)) (progn (let ((key
...) (value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... 
...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...))))))))
  (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) 
(while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) 
(if (eq
(org-element-type element) (quote keyword)) (progn (let (... ...) (cond ... ... 
... ... ... ... ... ... ... ... ... ...))))))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (let 
((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element 
(org-element-at-point))) (if
(eq (org-element-type element) (quote keyword)) (progn (let ... ...))))))))
  org--setup-collect-keywords("^[
]*#\\+\\(\\(?:ARCHIVE\\|C\\(?:ATEGORY\\|O\\(?:\\(?:LUMN\\|NSTANT\\)S\\)\\)\\|FILETAGS\\|LINK\\|PR\\(?:IORITIES\\|OPERTY\\)\\|S\\(?:E\\(?:Q_TODO\\|TUPFILE\\)\\|TARTUP\\)\\|T\\(?:AGS\\|\\(?:YP_T\\)?ODO\\)\\)\\):[
        ]*\\(.*\\)" 
("c:/Users/rainer/AppData/Roaming/org/GLOBAL_SETUP_DIPLAN.org") nil)
  (let ((major-mode (quote org-mode))) (org--setup-collect-keywords regexp 
(cons f files) alist))
  (setq alist (let ((major-mode (quote org-mode))) (org--setup-collect-keywords 
regexp (cons f files) alist)))
  (progn (insert-file-contents f) (setq alist (let ((major-mode (quote 
org-mode))) (org--setup-collect-keywords regexp (cons f files) alist))))
  (unwind-protect (progn (insert-file-contents f) (setq alist (let ((major-mode 
(quote org-mode))) (org--setup-collect-keywords regexp (cons f files) alist)))) 
(and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
(insert-file-contents f) (setq alist (let ((major-mode (quote org-mode))) 
(org--setup-collect-keywords regexp
(cons f files) alist)))) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents f) (setq 
alist (let ((major-mode
...)) (org--setup-collect-keywords regexp (cons f files) alist)))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (let ((temp-buffer (generate-new-buffer " *temp*"))) 
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
(insert-file-contents f) (setq alist (let (...)
(org--setup-collect-keywords regexp ... alist)))) (and (buffer-name 
temp-buffer) (kill-buffer temp-buffer))))))
  (if (and f (file-readable-p f) (not (member f files))) (progn (let 
((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect
(progn (insert-file-contents f) (setq alist (let ... ...))) (and (buffer-name 
temp-buffer) (kill-buffer temp-buffer)))))))
  (let ((f (and (org-string-nw-p value) (expand-file-name 
(org-remove-double-quotes value))))) (if (and f (file-readable-p f) (not 
(member f files))) (progn (let ((temp-buffer
(generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) 
(unwind-protect (progn (insert-file-contents f) (setq alist ...)) (and 
(buffer-name temp-buffer)
(kill-buffer temp-buffer))))))))
  (if buffer-read-only nil (let ((f (and (org-string-nw-p value) 
(expand-file-name (org-remove-double-quotes value))))) (if (and f 
(file-readable-p f) (not (member f files)))
(progn (let ((temp-buffer (generate-new-buffer " *temp*"))) 
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) 
(and ... ...))))))))
  (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) (progn (setq alist 
(cons (cons (quote archive) value) alist))))) ((equal key "CATEGORY") (setq 
alist (cons (cons (quote
category) value) alist))) ((equal key "COLUMNS") (setq alist (cons (cons (quote 
columns) value) alist))) ((equal key "CONSTANTS") (let* ((constants (assq 
(quote constants) alist))
(store (cdr constants))) (progn (let ((--dolist-tail-- (org-split-string 
value)) pair) (while --dolist-tail-- (setq pair (car --dolist-tail--)) (if 
(string-match
"^\\([a-zA-Z0][_a-zA-Z0-9]*\\)=\\(.*\\)" pair) (progn ...)) (setq 
--dolist-tail-- (cdr --dolist-tail--))))) (if constants (setcdr constants 
store) (setq alist (cons (cons (quote
constants) store) alist))))) ((equal key "FILETAGS") (if (org-string-nw-p 
value) (progn (let ((old (assq ... alist)) (new (apply ... ...))) (if old 
(setcdr old (append new ...))
(setq alist (cons ... alist))))))) ((equal key "LINK") (if (string-match 
"\\`\\(\\S-+\\)[       ]+\\(.+\\)" value) (progn (let ((links (assq ... alist)) 
(pair (cons ... ...))) (if links
(let* (...) (setcdr v ...)) (setq alist (cons ... alist))))))) ((equal key 
"PRIORITIES") (setq alist (cons (cons (quote priorities) (let ((prio ...)) (if 
(< ... 3) (quote ...)
(mapcar ... prio)))) alist))) ((equal key "PROPERTY") (if (string-match 
"\\(\\S-+\\)[   ]+\\(.*\\)" value) (progn (let* ((property (assq ... alist)) 
(value
(org--update-property-plist ... ... ...))) (if property (setcdr property value) 
(setq alist (cons ... alist))))))) ((equal key "STARTUP") (let ((startup (assq 
(quote startup)
alist))) (if startup (setcdr startup (append (cdr startup) (org-split-string 
value))) (setq alist (cons (cons (quote startup) (org-split-string value)) 
alist))))) ((equal key
"TAGS") (let ((tag-cell (assq (quote tags) alist))) (if tag-cell (setcdr 
tag-cell (append (cdr tag-cell) (quote ("\\n")) (org-split-string value))) 
(setq alist (cons (cons (quote
tags) (org-split-string value)) alist))))) ((member key (quote ("TODO" 
"SEQ_TODO" "TYP_TODO"))) (let ((todo (assq (quote todo) alist)) (value (cons 
(if (equal key "TYP_TODO")
(quote type) (quote sequence)) (org-split-string value)))) (if todo (let* ((v 
todo)) (setcdr v (cons value (cdr v)))) (setq alist (cons (list (quote todo) 
value) alist))))) ((equal
key "SETUPFILE") (if buffer-read-only nil (let ((f (and (org-string-nw-p value) 
(expand-file-name ...)))) (if (and f (file-readable-p f) (not (member f 
files))) (progn (let (...)
(save-current-buffer ... ...))))))))
  (let ((key (org-element-property :key element)) (value (org-element-property 
:value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) 
(progn (setq alist (cons
(cons ... value) alist))))) ((equal key "CATEGORY") (setq alist (cons (cons 
(quote category) value) alist))) ((equal key "COLUMNS") (setq alist (cons (cons 
(quote columns) value)
alist))) ((equal key "CONSTANTS") (let* ((constants (assq (quote constants) 
alist)) (store (cdr constants))) (progn (let ((--dolist-tail-- ...) pair) 
(while --dolist-tail-- (setq
pair ...) (if ... ...) (setq --dolist-tail-- ...)))) (if constants (setcdr 
constants store) (setq alist (cons (cons ... store) alist))))) ((equal key 
"FILETAGS") (if
(org-string-nw-p value) (progn (let ((old ...) (new ...)) (if old (setcdr old 
...) (setq alist ...)))))) ((equal key "LINK") (if (string-match 
"\\`\\(\\S-+\\)[         ]+\\(.+\\)" value)
(progn (let ((links ...) (pair ...)) (if links (let* ... ...) (setq alist 
...)))))) ((equal key "PRIORITIES") (setq alist (cons (cons (quote priorities) 
(let (...) (if ... ...
...))) alist))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)[         
]+\\(.*\\)" value) (progn (let* ((property ...) (value ...)) (if property 
(setcdr property value) (setq
alist ...)))))) ((equal key "STARTUP") (let ((startup (assq (quote startup) 
alist))) (if startup (setcdr startup (append (cdr startup) (org-split-string 
value))) (setq alist (cons
(cons ... ...) alist))))) ((equal key "TAGS") (let ((tag-cell (assq (quote 
tags) alist))) (if tag-cell (setcdr tag-cell (append (cdr tag-cell) (quote ...) 
(org-split-string
value))) (setq alist (cons (cons ... ...) alist))))) ((member key (quote 
("TODO" "SEQ_TODO" "TYP_TODO"))) (let ((todo (assq (quote todo) alist)) (value 
(cons (if ... ... ...)
(org-split-string value)))) (if todo (let* ((v todo)) (setcdr v (cons value 
...))) (setq alist (cons (list ... value) alist))))) ((equal key "SETUPFILE") 
(if buffer-read-only nil
(let ((f (and ... ...))) (if (and f (file-readable-p f) (not ...)) (progn (let 
... ...))))))))
  (progn (let ((key (org-element-property :key element)) (value 
(org-element-property :value element))) (cond ((equal key "ARCHIVE") (if 
(org-string-nw-p value) (progn (setq alist
(cons ... alist))))) ((equal key "CATEGORY") (setq alist (cons (cons (quote 
category) value) alist))) ((equal key "COLUMNS") (setq alist (cons (cons (quote 
columns) value) alist)))
((equal key "CONSTANTS") (let* ((constants (assq ... alist)) (store (cdr 
constants))) (progn (let (... pair) (while --dolist-tail-- ... ... ...))) (if 
constants (setcdr constants
store) (setq alist (cons ... alist))))) ((equal key "FILETAGS") (if 
(org-string-nw-p value) (progn (let (... ...) (if old ... ...))))) ((equal key 
"LINK") (if (string-match
"\\`\\(\\S-+\\)[        ]+\\(.+\\)" value) (progn (let (... ...) (if links ... 
...))))) ((equal key "PRIORITIES") (setq alist (cons (cons (quote priorities) 
(let ... ...)) alist)))
((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)[         ]+\\(.*\\)" 
value) (progn (let* (... ...) (if property ... ...))))) ((equal key "STARTUP") 
(let ((startup (assq ...
alist))) (if startup (setcdr startup (append ... ...)) (setq alist (cons ... 
alist))))) ((equal key "TAGS") (let ((tag-cell (assq ... alist))) (if tag-cell 
(setcdr tag-cell (append
... ... ...)) (setq alist (cons ... alist))))) ((member key (quote ("TODO" 
"SEQ_TODO" "TYP_TODO"))) (let ((todo (assq ... alist)) (value (cons ... ...))) 
(if todo (let* (...)
(setcdr v ...)) (setq alist (cons ... alist))))) ((equal key "SETUPFILE") (if 
buffer-read-only nil (let ((f ...)) (if (and f ... ...) (progn ...))))))))
  (if (eq (org-element-type element) (quote keyword)) (progn (let ((key 
(org-element-property :key element)) (value (org-element-property :value 
element))) (cond ((equal key
"ARCHIVE") (if (org-string-nw-p value) (progn (setq alist ...)))) ((equal key 
"CATEGORY") (setq alist (cons (cons ... value) alist))) ((equal key "COLUMNS") 
(setq alist (cons (cons
... value) alist))) ((equal key "CONSTANTS") (let* ((constants ...) (store 
...)) (progn (let ... ...)) (if constants (setcdr constants store) (setq alist 
...)))) ((equal key
"FILETAGS") (if (org-string-nw-p value) (progn (let ... ...)))) ((equal key 
"LINK") (if (string-match "\\`\\(\\S-+\\)[  ]+\\(.+\\)" value) (progn (let ... 
...)))) ((equal key
"PRIORITIES") (setq alist (cons (cons ... ...) alist))) ((equal key "PROPERTY") 
(if (string-match "\\(\\S-+\\)[         ]+\\(.*\\)" value) (progn (let* ... 
...)))) ((equal key "STARTUP")
(let ((startup ...)) (if startup (setcdr startup ...) (setq alist ...)))) 
((equal key "TAGS") (let ((tag-cell ...)) (if tag-cell (setcdr tag-cell ...) 
(setq alist ...)))) ((member
key (quote ("TODO" "SEQ_TODO" "TYP_TODO"))) (let ((todo ...) (value ...)) (if 
todo (let* ... ...) (setq alist ...)))) ((equal key "SETUPFILE") (if 
buffer-read-only nil (let (...)
(if ... ...))))))))
  (let ((element (org-element-at-point))) (if (eq (org-element-type element) 
(quote keyword)) (progn (let ((key (org-element-property :key element)) (value 
(org-element-property
:value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) 
(progn ...))) ((equal key "CATEGORY") (setq alist (cons ... alist))) ((equal 
key "COLUMNS") (setq alist
(cons ... alist))) ((equal key "CONSTANTS") (let* (... ...) (progn ...) (if 
constants ... ...))) ((equal key "FILETAGS") (if (org-string-nw-p value) (progn 
...))) ((equal key
"LINK") (if (string-match "\\`\\(\\S-+\\)[      ]+\\(.+\\)" value) (progn 
...))) ((equal key "PRIORITIES") (setq alist (cons ... alist))) ((equal key 
"PROPERTY") (if (string-match
"\\(\\S-+\\)[   ]+\\(.*\\)" value) (progn ...))) ((equal key "STARTUP") (let 
(...) (if startup ... ...))) ((equal key "TAGS") (let (...) (if tag-cell ... 
...))) ((member key (quote
...)) (let (... ...) (if todo ... ...))) ((equal key "SETUPFILE") (if 
buffer-read-only nil (let ... ...))))))))
  (while (re-search-forward regexp nil t) (let ((element 
(org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) 
(progn (let ((key (org-element-property :key
element)) (value (org-element-property :value element))) (cond ((equal key 
"ARCHIVE") (if ... ...)) ((equal key "CATEGORY") (setq alist ...)) ((equal key 
"COLUMNS") (setq alist
...)) ((equal key "CONSTANTS") (let* ... ... ...)) ((equal key "FILETAGS") (if 
... ...)) ((equal key "LINK") (if ... ...)) ((equal key "PRIORITIES") (setq 
alist ...)) ((equal key
"PROPERTY") (if ... ...)) ((equal key "STARTUP") (let ... ...)) ((equal key 
"TAGS") (let ... ...)) ((member key ...) (let ... ...)) ((equal key 
"SETUPFILE") (if buffer-read-only
nil ...))))))))
  (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let 
((element (org-element-at-point))) (if (eq (org-element-type element) (quote 
keyword)) (progn (let ((key
...) (value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... 
...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...))))))))
  (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) 
(while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) 
(if (eq
(org-element-type element) (quote keyword)) (progn (let (... ...) (cond ... ... 
... ... ... ... ... ... ... ... ... ...))))))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (let 
((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element 
(org-element-at-point))) (if
(eq (org-element-type element) (quote keyword)) (progn (let ... ...))))))))
  org--setup-collect-keywords("^[
]*#\\+\\(\\(?:ARCHIVE\\|C\\(?:ATEGORY\\|O\\(?:\\(?:LUMN\\|NSTANT\\)S\\)\\)\\|FILETAGS\\|LINK\\|PR\\(?:IORITIES\\|OPERTY\\)\\|S\\(?:E\\(?:Q_TODO\\|TUPFILE\\)\\|TARTUP\\)\\|T\\(?:AGS\\|\\(?:YP_T\\)?ODO\\)\\)\\):[
        ]*\\(.*\\)")
  (let ((alist (org--setup-collect-keywords (org-make-options-regexp (append 
(quote ("FILETAGS" "TAGS" "SETUPFILE")) (and (not tags-only) (quote ...))))))) 
(org--setup-process-tags
(cdr (assq (quote tags) alist)) (cdr (assq (quote filetags) alist))) (if 
tags-only nil (org-set-local (quote org-file-properties) (cdr (assq (quote 
property) alist))) (let
((archive (cdr (assq (quote archive) alist)))) (if archive (progn 
(org-set-local (quote org-archive-location) archive)))) (let ((cat 
(org-string-nw-p (cdr (assq ... alist))))) (if
cat (progn (org-set-local (quote org-category) (intern cat)) (org-set-local 
(quote org-file-properties) (org--update-property-plist "CATEGORY" cat 
org-file-properties))))) (let
((column (cdr (assq (quote columns) alist)))) (if column (progn (org-set-local 
(quote org-columns-default-format) column)))) (setq 
org-table-formula-constants-local (cdr (assq
(quote constants) alist))) (let ((links (cdr (assq (quote link) alist)))) (if 
links (progn (setq org-link-abbrev-alist-local (nreverse links))))) (let 
((priorities (cdr (assq
(quote priorities) alist)))) (if priorities (progn (org-set-local (quote 
org-highest-priority) (nth 0 priorities)) (org-set-local (quote 
org-lowest-priority) (nth 1 priorities))
(org-set-local (quote org-default-priority) (nth 2 priorities))))) (let 
((startup (cdr (assq (quote startup) alist)))) (progn (let ((--dolist-tail-- 
startup) option) (while
--dolist-tail-- (setq option (car --dolist-tail--)) (let (...) (if entry ...)) 
(setq --dolist-tail-- (cdr --dolist-tail--)))))) (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) (let ((todo-sequences
(or (nreverse (cdr ...)) (let (...) (if ... d ...))))) (progn (let 
((--dolist-tail-- todo-sequences) sequence) (while --dolist-tail-- (setq 
sequence (car --dolist-tail--)) (let*
(... ... ... ... names alist) (progn ...) (let* ... ... ... ... ... ... ...)) 
(setq --dolist-tail-- (cdr --dolist-tail--)))))) (setq org-todo-sets (nreverse 
org-todo-sets)
org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil 
(mapcar (function 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 (last org-todo-keywords-1)))) (setq org-not-done-keywords 
(org-delete-all
org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp 
(regexp-opt org-todo-keywords-1 t) org-not-done-regexp (regexp-opt 
org-not-done-keywords t)
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-compute-latex-and-related-regexp)))
  (progn (let ((alist (org--setup-collect-keywords (org-make-options-regexp 
(append (quote ...) (and ... ...)))))) (org--setup-process-tags (cdr (assq 
(quote tags) alist)) (cdr
(assq (quote filetags) alist))) (if tags-only nil (org-set-local (quote 
org-file-properties) (cdr (assq (quote property) alist))) (let ((archive (cdr 
(assq ... alist)))) (if
archive (progn (org-set-local (quote org-archive-location) archive)))) (let 
((cat (org-string-nw-p (cdr ...)))) (if cat (progn (org-set-local (quote 
org-category) (intern cat))
(org-set-local (quote org-file-properties) (org--update-property-plist 
"CATEGORY" cat org-file-properties))))) (let ((column (cdr (assq ... alist)))) 
(if column (progn
(org-set-local (quote org-columns-default-format) column)))) (setq 
org-table-formula-constants-local (cdr (assq (quote constants) alist))) (let 
((links (cdr (assq ... alist)))) (if
links (progn (setq org-link-abbrev-alist-local (nreverse links))))) (let 
((priorities (cdr (assq ... alist)))) (if priorities (progn (org-set-local 
(quote org-highest-priority)
(nth 0 priorities)) (org-set-local (quote org-lowest-priority) (nth 1 
priorities)) (org-set-local (quote org-default-priority) (nth 2 priorities))))) 
(let ((startup (cdr (assq ...
alist)))) (progn (let ((--dolist-tail-- startup) option) (while --dolist-tail-- 
(setq option ...) (let ... ...) (setq --dolist-tail-- ...))))) (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)
(let ((todo-sequences (or (nreverse ...) (let ... ...)))) (progn (let 
((--dolist-tail-- todo-sequences) sequence) (while --dolist-tail-- (setq 
sequence ...) (let* ... ... ...)
(setq --dolist-tail-- ...))))) (setq org-todo-sets (nreverse org-todo-sets) 
org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil 
(mapcar (function 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 (last
org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all 
org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp 
(regexp-opt org-todo-keywords-1 t)
org-not-done-regexp (regexp-opt org-not-done-keywords t) 
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-compute-latex-and-related-regexp))))
  (if (derived-mode-p (quote org-mode)) (progn (let ((alist 
(org--setup-collect-keywords (org-make-options-regexp (append ... ...))))) 
(org--setup-process-tags (cdr (assq (quote
tags) alist)) (cdr (assq (quote filetags) alist))) (if tags-only nil 
(org-set-local (quote org-file-properties) (cdr (assq (quote property) alist))) 
(let ((archive (cdr ...))) (if
archive (progn (org-set-local ... archive)))) (let ((cat (org-string-nw-p 
...))) (if cat (progn (org-set-local ... ...) (org-set-local ... ...)))) (let 
((column (cdr ...))) (if
column (progn (org-set-local ... column)))) (setq 
org-table-formula-constants-local (cdr (assq (quote constants) alist))) (let 
((links (cdr ...))) (if links (progn (setq
org-link-abbrev-alist-local ...)))) (let ((priorities (cdr ...))) (if 
priorities (progn (org-set-local ... ...) (org-set-local ... ...) 
(org-set-local ... ...)))) (let ((startup
(cdr ...))) (progn (let (... option) (while --dolist-tail-- ... ... ...)))) 
(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) (let ((todo-sequences (or ... ...))) (progn (let (... 
sequence) (while
--dolist-tail-- ... ... ...)))) (setq org-todo-sets (nreverse org-todo-sets) 
org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil 
(mapcar (function 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 (last
org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all 
org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp 
(regexp-opt org-todo-keywords-1 t)
org-not-done-regexp (regexp-opt org-not-done-keywords t) 
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-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) 
(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 "\"") (modify-syntax-entry 
92 "_") (modify-syntax-entry 126 "_") (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-element-cache-reset)
(org-set-local (quote beginning-of-defun-function) (quote 
org-backward-element)) (org-set-local (quote end-of-defun-function) (function 
(lambda nil (if (not (org-at-heading-p))
(org-forward-element) (org-forward-element) (forward-char -1))))) 
(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)) ...)
  (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) (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 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 
126 "_") (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-element-cache-reset) (org-set-local (quote 
beginning-of-defun-function)
(quote org-backward-element)) (org-set-local (quote end-of-defun-function) 
(function (lambda nil (if (not (org-at-heading-p)) (org-forward-element) 
(org-forward-element)
(forward-char -1))))) (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)) ...))
  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 Projectmanagement.org> 
"~/org/DIPLAN/Projectmanagement.org" nil nil 
"~/org/DIPLAN/Projectmanagement.org" ((65536 0 . 58137) (39125 . 52227)))
  find-file-noselect("~/org/DIPLAN/Projectmanagement.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/Projectmanagement.org")
  (set-buffer (org-get-agenda-file-buffer file))
  (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer 
(org-get-agenda-file-buffer file)))
  (catch (quote nextfile) (if (bufferp file) (set-buffer file) 
(org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) 
(widen) (org-set-regexps-and-options
(quote tags-only)) (setq pos (point)) (or (memq (quote category) 
org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 
(quote stats)
org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote 
effort) org-agenda-ignore-properties) (org-refresh-effort-properties)) (or 
(memq (quote appt)
org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote 
org-appt-warntime))) (setq org-todo-keywords-for-agenda (append 
org-todo-keywords-for-agenda
org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append 
org-done-keywords-for-agenda org-done-keywords)) (setq 
org-todo-keyword-alist-for-agenda (append
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda 
org-tag-alist org-tag-persistent-alist))) (if
org-group-tags (setq org-tag-groups-alist-for-agenda (org-uniquify-alist 
(append org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* 
((modified (buffer-modified-p))
(buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) 
deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn 
(save-excursion
(remove-text-properties (point-min) (point-max) pall) (if 
org-agenda-skip-archived-trees (progn (goto-char ...) (while ... ...))) 
(goto-char (point-min)) (setq re (format "^\\*
.*\\<%s\\>" org-comment-string)) (while (re-search-forward re nil t) (if (let 
... ...) (progn ...))))) (if modified nil (restore-buffer-modified-p nil)))) 
(goto-char pos))
  (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote 
nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) 
(set-buffer
(org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options (quote 
tags-only)) (setq pos (point)) (or (memq (quote category) 
org-agenda-ignore-properties)
(org-refresh-category-properties)) (or (memq (quote stats) 
org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote 
effort) org-agenda-ignore-properties)
(org-refresh-effort-properties)) (or (memq (quote appt) 
org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote 
org-appt-warntime))) (setq
org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda 
org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append 
org-done-keywords-for-agenda org-done-keywords))
(setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist (append 
org-tag-groups-alist-for-agenda
org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) 
(buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) 
deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion 
(remove-text-properties (point-min) (point-max) pall) (if 
org-agenda-skip-archived-trees (progn ... ...)) (goto-char
(point-min)) (setq re (format "^\\* .*\\<%s\\>" org-comment-string)) (while 
(re-search-forward re nil t) (if ... ...)))) (if modified nil 
(restore-buffer-modified-p nil))))
(goto-char pos)))
  (save-restriction (while (setq file (car (prog1 files (setq files (cdr 
files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) 
(org-check-agenda-file file)
(set-buffer (org-get-agenda-file-buffer file))) (widen) 
(org-set-regexps-and-options (quote tags-only)) (setq pos (point)) (or (memq 
(quote category) org-agenda-ignore-properties)
(org-refresh-category-properties)) (or (memq (quote stats) 
org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote 
effort) org-agenda-ignore-properties)
(org-refresh-effort-properties)) (or (memq (quote appt) 
org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote 
org-appt-warntime))) (setq
org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda 
org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append 
org-done-keywords-for-agenda org-done-keywords))
(setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist (append 
org-tag-groups-alist-for-agenda
org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) 
(buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) 
deactivate-mark buffer-file-name
buffer-file-truename) (unwind-protect (progn (save-excursion 
(remove-text-properties ... ... pall) (if org-agenda-skip-archived-trees ...) 
(goto-char ...) (setq re ...) (while ...
...))) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos))))
  (save-excursion (save-restriction (while (setq file (car (prog1 files (setq 
files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer 
file)
(org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) 
(widen) (org-set-regexps-and-options (quote tags-only)) (setq pos (point)) (or 
(memq (quote category)
org-agenda-ignore-properties) (org-refresh-category-properties)) (or (memq 
(quote stats) org-agenda-ignore-properties) (org-refresh-stats-properties)) (or 
(memq (quote effort)
org-agenda-ignore-properties) (org-refresh-effort-properties)) (or (memq (quote 
appt) org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" 
(quote
org-appt-warntime))) (setq org-todo-keywords-for-agenda (append 
org-todo-keywords-for-agenda org-todo-keywords-1)) (setq 
org-done-keywords-for-agenda (append
org-done-keywords-for-agenda org-done-keywords)) (setq 
org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda 
org-todo-key-alist)) (setq
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda 
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda
(org-uniquify-alist (append org-tag-groups-alist-for-agenda 
org-tag-groups-alist)))) (let* ((modified (buffer-modified-p)) 
(buffer-undo-list t) (inhibit-read-only t)
(inhibit-modification-hooks t) deactivate-mark buffer-file-name 
buffer-file-truename) (unwind-protect (progn (save-excursion ... ... ... ... 
...)) (if modified nil
(restore-buffer-modified-p nil)))) (goto-char pos)))))
  (let ((pa (quote (:org-archived t))) (pc (quote (:org-comment t))) (pall 
(quote (:org-archived t :org-comment t))) (inhibit-read-only t) 
(org-inhibit-startup
org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")) file re pos) 
(setq org-tag-alist-for-agenda nil org-tag-groups-alist-for-agenda nil) 
(save-excursion
(save-restriction (while (setq file (car (prog1 files (setq files ...)))) 
(catch (quote nextfile) (if (bufferp file) (set-buffer file) 
(org-check-agenda-file file) (set-buffer
(org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options (quote 
tags-only)) (setq pos (point)) (or (memq (quote category) 
org-agenda-ignore-properties)
(org-refresh-category-properties)) (or (memq (quote stats) 
org-agenda-ignore-properties) (org-refresh-stats-properties)) (or (memq (quote 
effort) org-agenda-ignore-properties)
(org-refresh-effort-properties)) (or (memq (quote appt) 
org-agenda-ignore-properties) (org-refresh-properties "APPT_WARNTIME" (quote 
org-appt-warntime))) (setq
org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda 
org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append 
org-done-keywords-for-agenda org-done-keywords))
(setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist ...))) (let* ((modified 
...) (buffer-undo-list t)
(inhibit-read-only t) (inhibit-modification-hooks t) deactivate-mark 
buffer-file-name buffer-file-truename) (unwind-protect (progn ...) (if modified 
nil ...))) (goto-char pos)))))
(setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) 
(setq org-todo-keyword-alist-for-agenda (org-uniquify 
org-todo-keyword-alist-for-agenda)))
  org-agenda-prepare-buffers(("~/org/DIPLAN/Projectmanagement.org" 
"~/org/DIPLAN/AL.org" "~/org/DIPLAN/AEM.org" "~/org/DIPLAN/BECOM.org" 
"~/org/DIPLAN/DIPLAN.org"
"~/org/DIPLAN/Jenoptik.org" "~/org/DIPLAN/Komitec.org" 
"~/org/DIPLAN/Lenzing.org" "~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics 
Fortbildung etc.org"
"~/org/DIPLAN/Livaenergy.org" "~/org/DIPLAN/Molex.org" 
"~/org/DIPLAN/Seuffer.org" "~/org/DIPLAN/Stoll.org" 
"~/org/DIPLAN/Technokom.org" "~/org/DIPLAN/UBMED.org"))
  (if org-agenda-multi (progn (setq buffer-read-only nil) (goto-char 
(point-max)) (if (or (bobp) org-agenda-compact-blocks (not 
org-agenda-block-separator)) nil (insert "\n" (if
(stringp org-agenda-block-separator) org-agenda-block-separator (make-string 
(window-width) org-agenda-block-separator)) "\n")) (narrow-to-region (point) 
(point-max))) (setq
org-done-keywords-for-agenda nil) (org-agenda-prepare-window (get-buffer-create 
org-agenda-buffer-name) filter-alist) (setq buffer-read-only nil) 
(org-agenda-reset-markers) (let
((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq 
org-agenda-buffer (current-buffer)) (setq org-agenda-contributing-files nil) 
(setq org-agenda-columns-active nil)
(org-agenda-prepare-buffers (org-agenda-files nil (quote ifmode))) (setq 
org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq
org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (setq 
org-agenda-last-prefix-arg current-prefix-arg) (setq org-agenda-this-buffer-name
org-agenda-buffer-name) (and name (not org-agenda-name) (org-set-local (quote 
org-agenda-name) name)))
  (if (org-agenda-use-sticky-p) (progn (put (quote org-agenda-tag-filter) 
:preset-filter nil) (put (quote org-agenda-category-filter) :preset-filter nil) 
(put (quote
org-agenda-regexp-filter) :preset-filter nil) (org-agenda-prepare-window 
(get-buffer org-agenda-buffer-name) filter-alist) (message "Sticky Agenda 
buffer, use `r' to refresh") (or
org-agenda-multi (org-agenda-fit-window-to-buffer)) (throw (quote exit) "Sticky 
Agenda buffer, use `r' to refresh")) (setq org-todo-keywords-for-agenda nil) 
(put (quote
org-agenda-tag-filter) :preset-filter org-agenda-tag-filter-preset) (put (quote 
org-agenda-category-filter) :preset-filter org-agenda-category-filter-preset) 
(put (quote
org-agenda-regexp-filter) :preset-filter org-agenda-regexp-filter-preset) (put 
(quote org-agenda-effort-filter) :preset-filter 
org-agenda-effort-filter-preset) (if org-agenda-multi
(progn (setq buffer-read-only nil) (goto-char (point-max)) (if (or (bobp) 
org-agenda-compact-blocks (not org-agenda-block-separator)) nil (insert "\n" 
(if (stringp
org-agenda-block-separator) org-agenda-block-separator (make-string 
(window-width) org-agenda-block-separator)) "\n")) (narrow-to-region (point) 
(point-max))) (setq
org-done-keywords-for-agenda nil) (org-agenda-prepare-window (get-buffer-create 
org-agenda-buffer-name) filter-alist) (setq buffer-read-only nil) 
(org-agenda-reset-markers) (let
((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq 
org-agenda-buffer (current-buffer)) (setq org-agenda-contributing-files nil) 
(setq org-agenda-columns-active nil)
(org-agenda-prepare-buffers (org-agenda-files nil (quote ifmode))) (setq 
org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq
org-done-keywords-for-agenda (org-uniquify org-done-keywords-for-agenda)) (setq 
org-agenda-last-prefix-arg current-prefix-arg) (setq org-agenda-this-buffer-name
org-agenda-buffer-name) (and name (not org-agenda-name) (org-set-local (quote 
org-agenda-name) name))) (setq buffer-read-only nil))
  (let ((filter-alist (if org-agenda-persistent-filter (list (cons (quote tag) 
org-agenda-tag-filter) (cons (quote re) org-agenda-regexp-filter) (cons (quote 
effort)
org-agenda-effort-filter) (cons (quote car) org-agenda-category-filter))))) (if 
(org-agenda-use-sticky-p) (progn (put (quote org-agenda-tag-filter) 
:preset-filter nil) (put (quote
org-agenda-category-filter) :preset-filter nil) (put (quote 
org-agenda-regexp-filter) :preset-filter nil) (org-agenda-prepare-window 
(get-buffer org-agenda-buffer-name)
filter-alist) (message "Sticky Agenda buffer, use `r' to refresh") (or 
org-agenda-multi (org-agenda-fit-window-to-buffer)) (throw (quote exit) "Sticky 
Agenda buffer, use `r' to
refresh")) (setq org-todo-keywords-for-agenda nil) (put (quote 
org-agenda-tag-filter) :preset-filter org-agenda-tag-filter-preset) (put (quote 
org-agenda-category-filter)
:preset-filter org-agenda-category-filter-preset) (put (quote 
org-agenda-regexp-filter) :preset-filter org-agenda-regexp-filter-preset) (put 
(quote org-agenda-effort-filter)
:preset-filter org-agenda-effort-filter-preset) (if org-agenda-multi (progn 
(setq buffer-read-only nil) (goto-char (point-max)) (if (or (bobp) 
org-agenda-compact-blocks (not
org-agenda-block-separator)) nil (insert "\n" (if (stringp 
org-agenda-block-separator) org-agenda-block-separator (make-string ... 
org-agenda-block-separator)) "\n"))
(narrow-to-region (point) (point-max))) (setq org-done-keywords-for-agenda nil) 
(org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name) 
filter-alist) (setq
buffer-read-only nil) (org-agenda-reset-markers) (let ((inhibit-read-only t)) 
(erase-buffer)) (org-agenda-mode) (setq org-agenda-buffer (current-buffer)) 
(setq
org-agenda-contributing-files nil) (setq org-agenda-columns-active nil) 
(org-agenda-prepare-buffers (org-agenda-files nil (quote ifmode))) (setq 
org-todo-keywords-for-agenda
(org-uniquify org-todo-keywords-for-agenda)) (setq org-done-keywords-for-agenda 
(org-uniquify org-done-keywords-for-agenda)) (setq org-agenda-last-prefix-arg 
current-prefix-arg)
(setq org-agenda-this-buffer-name org-agenda-buffer-name) (and name (not 
org-agenda-name) (org-set-local (quote org-agenda-name) name))) (setq 
buffer-read-only nil)))
  org-agenda-prepare("TODO")
  (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name (if 
(stringp org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or 
org-keys "t")
org-select-this-todo-keyword) (format "*Org Agenda(%s)*" (or org-keys "t"))))) 
(org-agenda-prepare "TODO") (org-compile-prefix-format (quote todo)) 
(org-set-sorting-strategy (quote
todo)) (setq org-agenda-redo-command (list (quote org-todo-list) (list (quote 
or) (quote (and (numberp current-prefix-arg) current-prefix-arg)) 
org-select-this-todo-keyword (quote
current-prefix-arg) arg))) (setq files (org-agenda-files nil (quote ifmode)) 
rtnall nil) (while (setq file (car (prog1 files (setq files (cdr files))))) 
(catch (quote nextfile)
(org-check-agenda-file file) (setq rtn (org-agenda-get-day-entries file date 
:todo)) (setq rtnall (append rtnall rtn)))) (if org-agenda-overriding-header 
(insert (org-add-props
(copy-sequence org-agenda-overriding-header) nil (quote face) (quote 
org-agenda-structure)) "\n") (insert "Global list of TODO items of type: ") 
(add-text-properties (point-min)
(1- (point)) (list (quote face) (quote org-agenda-structure) (quote 
short-heading) (concat "ToDo: " (or org-select-this-todo-keyword "ALL")))) 
(org-agenda-mark-header-line
(point-min)) (insert (org-agenda-propertize-selected-todo-keywords 
org-select-this-todo-keyword)) (setq pos (point)) (if org-agenda-multi nil 
(insert "Available with `N r':
(0)[ALL]") (let ((n 0) s) (mapc (function (lambda (x) (setq s ...) (if ... ...) 
(insert " " s))) kwds)) (insert "\n")) (add-text-properties pos (1- (point)) 
(list (quote face)
(quote org-agenda-structure)))) (org-agenda-mark-header-line (point-min)) (if 
rtnall (progn (insert (org-agenda-finalize-entries rtnall (quote todo)) "\n"))) 
(goto-char
(point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) 
(add-text-properties (point-min) (point-max) (list (quote org-agenda-type) 
(quote todo) (quote org-last-args)
arg (quote org-redo-cmd) org-agenda-redo-command (quote org-series-cmd) 
org-cmd)) (org-agenda-finalize) (setq buffer-read-only t))
  (let* ((today (org-today)) (date (calendar-gregorian-from-absolute today)) 
(kwds org-todo-keywords-for-agenda) (completion-ignore-case t) 
(org-select-this-todo-keyword (if
(stringp arg) arg (and arg (integerp arg) (> arg 0) (nth (1- arg) kwds)))) rtn 
rtnall files file pos) (if (equal arg (quote (4))) (progn (setq 
org-select-this-todo-keyword
(org-icompleting-read "Keyword (or KWD1|K2D2|...): " (mapcar (quote list) kwds) 
nil nil)))) (and (equal 0 arg) (setq org-select-this-todo-keyword nil)) (catch 
(quote exit) (if
org-agenda-sticky (setq org-agenda-buffer-name (if (stringp 
org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or org-keys "t") 
org-select-this-todo-keyword) (format
"*Org Agenda(%s)*" (or org-keys "t"))))) (org-agenda-prepare "TODO") 
(org-compile-prefix-format (quote todo)) (org-set-sorting-strategy (quote 
todo)) (setq org-agenda-redo-command
(list (quote org-todo-list) (list (quote or) (quote (and (numberp 
current-prefix-arg) current-prefix-arg)) org-select-this-todo-keyword (quote 
current-prefix-arg) arg))) (setq
files (org-agenda-files nil (quote ifmode)) rtnall nil) (while (setq file (car 
(prog1 files (setq files (cdr files))))) (catch (quote nextfile) 
(org-check-agenda-file file) (setq
rtn (org-agenda-get-day-entries file date :todo)) (setq rtnall (append rtnall 
rtn)))) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) 
"\n") (insert "Global list of TODO items of type: ") (add-text-properties 
(point-min) (1- (point))
(list (quote face) (quote org-agenda-structure) (quote short-heading) (concat 
"ToDo: " (or org-select-this-todo-keyword "ALL")))) 
(org-agenda-mark-header-line (point-min)) (insert
(org-agenda-propertize-selected-todo-keywords org-select-this-todo-keyword)) 
(setq pos (point)) (if org-agenda-multi nil (insert "Available with `N r': 
(0)[ALL]") (let ((n 0) s)
(mapc (function (lambda ... ... ... ...)) kwds)) (insert "\n")) 
(add-text-properties pos (1- (point)) (list (quote face) (quote 
org-agenda-structure))))
(org-agenda-mark-header-line (point-min)) (if rtnall (progn (insert 
(org-agenda-finalize-entries rtnall (quote todo)) "\n"))) (goto-char 
(point-min)) (or org-agenda-multi
(org-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-max) 
(list (quote org-agenda-type) (quote todo) (quote org-last-args) arg (quote 
org-redo-cmd)
org-agenda-redo-command (quote org-series-cmd) org-cmd)) (org-agenda-finalize) 
(setq buffer-read-only t)))
  org-todo-list(nil)
  call-interactively(org-todo-list)
  (cond ((setq entry (assoc org-keys org-agenda-custom-commands)) (if (or 
(symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 
entry) org-match (eval (nth 3
entry)) lprops (nth 4 entry)) (if org-agenda-sticky (setq 
org-agenda-buffer-name (or (and ... ...) (format "*Org Agenda(%s)*" 
org-keys)))) (put (quote org-agenda-redo-command)
(quote org-lprops) lprops) (cond ((eq type (quote agenda)) (org-let lprops 
(quote ...))) ((eq type (quote agenda*)) (org-let lprops (quote ...))) ((eq 
type (quote alltodo))
(org-let lprops (quote ...))) ((eq type (quote search)) (org-let lprops (quote 
...))) ((eq type (quote stuck)) (org-let lprops (quote ...))) ((eq type (quote 
tags)) (org-let lprops
(quote ...))) ((eq type (quote tags-todo)) (org-let lprops (quote ...))) ((eq 
type (quote todo)) (org-let lprops (quote ...))) ((eq type (quote tags-tree)) 
(org-check-for-org-mode)
(org-let lprops (quote ...))) ((eq type (quote todo-tree)) 
(org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type (quote 
occur-tree)) (org-check-for-org-mode) (org-let
lprops (quote ...))) ((functionp type) (org-let lprops (quote ...))) ((fboundp 
type) (org-let lprops (quote ...))) (t (user-error "Invalid custom agenda 
command type %s" type))))
(org-agenda-run-series (nth 1 entry) (cddr entry)))) ((equal org-keys "C") 
(setq org-agenda-custom-commands org-agenda-custom-commands-orig) 
(customize-variable (quote
org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively (quote 
org-agenda-list))) ((equal org-keys "s") (call-interactively (quote 
org-search-view))) ((equal
org-keys "S") (org-call-with-arg (quote org-search-view) (or arg (quote (4))))) 
((equal org-keys "t") (call-interactively (quote org-todo-list))) ((equal 
org-keys "T")
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal 
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote
org-tags-view) (or arg (quote (4))))) ((equal org-keys "e") (call-interactively 
(quote org-store-agenda-views))) ((equal org-keys "?") (org-tags-view nil 
"+FLAGGED") (org-add-hook
(quote post-command-hook) (function (lambda nil (if (current-message) nil (let* 
(... ...) (if note ...))))) t t)) ((equal org-keys "L") (if (derived-mode-p 
(quote org-mode)) nil
(user-error "This is not an Org-mode file")) (if restriction nil (put (quote 
org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg (quote 
org-timeline) arg)))
((equal org-keys "#") (call-interactively (quote 
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively 
(quote org-occur-in-agenda-files))) ((equal org-keys
"!") (customize-variable (quote org-stuck-projects))) (t (user-error "Invalid 
agenda key")))
  (let* ((prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name) 
org-agenda-buffer-name) (quote current-window)
org-agenda-window-setup)) (org-agenda-custom-commands-orig 
org-agenda-custom-commands) (org-agenda-custom-commands (delq nil (mapcar 
(function (lambda (x) (cond ... ... ... ...)))
org-agenda-custom-commands))) (org-agenda-custom-commands 
(org-contextualize-keys org-agenda-custom-commands 
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans) 
(if org-agenda-overriding-restriction nil (if (and (boundp (quote
org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file-list) 
nil (put (quote org-agenda-files) (quote org-restrict) nil)) (setq 
org-agenda-restrict nil)
(move-marker org-agenda-restrict-begin nil) (move-marker 
org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote 
org-lprops) nil) (put (quote
org-agenda-redo-command) (quote last-args) nil) (setq 
org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil (setq ans 
(org-agenda-get-restriction-and-command
prefix-descriptions) org-keys (car ans) restriction (cdr ans))) (if 
org-agenda-sticky (setq org-agenda-buffer-name (format "*Org Agenda(%s)*" 
org-keys))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote 
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction 
(quote region)) (setq
org-agenda-restrict (current-buffer)) (move-marker org-agenda-restrict-begin 
(region-beginning)) (move-marker org-agenda-restrict-end (region-end))) ((eq 
restriction (quote
subtree)) (save-excursion (setq org-agenda-restrict (current-buffer)) 
(org-back-to-heading t) (move-marker org-agenda-restrict-begin (point)) 
(move-marker org-agenda-restrict-end
(progn ...))))))) (cond ((setq entry (assoc org-keys 
org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2 
entry))) (progn (setq type (nth 2 entry)
org-match (eval (nth 3 entry)) lprops (nth 4 entry)) (if org-agenda-sticky 
(setq org-agenda-buffer-name (or ... ...))) (put (quote 
org-agenda-redo-command) (quote org-lprops)
lprops) (cond ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let 
lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) (org-let 
lprops ...)) ((eq type ...)
(org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) 
(org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...) 
(org-check-for-org-mode)
(org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops 
...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops ...)) ((functionp 
type) (org-let lprops
...)) ((fboundp type) (org-let lprops ...)) (t (user-error "Invalid custom 
agenda command type %s" type)))) (org-agenda-run-series (nth 1 entry) (cddr 
entry)))) ((equal org-keys
"C") (setq org-agenda-custom-commands org-agenda-custom-commands-orig) 
(customize-variable (quote org-agenda-custom-commands))) ((equal org-keys "a") 
(call-interactively (quote
org-agenda-list))) ((equal org-keys "s") (call-interactively (quote 
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote 
org-search-view) (or arg (quote (4)))))
((equal org-keys "t") (call-interactively (quote org-todo-list))) ((equal 
org-keys "T") (org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) 
((equal org-keys "m")
(call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively (quote
org-store-agenda-views))) ((equal org-keys "?") (org-tags-view nil "+FLAGGED") 
(org-add-hook (quote post-command-hook) (function (lambda nil (if 
(current-message) nil (let* ...
...)))) t t)) ((equal org-keys "L") (if (derived-mode-p (quote org-mode)) nil 
(user-error "This is not an Org-mode file")) (if restriction nil (put (quote 
org-agenda-files) (quote
org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) 
((equal org-keys "#") (call-interactively (quote 
org-agenda-list-stuck-projects))) ((equal org-keys "/")
(call-interactively (quote org-occur-in-agenda-files))) ((equal org-keys "!") 
(customize-variable (quote org-stuck-projects))) (t (user-error "Invalid agenda 
key"))))
  (catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name) 
org-agenda-buffer-name)
(quote current-window) org-agenda-window-setup)) 
(org-agenda-custom-commands-orig org-agenda-custom-commands) 
(org-agenda-custom-commands (delq nil (mapcar (function (lambda ...
...)) org-agenda-custom-commands))) (org-agenda-custom-commands 
(org-contextualize-keys org-agenda-custom-commands 
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans) 
(if org-agenda-overriding-restriction nil (if (and (boundp (quote
org-agenda-keep-restricted-file-list)) org-agenda-keep-restricted-file-list) 
nil (put (quote org-agenda-files) (quote org-restrict) nil)) (setq 
org-agenda-restrict nil)
(move-marker org-agenda-restrict-begin nil) (move-marker 
org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote 
org-lprops) nil) (put (quote
org-agenda-redo-command) (quote last-args) nil) (setq 
org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil (setq ans 
(org-agenda-get-restriction-and-command
prefix-descriptions) org-keys (car ans) restriction (cdr ans))) (if 
org-agenda-sticky (setq org-agenda-buffer-name (format "*Org Agenda(%s)*" 
org-keys))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote 
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction 
(quote region)) (setq
org-agenda-restrict (current-buffer)) (move-marker org-agenda-restrict-begin 
(region-beginning)) (move-marker org-agenda-restrict-end (region-end))) ((eq 
restriction (quote
subtree)) (save-excursion (setq org-agenda-restrict ...) (org-back-to-heading 
t) (move-marker org-agenda-restrict-begin ...) (move-marker 
org-agenda-restrict-end ...)))))) (cond
((setq entry (assoc org-keys org-agenda-custom-commands)) (if (or (symbolp (nth 
2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2 entry) org-match 
(eval ...) lprops
(nth 4 entry)) (if org-agenda-sticky (setq org-agenda-buffer-name ...)) (put 
(quote org-agenda-redo-command) (quote org-lprops) lprops) (cond (... ...) (... 
...) (... ...) (...
...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... 
... ...) (... ...) (... ...) (t ...))) (org-agenda-run-series (nth 1 entry) 
(cddr entry)))) ((equal
org-keys "C") (setq org-agenda-custom-commands org-agenda-custom-commands-orig) 
(customize-variable (quote org-agenda-custom-commands))) ((equal org-keys "a") 
(call-interactively
(quote org-agenda-list))) ((equal org-keys "s") (call-interactively (quote 
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote 
org-search-view) (or arg (quote
(4))))) ((equal org-keys "t") (call-interactively (quote org-todo-list))) 
((equal org-keys "T") (org-call-with-arg (quote org-todo-list) (or arg (quote 
(4))))) ((equal org-keys
"m") (call-interactively (quote org-tags-view))) ((equal org-keys "M") 
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal 
org-keys "e") (call-interactively
(quote org-store-agenda-views))) ((equal org-keys "?") (org-tags-view nil 
"+FLAGGED") (org-add-hook (quote post-command-hook) (function (lambda nil (if 
... nil ...))) t t)) ((equal
org-keys "L") (if (derived-mode-p (quote org-mode)) nil (user-error "This is 
not an Org-mode file")) (if restriction nil (put (quote org-agenda-files) 
(quote org-restrict) (list
bfn)) (org-call-with-arg (quote org-timeline) arg))) ((equal org-keys "#") 
(call-interactively (quote org-agenda-list-stuck-projects))) ((equal org-keys 
"/") (call-interactively
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable 
(quote org-stuck-projects))) (t (user-error "Invalid agenda key")))))
  org-agenda(nil)
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)