If I load a python source file using python-mode.el, and then subsequently
look at a .org file using org-mode.el, I get an error:
Lisp error: (wrong-type-argument stringp nil)
and then I cannot see my .org file (nothing is displayed in the buffer).
Specifically the steps to reproduce are:
1) run 'emacs --no-site-file --no-init-file'
2) eval "(require 'python-mode)" to load python-mode.el
3) find-file "some/python/file.py"
4) find-file "some/org/file.org"
and I get the above error. If any of the above steps are omitted (ie, if I
load python-mode.el, but don't actually look at a python file), I don't get
the error. I've included a traceback below. I'm also submitting this to
as a bug to org-mode (https://bugs.launchpad.net/python-mode/+bug/1108910).
I've never had problems with org-mode in this vein before, and this
started immediately after starting to use python-mode.el, so I suspect that
the problem lies there. However, the whole traceback seems to be in
org-mode code, so I'm sending this to you, as well.
I'm running:
OS X 10.7.5
Emacs 24.2.1
org-mode 7.8.11
python-mode 6.1.0
Backtrace attached.
Thanks,
Greg
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
re-search-forward(nil nil move)
outline-end-of-heading()
outline-show-heading()
#[nil " X\205 \302 \207" [outline-level levels outline-show-heading]
2]()
outline-map-region(#[nil " X\205 \302 \207" [outline-level levels
outline-show-heading] 2] 1 289092)
hide-sublevels(1)
(and level (hide-sublevels level))
(let ((level (save-excursion (goto-char (point-min)) (if (re-search-forward
(concat "^" outline-regexp) nil t) (progn (goto-char (match-beginning 0))
(funcall outline-level)))))) (and level (hide-sublevels level)))
org-overview()
(cond ((and (eq last-command this-command) (eq org-cycle-global-status (quote
overview))) (run-hook-with-args (quote org-pre-cycle-hook) (quote contents))
(unless ga (message "CONTENTS...")) (org-content) (unless ga (message
"CONTENTS...done")) (setq org-cycle-global-status (quote contents))
(run-hook-with-args (quote org-cycle-hook) (quote contents))) ((and (eq
last-command this-command) (eq org-cycle-global-status (quote contents)))
(run-hook-with-args (quote org-pre-cycle-hook) (quote all)) (show-all) (unless
ga (message "SHOW ALL")) (setq org-cycle-global-status (quote all))
(run-hook-with-args (quote org-cycle-hook) (quote all))) (t (run-hook-with-args
(quote org-pre-cycle-hook) (quote overview)) (org-overview) (unless ga (message
"OVERVIEW")) (setq org-cycle-global-status (quote overview))
(run-hook-with-args (quote org-cycle-hook) (quote overview))))
(let ((ga (string-match "\\*fontification" (buffer-name)))) (cond ((and (eq
last-command this-command) (eq org-cycle-global-status (quote overview)))
(run-hook-with-args (quote org-pre-cycle-hook) (quote contents)) (unless ga
(message "CONTENTS...")) (org-content) (unless ga (message "CONTENTS...done"))
(setq org-cycle-global-status (quote contents)) (run-hook-with-args (quote
org-cycle-hook) (quote contents))) ((and (eq last-command this-command) (eq
org-cycle-global-status (quote contents))) (run-hook-with-args (quote
org-pre-cycle-hook) (quote all)) (show-all) (unless ga (message "SHOW ALL"))
(setq org-cycle-global-status (quote all)) (run-hook-with-args (quote
org-cycle-hook) (quote all))) (t (run-hook-with-args (quote org-pre-cycle-hook)
(quote overview)) (org-overview) (unless ga (message "OVERVIEW")) (setq
org-cycle-global-status (quote overview)) (run-hook-with-args (quote
org-cycle-hook) (quote overview)))))
org-cycle-internal-global()
(cond ((equal arg (quote (16))) (setq last-command (quote dummy))
(org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY
properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer
visible, including drawers")) ((org-at-table-p (quote any)) (if
(org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg
(org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively
(quote org-table-next-field))))) ((run-hook-with-args-until-success (quote
org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global))
((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1)
(looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property
(match-end 0) (quote invisible))))) ((integerp arg) (save-excursion
(org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- (funcall
outline-level) arg))) (org-show-subtree))) ((and (featurep (quote
org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq
org-cycle-emulate-tab (quote exc-hl-bol)))))
(org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and
org-cycle-include-plain-lists (org-at-item-p)) (save-excursion
(beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq
org-cycle-emulate-tab (quote exc-hl-bol))))) (org-cycle-internal-local))
(buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success
(quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion))
((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook)))
((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not
(looking-at org-outline-regexp)))) (call-interactively (global-key-binding "
"))) ((if (and (memq org-cycle-emulate-tab (quote (white whitestart)))
(save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and (eq
org-cycle-emulate-tab (quote white)) (= (match-end 0) (point-at-eol))) (and (eq
org-cycle-emulate-tab (quote whitestart)) (>= (match-end 0) pos)))) t (eq
org-cycle-emulate-tab t)) (call-interactively (global-key-binding " ")))
(t (save-excursion (org-back-to-heading) (org-cycle))))
(let* ((limit-level (or org-cycle-max-level (and (boundp (quote
org-inlinetask-min-level)) org-inlinetask-min-level (1-
org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only
(and limit-level (1- (* limit-level 2))) limit-level))) (org-outline-regexp (if
(not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars
(format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and
org-cycle-global-at-bob (not arg) (bobp) (not (looking-at
org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote
org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook))
org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4))))
(setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy))
(org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY
properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer
visible, including drawers")) ((org-at-table-p (quote any)) (if
(org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg
(org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively
(quote org-table-next-field))))) ((run-hook-with-args-until-success (quote
org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global))
((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1)
(looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property
(match-end 0) (quote invisible))))) ((integerp arg) (save-excursion
(org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- (funcall
outline-level) arg))) (org-show-subtree))) ((and (featurep (quote
org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq
org-cycle-emulate-tab (quote exc-hl-bol)))))
(org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and
org-cycle-include-plain-lists (org-at-item-p)) (save-excursion
(beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq
org-cycle-emulate-tab (quote exc-hl-bol))))) (org-cycle-internal-local))
(buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success
(quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion))
((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook)))
((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not
(looking-at org-outline-regexp)))) (call-interactively (global-key-binding "
"))) ((if (and (memq org-cycle-emulate-tab (quote (white whitestart)))
(save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and (eq
org-cycle-emulate-tab ...) (= ... ...)) (and (eq org-cycle-emulate-tab ...) (>=
... pos)))) t (eq org-cycle-emulate-tab t)) (call-interactively
(global-key-binding " "))) (t (save-excursion (org-back-to-heading)
(org-cycle)))))
(if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and
org-cycle-level-after-item/entry-creation (or (org-cycle-level)
(org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level
(and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1-
org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only
(and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq
major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format
"\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not
arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if
bob-special (delq (quote org-optimize-window-after-visibility-change)
(copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or
bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote
(16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message
"Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64)))
(show-all) (message "Entire buffer visible, including drawers"))
((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to
edit table.el tables") (if arg (org-table-edit-field t)
(org-table-justify-field-maybe) (call-interactively (quote
org-table-next-field))))) ((run-hook-with-args-until-success (quote
org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global))
((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1)
(looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property
(match-end 0) (quote invisible))))) ((integerp arg) (save-excursion
(org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg)))
(org-show-subtree))) ((and (featurep (quote org-inlinetask))
(org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...))))
(org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and
org-cycle-include-plain-lists (org-at-item-p)) (save-excursion
(beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq
org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only
(org-back-to-heading)) ((run-hook-with-args-until-success (quote
org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion))
((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook)))
((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not
(looking-at org-outline-regexp)))) (call-interactively (global-key-binding "
"))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion
(beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...)))
t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding "
"))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
(unless (or (run-hook-with-args-until-success (quote org-tab-first-hook))
(and org-cycle-level-after-item/entry-creation (or (org-cycle-level)
(org-cycle-item-indentation)))) (let* ((limit-level (or org-cycle-max-level
(and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1-
org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only
(and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq
major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format
"\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not
arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if
bob-special (delq (quote org-optimize-window-after-visibility-change)
(copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or
bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote
(16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message
"Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64)))
(show-all) (message "Entire buffer visible, including drawers"))
((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to
edit table.el tables") (if arg (org-table-edit-field t)
(org-table-justify-field-maybe) (call-interactively (quote
org-table-next-field))))) ((run-hook-with-args-until-success (quote
org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global))
((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1)
(looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property
(match-end 0) (quote invisible))))) ((integerp arg) (save-excursion
(org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg)))
(org-show-subtree))) ((and (featurep (quote org-inlinetask))
(org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...))))
(org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and
org-cycle-include-plain-lists (org-at-item-p)) (save-excursion
(beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq
org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only
(org-back-to-heading)) ((run-hook-with-args-until-success (quote
org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion))
((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook)))
((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not
(looking-at org-outline-regexp)))) (call-interactively (global-key-binding "
"))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion
(beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...)))
t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding "
"))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
org-cycle((4))
(cond ((eq org-startup-folded t) (org-cycle (quote (4)))) ((eq
org-startup-folded (quote content)) (let ((this-command (quote org-cycle))
(last-command (quote org-cycle))) (org-cycle (quote (4))) (org-cycle (quote
(4))))))
org-set-startup-visibility()
(if org-inhibit-startup-visibility-stuff nil (org-set-startup-visibility))
(unless org-inhibit-startup-visibility-stuff (org-set-startup-visibility))
(if org-inhibit-startup nil (when org-startup-align-all-tables (let ((bmp
(buffer-modified-p))) (org-table-map-tables (quote org-table-align) (quote
quietly)) (set-buffer-modified-p bmp))) (when org-startup-with-inline-images
(org-display-inline-images)) (when org-startup-indented (require (quote
org-indent)) (org-indent-mode 1)) (unless org-inhibit-startup-visibility-stuff
(org-set-startup-visibility)))
(unless org-inhibit-startup (when org-startup-align-all-tables (let ((bmp
(buffer-modified-p))) (org-table-map-tables (quote org-table-align) (quote
quietly)) (set-buffer-modified-p bmp))) (when org-startup-with-inline-images
(org-display-inline-images)) (when org-startup-indented (require (quote
org-indent)) (org-indent-mode 1)) (unless org-inhibit-startup-visibility-stuff
(org-set-startup-visibility)))
(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)))) (unless (keymap-parent org-mode-map) (set-keymap-parent
org-mode-map (current-local-map))) (let ((parent (char-table-parent
org-mode-syntax-table))) (unless (and parent (not (eq parent
(standard-syntax-table)))) (set-char-table-parent org-mode-syntax-table
(syntax-table)))) (unless (or (abbrev-table-get org-mode-abbrev-table :parents)
(eq org-mode-abbrev-table local-abbrev-table)) (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)) (when (boundp (quote
outline-mode-menu-heading)) (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))) (when
(featurep (quote xemacs)) (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)) (when (and org-ellipsis (fboundp (quote
set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
make-glyph-code))) (unless org-display-table (setq org-display-table
(make-display-table))) (set-display-table-slot org-display-table 4 (vconcat
(mapcar (lambda (c) (make-glyph-code c (and ... org-ellipsis))) (if (stringp
org-ellipsis) org-ellipsis "...")))) (setq buffer-display-table
org-display-table)) (org-set-regexps-and-options) (when (and org-tag-faces (not
org-tags-special-faces-re)) (org-set-tag-faces (quote org-tag-faces)
org-tag-faces)) (org-set-local (quote calc-embedded-open-mode) "# ")
(modify-syntax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t))
(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-set-autofill-regexps) (setq indent-line-function (quote
org-indent-line-function)) (org-update-radio-target-regexp) (org-set-local
(quote beginning-of-defun-function) (quote org-beginning-of-defun))
(org-set-local (quote end-of-defun-function) (quote org-end-of-defun))
(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 comment-start)
"#") (org-set-local (quote comment-padding) " ") (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) (lambda (&rest
ignore) (org-show-context (quote isearch))))) (and org-startup-with-beamer-mode
(org-beamer-mode 1)) (set (make-local-variable (quote
pcomplete-command-completion-function)) (quote org-pcomplete-initial)) (set
(make-local-variable (quote pcomplete-command-name-function)) (quote
org-command-at-point)) (set (make-local-variable (quote
pcomplete-default-completion-function)) (quote ignore)) (set
(make-local-variable (quote pcomplete-parse-arguments-function)) (quote
org-parse-arguments)) (set (make-local-variable (quote
pcomplete-termination-string)) "") ...)
(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)))) (unless
(keymap-parent org-mode-map) (set-keymap-parent org-mode-map
(current-local-map))) (let ((parent (char-table-parent org-mode-syntax-table)))
(unless (and parent (not (eq parent ...))) (set-char-table-parent
org-mode-syntax-table (syntax-table)))) (unless (or (abbrev-table-get
org-mode-abbrev-table :parents) (eq org-mode-abbrev-table local-abbrev-table))
(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)) (when
(boundp (quote outline-mode-menu-heading)) (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))) (when
(featurep (quote xemacs)) (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)) (when (and org-ellipsis (fboundp (quote
set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
make-glyph-code))) (unless org-display-table (setq org-display-table
(make-display-table))) (set-display-table-slot org-display-table 4 (vconcat
(mapcar (lambda (c) (make-glyph-code c ...)) (if (stringp org-ellipsis)
org-ellipsis "...")))) (setq buffer-display-table org-display-table))
(org-set-regexps-and-options) (when (and org-tag-faces (not
org-tags-special-faces-re)) (org-set-tag-faces (quote org-tag-faces)
org-tag-faces)) (org-set-local (quote calc-embedded-open-mode) "# ")
(modify-syntax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t))
(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-set-autofill-regexps) (setq indent-line-function (quote
org-indent-line-function)) (org-update-radio-target-regexp) (org-set-local
(quote beginning-of-defun-function) (quote org-beginning-of-defun))
(org-set-local (quote end-of-defun-function) (quote org-end-of-defun))
(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 comment-start)
"#") (org-set-local (quote comment-padding) " ") (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) (lambda (&rest
ignore) (org-show-context (quote isearch))))) (and org-startup-with-beamer-mode
(org-beamer-mode 1)) (set (make-local-variable (quote
pcomplete-command-completion-function)) (quote org-pcomplete-initial)) (set
(make-local-variable (quote pcomplete-command-name-function)) (quote
org-command-at-point)) (set (make-local-variable (quote
pcomplete-default-completion-function)) (quote ignore)) (set
(make-local-variable (quote pcomplete-parse-arguments-function)) (quote
org-parse-arguments)) (set (make-local-variable (quote
pcomplete-termination-string)) "") ...))
(delay-mode-hooks (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)))) (unless (keymap-parent org-mode-map) (set-keymap-parent
org-mode-map (current-local-map))) (let ((parent (char-table-parent
org-mode-syntax-table))) (unless (and parent (not (eq parent
(standard-syntax-table)))) (set-char-table-parent org-mode-syntax-table
(syntax-table)))) (unless (or (abbrev-table-get org-mode-abbrev-table :parents)
(eq org-mode-abbrev-table local-abbrev-table)) (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)) (when (boundp (quote
outline-mode-menu-heading)) (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))) (when
(featurep (quote xemacs)) (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)) (when (and org-ellipsis (fboundp (quote
set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp (quote
make-glyph-code))) (unless org-display-table (setq org-display-table
(make-display-table))) (set-display-table-slot org-display-table 4 (vconcat
(mapcar (lambda (c) (make-glyph-code c (and ... org-ellipsis))) (if (stringp
org-ellipsis) org-ellipsis "...")))) (setq buffer-display-table
org-display-table)) (org-set-regexps-and-options) (when (and org-tag-faces (not
org-tags-special-faces-re)) (org-set-tag-faces (quote org-tag-faces)
org-tag-faces)) (org-set-local (quote calc-embedded-open-mode) "# ")
(modify-syntax-entry 64 "w") (if org-startup-truncated (setq truncate-lines t))
(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-set-autofill-regexps) (setq indent-line-function (quote
org-indent-line-function)) (org-update-radio-target-regexp) (org-set-local
(quote beginning-of-defun-function) (quote org-beginning-of-defun))
(org-set-local (quote end-of-defun-function) (quote org-end-of-defun))
(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 comment-start)
"#") (org-set-local (quote comment-padding) " ") (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) (lambda (&rest
ignore) (org-show-context (quote isearch))))) (and org-startup-with-beamer-mode
(org-beamer-mode 1)) (set (make-local-variable (quote
pcomplete-command-completion-function)) (quote org-pcomplete-initial)) (set
(make-local-variable (quote pcomplete-command-name-function)) (quote
org-command-at-point)) (set (make-local-variable (quote
pcomplete-default-completion-function)) (quote ignore)) (set
(make-local-variable (quote pcomplete-parse-arguments-function)) (quote
org-parse-arguments)) (set (make-local-variable (quote
pcomplete-termination-string)) "") (when (>= emacs-major-version 23) (set
(make-local-variable (quote buffer-face-mode-face)) (quote org-default))) ...)
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 work.org> "~/Dropbox/Brain/work.org" nil nil
"~/Dropbox/Brain/work.org" (41138354 234881026))
find-file-noselect("~/Dropbox/Brain/work.org" nil nil t)
find-file("~/Dropbox/Brain/work.org" t)
call-interactively(find-file nil nil)
