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