* Cannot start any agenda anymore
@ 2014-11-25 7:21 Rainer Stengele
2014-11-25 8:53 ` Nicolas Goaziou
0 siblings, 1 reply; 4+ messages in thread
From: Rainer Stengele @ 2014-11-25 7:21 UTC (permalink / raw)
To: emacs-orgmode
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:]_@#%:]+:\\)\\)?" "[
]*$") 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-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:]_@#%:]+:\\)\\)?" "[ ]*$") 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-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:]_@#%:]+:\\)\\)?" "[ ]*$") 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-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)
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Cannot start any agenda anymore
2014-11-25 7:21 Cannot start any agenda anymore Rainer Stengele
@ 2014-11-25 8:53 ` Nicolas Goaziou
2014-11-25 13:40 ` Rainer Stengele
2014-11-25 16:47 ` Rainer Stengele
0 siblings, 2 replies; 4+ messages in thread
From: Nicolas Goaziou @ 2014-11-25 8:53 UTC (permalink / raw)
To: Rainer Stengele; +Cc: emacs-orgmode
Hello,
Rainer Stengele <rainer.stengele@online.de> writes:
> 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.
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> looking-at(nil)
> outline-on-heading-p(t)
> org-at-heading-p()
It means that `outline-regexp' is nil. Among your agenda files, do you
have one that sets it so with local variables mechanism?
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Cannot start any agenda anymore
2014-11-25 8:53 ` Nicolas Goaziou
@ 2014-11-25 13:40 ` Rainer Stengele
2014-11-25 16:47 ` Rainer Stengele
1 sibling, 0 replies; 4+ messages in thread
From: Rainer Stengele @ 2014-11-25 13:40 UTC (permalink / raw)
To: emacs-orgmode
Am 25.11.2014 um 09:53 schrieb Nicolas Goaziou:
> Hello,
>
> Rainer Stengele <rainer.stengele@online.de> writes:
>
>> 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.
>
>> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>> looking-at(nil)
>> outline-on-heading-p(t)
>> org-at-heading-p()
>
> It means that `outline-regexp' is nil. Among your agenda files, do you
> have one that sets it so with local variables mechanism?
>
>
> Regards,
>
Hello Nicolas,
you were right, the outline-regexp was configured to be set to nil.
I can't remember why I ever should have done something nonsensical. I don't believe I did it.
So for now I removed that setting and the standard again works fine.
Thank you very much!
Regards,
Rainer
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Cannot start any agenda anymore
2014-11-25 8:53 ` Nicolas Goaziou
2014-11-25 13:40 ` Rainer Stengele
@ 2014-11-25 16:47 ` Rainer Stengele
1 sibling, 0 replies; 4+ messages in thread
From: Rainer Stengele @ 2014-11-25 16:47 UTC (permalink / raw)
To: emacs-orgmode
Am 25.11.2014 um 09:53 schrieb Nicolas Goaziou:
> Hello,
>
> Rainer Stengele <rainer.stengele@online.de> writes:
>
>> 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.
>> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>> looking-at(nil)
>> outline-on-heading-p(t)
>> org-at-heading-p()
> It means that `outline-regexp' is nil. Among your agenda files, do you
> have one that sets it so with local variables mechanism?
>
>
> Regards,
>
No, no local settings related to that variable.
Regards,
Rainer Stengele
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2014-11-25 16:47 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-11-25 7:21 Cannot start any agenda anymore Rainer Stengele
2014-11-25 8:53 ` Nicolas Goaziou
2014-11-25 13:40 ` Rainer Stengele
2014-11-25 16:47 ` Rainer Stengele
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).