Re: [O] Lisp error when starting agenda

[Rainer Stengele]

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:address@hidden:]+:\\)\\)?" "[    
> ]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" 
> org-todo-regexp "\\)?" "\\(?:
> +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: 
> *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[     
> ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?" "[    ]*$")
> org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp 
> "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[      
> ]+\\(:[[:alnum:]:address@hidden:\\)\\)?" "[     ]*$") org-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:address@hidden:]+:\\)\\)?" "[    ]*$") 
> org-complex-heading-regexp-format (concat
> "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" 
> "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: 
> *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[
> ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?" "[  ]*$") org-todo-line-tags-regexp 
> (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: 
> +\\(.*?\\)\\)??" "\\(?:[
> ]+\\(:[[:alnum:]:address@hidden:\\)\\)?" "[   ]*$") org-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:address@hidden:]+:\\)\\)?" "[    
> ]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" 
> org-todo-regexp "\\)?" "\\(?:
> +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)?" "\\(%s\\)" "\\(?: 
> *\\[[0-9%%/]+\\]\\)?" "\\)" "\\(?:[     
> ]+\\(:[[:alnum:address@hidden:]+:\\)\\)?" "[    ]*$")
> org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp 
> "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[      
> ]+\\(:[[:alnum:]:address@hidden:\\)\\)?" "[     ]*$") org-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(#<buffer Lernen - Wissen - Dokus - Info - Lics 
> Fortbildung etc.org> "~/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")
> 
> 
>