From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer Stengele Subject: Cannot start any agenda anymore Date: Tue, 25 Nov 2014 08:21:08 +0100 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:41924) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtARJ-0006Gs-GF for emacs-orgmode@gnu.org; Tue, 25 Nov 2014 02:21:42 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XtAR8-0006Lh-0d for emacs-orgmode@gnu.org; Tue, 25 Nov 2014 02:21:33 -0500 Received: from plane.gmane.org ([80.91.229.3]:37797) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XtAR7-0006LY-CE for emacs-orgmode@gnu.org; Tue, 25 Nov 2014 02:21:21 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1XtAR3-0003qQ-UI for emacs-orgmode@gnu.org; Tue, 25 Nov 2014 08:21:17 +0100 Received: from 212.34.176.74 ([212.34.176.74]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 25 Nov 2014 08:21:17 +0100 Received: from rainer.stengele by 212.34.176.74 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 25 Nov 2014 08:21:17 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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(# "~/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)