From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer Stengele Subject: Lisp error when starting agenda Date: Thu, 04 Jul 2013 15:35:38 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15 Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39822) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UujhY-0007uQ-0x for emacs-orgmode@gnu.org; Thu, 04 Jul 2013 09:36:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UujhQ-0002EA-Bd for emacs-orgmode@gnu.org; Thu, 04 Jul 2013 09:35:59 -0400 Received: from plane.gmane.org ([80.91.229.3]:53948) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UujhP-00029p-HF for emacs-orgmode@gnu.org; Thu, 04 Jul 2013 09:35:52 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1UujhK-0001jv-JC for emacs-orgmode@gnu.org; Thu, 04 Jul 2013 15:35:46 +0200 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 ; Thu, 04 Jul 2013 15:35:46 +0200 Received: from rainer.stengele by 212.34.176.74 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 04 Jul 2013 15:35:46 +0200 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 All, I pulled today and since then run into this issue after starting an agenda: Please help! Rainer Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil) upcase(nil) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (setq org-file-tags (delq nil (append org-file-tags (nth 0 ret))) org-tag-alist (delq nil (append org-tag-alist (nth 1 ret))) org-tag-groups-alist (delq nil (append org-tag-groups-alist (nth 2 ret))) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons (quote sequence) (org-split-string value splitre)) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons (quote type) (org-split-string value splitre)) kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons (cons (intern (downcase ...)) (org-split-string value splitre)) kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (progn (setq links (cons (cons ... ...) links))))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist (match-string 1 value) (match-string 2 value) props))))) ((equal key "DRAWERS") (setq drawers (delete-dups (append org-drawers (org-split-string value splitre))))) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts (org-split-string value splitre)) l var val) (while (setq l (car (prog1 opts ...))) (if (setq l (assoc l org-startup-options)) (progn (setq var ... val ...) (if ... ... ... ... ...)))))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote (face t fontified t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ ]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts (read (match-string 2 value))))) ((and (equal key "SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name (org-remove-double-quotes value)) (quote noerror))) (if (not ext-setup-or-nil) (setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat (substring ext-setup-or-nil 0 start) "\n" setup-contents "\n" (substring ext-setup-or-nil start))))))) (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (setq org-file-tags (delq nil (append org-file-tags ...)) org-tag-alist (delq nil (append org-tag-alist ...)) org-tag-groups-alist (delq nil (append org-tag-groups-alist ...)) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons (quote sequence) (org-split-string value splitre)) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons (quote type) (org-split-string value splitre)) kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons (cons (intern ...) (org-split-string value splitre)) kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (progn (setq links (cons ... links))))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist ... ... props))))) ((equal key "DRAWERS") (setq drawers (delete-dups (append org-drawers (org-split-string value splitre))))) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts (org-split-string value splitre)) l var val) (while (setq l (car ...)) (if (setq l ...) (progn ... ...))))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote (face t fontified t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ ]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts (read (match-string 2 value))))) ((and (equal key "SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name (org-remove-double-quotes value)) (quote noerror))) (if (not ext-setup-or-nil) (setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat (substring ext-setup-or-nil 0 start) "\n" setup-contents "\n" (substring ext-setup-or-nil start))))))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n ]" " " (match-string 4))) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props (org-update-property-plist ... ... props)))))))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let (...) (save-current-buffer ... ...)) (setq org-file-tags (delq nil ...) org-tag-alist (delq nil ...) org-tag-groups-alist (delq nil ...) org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ("SEQ_TODO" "TODO"))) (setq kwds (cons (cons ... ...) kwds))) ((equal key "TYP_TODO") (setq kwds (cons (cons ... ...) kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons (cons ... ...) kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (progn (setq links ...)))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props ...)))) ((equal key "DRAWERS") (setq drawers (delete-dups (append org-drawers ...)))) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ((opts ...) l var val) (while (setq l ...) (if ... ...)))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote (face t fontified t)) arch)) ((equal key "OPTIONS") (if (string-match "\\([ ]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts (read ...)))) ((and (equal key "SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents (expand-file-name ...) (quote noerror))) (if (not ext-setup-or-nil) (setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil (concat ... "\n" setup-contents "\n" ...)))))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n ]" " " (match-string 4))) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn (setq props ...)))))))) (let ((re (org-make-options-regexp (quote ("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ ]+") (scripts org-use-sub-superscripts) kwds kws0 kwsa key log value cat arch const links hw dws tail sep kws1 prio props drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let (ret) (let ... ...) (setq org-file-tags ... org-tag-alist ... org-tag-groups-alist ... org-ota t))) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start (match-end 0))) (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key (quote ...)) (setq kwds (cons ... kwds))) ((equal key "TYP_TODO") (setq kwds (cons ... kwds))) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds (cons ... kwds))) ((equal key "COLUMNS") (org-set-local (quote org-columns-default-format) value)) ((equal key "LINK") (if (string-match "^\\(\\S-+\\)[ ]+\\(.+\\)" value) (progn ...))) ((equal key "PRIORITIES") (setq prio (org-split-string value " +"))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn ...))) ((equal key "DRAWERS") (setq drawers (delete-dups ...))) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let (... l var val) (while ... ...))) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 (length arch) (quote ...) arch)) ((equal key "OPTIONS") (if (string-match "\\([ ]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value) (setq scripts ...))) ((and (equal key "SETUPFILE") (not buffer-read-only)) (setq setup-contents (org-file-contents ... ...)) (if (not ext-setup-or-nil) (setq ext-setup-or-nil setup-contents start 0) (setq ext-setup-or-nil ...))))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase (match-string 1))) (progn (setq value (replace-regexp-in-string "[\n ]" " " ...)) (if (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value) (progn ...))))))) (org-set-local (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat) props)))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0 prio)) (org-set-local (quote org-lowest-priority) (nth 1 prio)) (org-set-local (quote org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties) (nreverse props))) (and drawers (org-set-local (quote org-drawers) drawers)) (and arch (org-set-local (quote org-archive-location) arch)) (and links (setq org-link-abbrev-alist-local (nreverse links))) (if kwds nil (setq kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo-interpretation (default-value (quote org-todo-keywords)))))) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds (setq kwds (cdr kwds))))) (let ((kws (or (run-hook-with-args-until-success ... kws) kws))) (setq inter (car (prog1 kws (setq kws ...))) sep (member "|" kws) kws0 (delete "|" (copy-sequence kws)) kwsa nil kws1 (mapcar (function (lambda ... ...)) kws0) kwsa (if kwsa (append (quote ...) (nreverse kwsa) (quote ...))) hw (car kws1) dws (if sep (org-remove-keyword-keys (cdr sep)) (last kws1)) tail (list inter hw (car dws) (org-last dws)))) (add-to-list (quote org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq org-done-keywords (append org-done-keywords dws nil)) (setq org-todo-key-alist (append org-todo-key-alist kwsa)) (mapc (function (lambda (x) (setq org-todo-kwd-alist (cons ... org-todo-kwd-alist)))) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (quote cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (list (org-last org-todo-keywords-1))))) (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length org-clock-string) (length org-closed-string))) org-drawer-regexp (concat "^[ ]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ ]*$") org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)") org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ ]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[ ]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ ]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ ]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ ]*$") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-time-hour-regexp (concat "\\<" org-deadline-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy .]*\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy .]*\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^] \n>]*?[]>]\\|<%%([^ \n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq org-ota nil) (org-compute-latex-and-related-regexp)) (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (org-set-local (quote org-file-properties) nil) (let ((re (org-make-options-regexp (quote ("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ ]+") (scripts org-use-sub-superscripts) kwds kws0 kwsa key log value cat arch const links hw dws tail sep kws1 prio props drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil (not org-ota) (let ... ... ...)) (and ext-setup-or-nil (string-match re ext-setup-or-nil start) (setq start ...)) (and (setq ext-setup-or-nil nil start 0) (re-search-forward re nil t))) (setq key (upcase (match-string 1 ext-setup-or-nil)) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value (org-trim value))) (cond ((equal key "CATEGORY") (setq cat value)) ((member key ...) (setq kwds ...)) ((equal key "TYP_TODO") (setq kwds ...)) ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key) (setq kwds ...)) ((equal key "COLUMNS") (org-set-local ... value)) ((equal key "LINK") (if ... ...)) ((equal key "PRIORITIES") (setq prio ...)) ((equal key "PROPERTY") (if ... ...)) ((equal key "DRAWERS") (setq drawers ...)) ((equal key "CONSTANTS") (org-table-set-constants)) ((equal key "STARTUP") (let ... ...)) ((equal key "ARCHIVE") (setq arch value) (remove-text-properties 0 ... ... arch)) ((equal key "OPTIONS") (if ... ...)) ((and ... ...) (setq setup-contents ...) (if ... ... ...)))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" (upcase ...)) (progn (setq value ...) (if ... ...)))))) (org-set-local (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat) props)))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ("A" "C" "B")))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0 prio)) (org-set-local (quote org-lowest-priority) (nth 1 prio)) (org-set-local (quote org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties) (nreverse props))) (and drawers (org-set-local (quote org-drawers) drawers)) (and arch (org-set-local (quote org-archive-location) arch)) (and links (setq org-link-abbrev-alist-local (nreverse links))) (if kwds nil (setq kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo-interpretation (default-value ...))))) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds (setq kwds ...)))) (let ((kws (or ... kws))) (setq inter (car (prog1 kws ...)) sep (member "|" kws) kws0 (delete "|" (copy-sequence kws)) kwsa nil kws1 (mapcar (function ...) kws0) kwsa (if kwsa (append ... ... ...)) hw (car kws1) dws (if sep (org-remove-keyword-keys ...) (last kws1)) tail (list inter hw (car dws) (org-last dws)))) (add-to-list (quote org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq org-done-keywords (append org-done-keywords dws nil)) (setq org-todo-key-alist (append org-todo-key-alist kwsa)) (mapc (function (lambda (x) (setq org-todo-kwd-alist ...))) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (quote cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (list (org-last org-todo-keywords-1))))) (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length org-clock-string) (length org-closed-string))) org-drawer-regexp (concat "^[ ]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ ]*$") org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)") org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ ]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[ ]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ ]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ ]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ ]*$") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-time-hour-regexp (concat "\\<" org-deadline-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy .]*\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy .]*\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^] \n>]*?[]>]\\|<%%([^ \n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq org-ota nil) (org-compute-latex-and-related-regexp))) (if (derived-mode-p (quote org-mode)) (progn (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (org-set-local (quote org-file-properties) nil) (let ((re (org-make-options-regexp (quote ("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "OPTIONS")) "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) (splitre "[ ]+") (scripts org-use-sub-superscripts) kwds kws0 kwsa key log value cat arch const links hw dws tail sep kws1 prio props drawers ext-setup-or-nil setup-contents (start 0)) (save-excursion (save-restriction (widen) (goto-char (point-min)) (while (or (and ext-setup-or-nil ... ...) (and ext-setup-or-nil ... ...) (and ... ...)) (setq key (upcase ...) value (org-match-string-no-properties 2 ext-setup-or-nil)) (if (stringp value) (setq value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ... ...))) (goto-char (point-min)) (while (re-search-forward org-block-regexp nil t) (if (equal "PROPERTY" ...) (progn ... ...))))) (org-set-local (quote org-use-sub-superscripts) scripts) (if cat (progn (org-set-local (quote org-category) (intern cat)) (setq props (cons (cons "CATEGORY" cat) props)))) (if prio (progn (if (< (length prio) 3) (setq prio (quote ...))) (setq prio (mapcar (quote string-to-char) prio)) (org-set-local (quote org-highest-priority) (nth 0 prio)) (org-set-local (quote org-lowest-priority) (nth 1 prio)) (org-set-local (quote org-default-priority) (nth 2 prio)))) (and props (org-set-local (quote org-file-properties) (nreverse props))) (and drawers (org-set-local (quote org-drawers) drawers)) (and arch (org-set-local (quote org-archive-location) arch)) (and links (setq org-link-abbrev-alist-local (nreverse links))) (if kwds nil (setq kwds (default-value (quote org-todo-keywords))) (if (stringp (car kwds)) (setq kwds (list (cons org-todo-interpretation ...)))) (setq kwds (reverse kwds))) (setq kwds (nreverse kwds)) (let (inter kws kw) (while (setq kws (car (prog1 kwds ...))) (let ((kws ...)) (setq inter (car ...) sep (member "|" kws) kws0 (delete "|" ...) kwsa nil kws1 (mapcar ... kws0) kwsa (if kwsa ...) hw (car kws1) dws (if sep ... ...) tail (list inter hw ... ...))) (add-to-list (quote org-todo-heads) hw (quote append)) (setq org-todo-sets (cons kws1 org-todo-sets)) (setq org-done-keywords (append org-done-keywords dws nil)) (setq org-todo-key-alist (append org-todo-key-alist kwsa)) (mapc (function (lambda ... ...)) kws1) (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (quote cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist))) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (list (org-last org-todo-keywords-1))))) (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string) (length org-clock-string) (length org-closed-string))) org-drawer-regexp (concat "^[ ]*:\\(" (mapconcat (quote regexp-quote) org-drawers "\\|") "\\):[ ]*$") org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-todo-keywords-1 "\\|") "\\)") org-not-done-regexp (concat "\\(" (mapconcat (quote regexp-quote) org-not-done-keywords "\\|") "\\)") org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ ]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[ ]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ ]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ ]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ ]*$") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") org-deadline-time-hour-regexp (concat "\\<" org-deadline-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy .]*\\)>") org-deadline-line-regexp (concat "\\<\\(" org-deadline-string "\\).*") org-scheduled-regexp (concat "\\<" org-scheduled-string) org-scheduled-time-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>") org-scheduled-time-hour-regexp (concat "\\<" org-scheduled-string " *<\\([^>]+[0-9]\\{1,2\\}:[0-9]\\{2\\}[0-9-+:hdwmy .]*\\)>") org-closed-time-regexp (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]") org-keyword-time-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-keyword-time-not-clock-regexp (concat "\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\)" " *[[<]\\([^]>]+\\)[]>]") org-maybe-keyword-time-regexp (concat "\\(\\<\\(" org-scheduled-string "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^] \n>]*?[]>]\\|<%%([^ \n>]*>\\)") org-all-time-keywords (mapcar (function (lambda (w) (substring w 0 -1))) (list org-scheduled-string org-deadline-string org-clock-string org-closed-string))) (setq org-ota nil) (org-compute-latex-and-related-regexp)))) org-set-regexps-and-options() (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-table)))) nil (set-char-table-parent org-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if (boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide))) (define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec (quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local (quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function (lambda ... ...)) (if (stringp org-ellipsis) org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options-for-tags) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn (require (quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line)) (org-set-local (quote indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-set-local (quote beginning-of-defun-function) (quote org-backward-element)) (org-set-local (quote end-of-defun-function) (quote org-forward-element)) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) (if (or (featurep (quote xemacs)) (not (boundp (quote outline-isearch-open-invisible-function)))) (org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (org-set-local (quote outline-isearch-open-invisible-function) (function (lambda (&rest ignore) (org-show-context (quote isearch))))) (org-add-hook (quote isearch-mode-end-hook) (quote org-fix-ellipsis-at-bol) (quote append) (quote local))) (set (make-local-variable (quote pcomplete-command-completion-function)) (quote org-pcomplete-initial)) ...) (progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-parent org-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if (boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide))) (define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec (quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local (quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function ...) (if ... org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options-for-tags) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn (require (quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line)) (org-set-local (quote indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-set-local (quote beginning-of-defun-function) (quote org-backward-element)) (org-set-local (quote end-of-defun-function) (quote org-forward-element)) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) (if (or (featurep (quote xemacs)) (not (boundp (quote outline-isearch-open-invisible-function)))) (org-add-hook (quote isearch-mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (org-set-local (quote outline-isearch-open-invisible-function) (function (lambda (&rest ignore) (org-show-context (quote isearch))))) (org-add-hook (quote isearch-mode-end-hook) (quote org-fix-ellipsis-at-bol) (quote append) (quote local))) (set (make-local-variable (quote pcomplete-command-completion-function)) (quote org-pcomplete-initial)) ...)) org-mode() set-auto-mode-0(org-mode nil) set-auto-mode() normal-mode(t) after-find-file(nil t) find-file-noselect-1(# "~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org" nil nil "~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org" ((378368 0 . 32277) (39125 . 52227))) find-file-noselect("~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org") (setq buf (find-file-noselect file)) (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf) (let ((buf (org-find-base-buffer-visiting file))) (if buf buf (setq buf (find-file-noselect file)) (if buf (setq org-agenda-new-buffers (cons buf org-agenda-new-buffers))) buf)) org-get-agenda-file-buffer("~/org/DIPLAN/Lernen - Wissen - Dokus - Info - Lics Fortbildung etc.org")