Debug FInd-FIle 2015-06-02

Debugger entered--Lisp error: (void-function org-element-at-point)
  (org-element-at-point)
  (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key (org-element-property :key element)) (value (org-element-property :value element))) (cond ((equal key "ARCHIVE") (if (org-string-nw-p value) (progn ...))) ((equal key "CATEGORY") (setq alist (cons ... alist))) ((equal key "COLUMNS") (setq alist (cons ... alist))) ((equal key "CONSTANTS") (let* (... ...) (let ... ...) (if constants ... ...))) ((equal key "FILETAGS") (if (org-string-nw-p value) (progn ...))) ((equal key "LINK") (if (string-match "\\`\\(\\S-+\\)[ 	]+\\(.+\\)" value) (progn ...))) ((equal key "OPTIONS") (if (and ... ...) (progn ...))) ((equal key "PRIORITIES") (setq alist (cons ... alist))) ((equal key "PROPERTY") (if (string-match "\\(\\S-+\\)[ 	]+\\(.*\\)" value) (progn ...))) ((equal key "STARTUP") (let (...) (if startup ... ...))) ((equal key "TAGS") (let (...) (if tag-cell ... ...))) ((member key (quote ...)) (let (... ...) (if todo ... ...))) ((equal key "SETUPFILE") (if buffer-read-only nil (let ... ...))))))))
  (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key (org-element-property :key element)) (value (org-element-property :value element))) (cond ((equal key "ARCHIVE") (if ... ...)) ((equal key "CATEGORY") (setq alist ...)) ((equal key "COLUMNS") (setq alist ...)) ((equal key "CONSTANTS") (let* ... ... ...)) ((equal key "FILETAGS") (if ... ...)) ((equal key "LINK") (if ... ...)) ((equal key "OPTIONS") (if ... ...)) ((equal key "PRIORITIES") (setq alist ...)) ((equal key "PROPERTY") (if ... ...)) ((equal key "STARTUP") (let ... ...)) ((equal key "TAGS") (let ... ...)) ((member key ...) (let ... ...)) ((equal key "SETUPFILE") (if buffer-read-only nil ...))))))))
  (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ((key ...) (value ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...))))))))
  (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let (... ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ...))))))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (let ((case-fold-search t)) (while (re-search-forward regexp nil t) (let ((element (org-element-at-point))) (if (eq (org-element-type element) (quote keyword)) (progn (let ... ...))))))))
  org--setup-collect-keywords("^[ 	]*#\\+\\(\\(?:ARCHIVE\\|C\\(?:ATEGORY\\|O\\(?:\\(?:LUMN\\|NSTANT\\)S\\)\\)\\|FILETAGS\\|LINK\\|OPTIONS\\|PR\\(?:IORITIES\\|OPERTY\\)\\|S\\(?:E\\(?:Q_TODO\\|TUPFILE\\)\\|TARTUP\\)\\|T\\(?:AGS\\|\\(?:YP_T\\)?ODO\\)\\)\\):[ 	]*\\(.*\\)")
  (let ((alist (org--setup-collect-keywords (org-make-options-regexp (append (quote ("FILETAGS" "TAGS" "SETUPFILE")) (and (not tags-only) (quote ...))))))) (org--setup-process-tags (cdr (assq (quote tags) alist)) (cdr (assq (quote filetags) alist))) (if tags-only nil (org-set-local (quote org-file-properties) (cdr (assq (quote property) alist))) (let ((archive (cdr (assq (quote archive) alist)))) (if archive (progn (org-set-local (quote org-archive-location) archive)))) (let ((cat (org-string-nw-p (cdr (assq ... alist))))) (if cat (progn (org-set-local (quote org-category) (intern cat)) (org-set-local (quote org-file-properties) (org--update-property-plist "CATEGORY" cat org-file-properties))))) (let ((column (cdr (assq (quote columns) alist)))) (if column (progn (org-set-local (quote org-columns-default-format) column)))) (setq org-table-formula-constants-local (cdr (assq (quote constants) alist))) (let ((links (cdr (assq (quote link) alist)))) (if links (progn (setq org-link-abbrev-alist-local (nreverse links))))) (let ((priorities (cdr (assq (quote priorities) alist)))) (if priorities (progn (org-set-local (quote org-highest-priority) (nth 0 priorities)) (org-set-local (quote org-lowest-priority) (nth 1 priorities)) (org-set-local (quote org-default-priority) (nth 2 priorities))))) (let ((scripts (assq (quote scripts) alist))) (if scripts (progn (org-set-local (quote org-use-sub-superscripts) (cdr scripts))))) (let ((startup (cdr (assq (quote startup) alist)))) (let ((--dolist-tail-- startup) option) (while --dolist-tail-- (setq option (car --dolist-tail--)) (let ((entry ...)) (if entry (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (let ((todo-sequences (or (nreverse (cdr ...)) (let (...) (if ... d ...))))) (let ((--dolist-tail-- todo-sequences) sequence) (while --dolist-tail-- (setq sequence (car --dolist-tail--)) (let* ((sequence ...) (sequence-type ...) (keywords ...) (sep ...) names alist) (let (... k) (while --dolist-tail-- ... ... ... ...)) (let* (... ... ... ...) (add-to-list ... head ...) (setq org-todo-sets ...) (setq org-done-keywords ...) (setq org-todo-keywords-1 ...) (setq org-todo-key-alist ...) (let ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (function cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist)) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (last org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (regexp-opt org-todo-keywords-1 t) org-not-done-regexp (regexp-opt org-not-done-keywords t) org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)*" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)*" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$")) (org-compute-latex-and-related-regexp)))
  (progn (let ((alist (org--setup-collect-keywords (org-make-options-regexp (append (quote ...) (and ... ...)))))) (org--setup-process-tags (cdr (assq (quote tags) alist)) (cdr (assq (quote filetags) alist))) (if tags-only nil (org-set-local (quote org-file-properties) (cdr (assq (quote property) alist))) (let ((archive (cdr (assq ... alist)))) (if archive (progn (org-set-local (quote org-archive-location) archive)))) (let ((cat (org-string-nw-p (cdr ...)))) (if cat (progn (org-set-local (quote org-category) (intern cat)) (org-set-local (quote org-file-properties) (org--update-property-plist "CATEGORY" cat org-file-properties))))) (let ((column (cdr (assq ... alist)))) (if column (progn (org-set-local (quote org-columns-default-format) column)))) (setq org-table-formula-constants-local (cdr (assq (quote constants) alist))) (let ((links (cdr (assq ... alist)))) (if links (progn (setq org-link-abbrev-alist-local (nreverse links))))) (let ((priorities (cdr (assq ... alist)))) (if priorities (progn (org-set-local (quote org-highest-priority) (nth 0 priorities)) (org-set-local (quote org-lowest-priority) (nth 1 priorities)) (org-set-local (quote org-default-priority) (nth 2 priorities))))) (let ((scripts (assq (quote scripts) alist))) (if scripts (progn (org-set-local (quote org-use-sub-superscripts) (cdr scripts))))) (let ((startup (cdr (assq ... alist)))) (let ((--dolist-tail-- startup) option) (while --dolist-tail-- (setq option (car --dolist-tail--)) (let (...) (if entry ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (let ((todo-sequences (or (nreverse ...) (let ... ...)))) (let ((--dolist-tail-- todo-sequences) sequence) (while --dolist-tail-- (setq sequence (car --dolist-tail--)) (let* (... ... ... ... names alist) (let ... ...) (let* ... ... ... ... ... ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (function cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist)) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (last org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (regexp-opt org-todo-keywords-1 t) org-not-done-regexp (regexp-opt org-not-done-keywords t) org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)*" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)*" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$")) (org-compute-latex-and-related-regexp))))
  (if (derived-mode-p (quote org-mode)) (progn (let ((alist (org--setup-collect-keywords (org-make-options-regexp (append ... ...))))) (org--setup-process-tags (cdr (assq (quote tags) alist)) (cdr (assq (quote filetags) alist))) (if tags-only nil (org-set-local (quote org-file-properties) (cdr (assq (quote property) alist))) (let ((archive (cdr ...))) (if archive (progn (org-set-local ... archive)))) (let ((cat (org-string-nw-p ...))) (if cat (progn (org-set-local ... ...) (org-set-local ... ...)))) (let ((column (cdr ...))) (if column (progn (org-set-local ... column)))) (setq org-table-formula-constants-local (cdr (assq (quote constants) alist))) (let ((links (cdr ...))) (if links (progn (setq org-link-abbrev-alist-local ...)))) (let ((priorities (cdr ...))) (if priorities (progn (org-set-local ... ...) (org-set-local ... ...) (org-set-local ... ...)))) (let ((scripts (assq ... alist))) (if scripts (progn (org-set-local ... ...)))) (let ((startup (cdr ...))) (let ((--dolist-tail-- startup) option) (while --dolist-tail-- (setq option ...) (let ... ...) (setq --dolist-tail-- ...)))) (org-set-local (quote org-todo-kwd-alist) nil) (org-set-local (quote org-todo-key-alist) nil) (org-set-local (quote org-todo-key-trigger) nil) (org-set-local (quote org-todo-keywords-1) nil) (org-set-local (quote org-done-keywords) nil) (org-set-local (quote org-todo-heads) nil) (org-set-local (quote org-todo-sets) nil) (org-set-local (quote org-todo-log-states) nil) (let ((todo-sequences (or ... ...))) (let ((--dolist-tail-- todo-sequences) sequence) (while --dolist-tail-- (setq sequence ...) (let* ... ... ...) (setq --dolist-tail-- ...)))) (setq org-todo-sets (nreverse org-todo-sets) org-todo-kwd-alist (nreverse org-todo-kwd-alist) org-todo-key-trigger (delq nil (mapcar (function cdr) org-todo-key-alist)) org-todo-key-alist (org-assign-fast-keys org-todo-key-alist)) (if (not org-done-keywords) (setq org-done-keywords (and org-todo-keywords-1 (last org-todo-keywords-1)))) (setq org-not-done-keywords (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp (regexp-opt org-todo-keywords-1 t) org-not-done-regexp (regexp-opt org-not-done-keywords t) org-not-done-heading-regexp (format org-heading-keyword-regexp-format org-not-done-regexp) org-todo-line-regexp (format org-heading-keyword-maybe-regexp-format org-todo-regexp) org-complex-heading-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]_@#%:]+:\\)\\)?" "[ 	]*$") org-complex-heading-regexp-format (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(\\[#.\\]\\)\\)?" "\\(?: +" "\\(?:\\[[0-9%%/]+\\] *\\)*" "\\(%s\\)" "\\(?: *\\[[0-9%%/]+\\]\\)*" "\\)" "\\(?:[ 	]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?" "[ 	]*$") org-todo-line-tags-regexp (concat "^\\(\\*+\\)" "\\(?: +" org-todo-regexp "\\)?" "\\(?: +\\(.*?\\)\\)??" "\\(?:[ 	]+\\(:[[:alnum:]:_@#%]+:\\)\\)?" "[ 	]*$")) (org-compute-latex-and-related-regexp)))))
  org-set-regexps-and-options()
  (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-table)))) nil (set-char-table-parent org-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if (boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide))) (define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec (quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local (quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function (lambda ... ...)) (if (stringp org-ellipsis) org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn (require (quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line)) (org-set-local (quote indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-element-cache-reset) (org-set-local (quote beginning-of-defun-function) (quote org-backward-element)) (org-set-local (quote end-of-defun-function) (function (lambda nil (if (not (org-at-heading-p)) (org-forward-element) (org-forward-element) (forward-char -1))))) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^[ 	]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) ...)
  (progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil (set-char-table-parent org-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :parents (list local-abbrev-table)))) (use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-table) (if (featurep (quote xemacs)) (if (boundp (quote outline-mode-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hide))) (define-key org-mode-map [menu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote undefined))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (add-to-invisibility-spec (quote (org-link)))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (if (featurep (quote xemacs)) (progn (org-set-local (quote line-move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) (setq bidi-paragraph-direction (quote left-to-right)) (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote make-glyph-code))) (progn (if org-display-table nil (setq org-display-table (make-display-table))) (set-display-table-slot org-display-table 4 (vconcat (mapcar (function ...) (if ... org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-set-regexps-and-options) (org-set-font-lock-defaults) (if (and org-tag-faces (not org-tags-special-faces-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w") (modify-syntax-entry 34 "\"") (modify-syntax-entry 92 "_") (modify-syntax-entry 126 "_") (if org-startup-truncated (setq truncate-lines t)) (if org-startup-indented (progn (require (quote org-indent)) (org-indent-mode 1))) (org-set-local (quote font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set-local (quote org-table-may-need-update) t) (org-add-hook (quote before-change-functions) (quote org-before-change-function) nil (quote local)) (org-add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote local)) (org-macro-initialize-templates) (org-update-radio-target-regexp) (org-set-local (quote indent-line-function) (quote org-indent-line)) (org-set-local (quote indent-region-function) (quote org-indent-region)) (org-setup-filling) (org-setup-comments-handling) (org-element-cache-reset) (org-set-local (quote beginning-of-defun-function) (quote org-backward-element)) (org-set-local (quote end-of-defun-function) (function (lambda nil (if (not (org-at-heading-p)) (org-forward-element) (org-forward-element) (forward-char -1))))) (org-set-local (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-todo-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote org-block-todo-from-checkboxes))) (org-set-local (quote align-mode-rules-list) (quote ((org-in-buffer-settings (regexp . "^[ 	]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-create-index-function) (quote org-imenu-get-tree)) ...))
  org-mode()
  set-auto-mode-0(org-mode nil)
  #[0 "\302\242\237\211\205.