While working on a custom function in my literate org configuration, I
had been evaluating various `org-element` functions in elisp blocks
using `C-x C-e`.
They ran exactly as anticipated up to this point - but because of the
ergonomics of editing source blocks in literate org files, I opened an
OrgSrc buffer, using `C-c '`.
Falling back to muscle memory, I evaluated an expression again - which
contained the function invocation `(org-back-to-heading t)`. This threw
an error; which should (at least) be specific and indicative of the
inappropriate buffer type.
For instance, by somehow inserting a check resembling this, or advising
functions as shown:
#+begin_src elisp
(when org-src-mode
(user-error
"Inappropriate invocation at %d in illiterate org-src-mode buffer %s"
(point)
(current-buffer)))
#+end_src
Alternatively, I think that the ideal behavior in this scenario (that is
- evaluating org-element functions while point is active inside an
OrgSrc buffer which maps to a location in an existing file and sub-tree)
would be to evaluate them as if the point was actually at the
corresponding point in the buffer which the `org-src` buffer point
refers to. There is a convenient form for this, `org-src-do-at-code-block`.
Emacs : GNU Emacs 30.2.50 (build 2, x86_64-pc-linux-gnu, GTK+ Version
3.24.49, cairo version 1.18.4)
of 2025-09-23
Package: Org mode version 9.8-pre (release_9.7.34-429-g69b891 @
/home/alice/.emacs.d/straight/build/org/)
current state:
==============
(setq
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-html-format-headline-function
'org-html-format-headline-default-function
org-html-format-drawer-function #[(_name contents) (contents)
(htmlize-buffer-places org-html-format-table-no-css htmlize-css-name-prefix
htmlize-output-type htmlize-output-type htmlize-css-name-prefix t)]
org-babel-tangle-lang-exts '(("rustic" . "rs") ("clojurescript" . "cljs")
("clojure" . "clj") ("python" . "py")
("emacs-lisp" . "el") ("elisp" . "el")
("bibtex" . "bib"))
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-confirm-elisp-link-function 'yes-or-no-p
org-mode-hook '(er/add-org-mode-expansions elpher-org-mode-integration
#[nil ((setq imenu-create-index-function
'org-imenu-get-tree))
(org-link-abbrev-alist org-link-abbrev-alist-local
org-agenda-skip-regexp org-use-property-inheritance
org-fold-core-style org-table1-hline-regexp
org-table-tab-recognizes-table.el org-table-dataline-regexp
org-table-any-border-regexp
org-agenda-restriction-lock-overlay org-agenda-overriding-restriction
org-agenda-diary-file org-complex-heading-regexp
calendar-mode-map t)
]
#[nil ((add-hook 'change-major-mode-hook
'org-fold-show-all 'append 'local))
(org--rds reftex-docstruct-symbol org-attach-method
org--single-lines-list-is-paragraph
org-element-greater-elements org-agenda-restrict-end
org-agenda-restrict-begin org-agenda-restrict
org-clock-history org-agenda-current-date org-with-time
org-defdecode org-def org-read-date-inactive
org-ans2 org-ans1 org-columns-current-fmt-compiled
org-clock-current-task org-clock-effort
org-agenda-skip-function org-agenda-skip-comment-trees
org-agenda-archives-mode org-end-time-was-given
org-time-was-given org-log-note-extra
org-log-note-purpose org-log-post-message org-last-inserted-timestamp
org-last-changed-timestamp
org-entry-property-inherited-from org-state
org-agenda-headline-snapshot-before-repeat
org-agenda-buffer-name org-agenda-start-on-weekday
org-agenda-buffer-tmp-name org-log-note-marker
org-priority-regexp org-mode-abbrev-table
org-element-cache-persistent org-element-cache-version
buffer-face-mode-face org-tbl-menu org-org-menu
org-struct-menu org-entities org-last-state
org-id-track-globally org-clock-start-time texmathp-why
remember-data-file
org-agenda-tags-todo-honor-ignore-options calc-embedded-open-mode
calc-embedded-open-formula calc-embedded-close-formula
align-mode-rules-list org-emphasis-alist
org-emphasis-regexp-components
org-export-registered-backends org-modules crm-separator
org-babel-load-languages org-id-overriding-file-name
org-indent-indentation-per-level
org-element--timestamp-regexp
org-element-cache-map-continue-from org-element-paragraph-separate
org-agenda-buffer-name org-inlinetask-min-level t)
]
#[nil ((add-hook 'change-major-mode-hook
#'org-babel-show-result-all 'append 'local))
(org-src-window-setup *this*
org-babel-confirm-evaluate-answer-no org-babel-tangle-uncomment-comments
org-src-lang-modes org-edit-src-content-indentation
org-babel-library-of-babel t)
]
org-babel-result-hide-spec org-babel-hide-all-hashes
org-appear-mode)
org-capture-templates '(("p" "Pearl - Code Discovery" plain (file
my/pearl-target-file) #'my/pearl-capture-template
:empty-lines 1 :if-enabled (derived-mode-p
'prog-mode))
)
org-confirm-shell-link-function 'yes-or-no-p
org-archive-hook '(org-attach-archive-delete-maybe)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-occur-hook '(org-first-headline-recenter)
org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
org-ascii-format-drawer-function #[(_name contents _width) (contents) (t)]
org-bibtex-headline-format-function 'org-bibtex-headline-format-default
org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link :preview
org-attach-preview-file)
("finger" :export
#[(link description format _plist)
((elpher-org-export-link link description format "finger"))
(elpher-gemini-redirect-chain t)]
:follow #[(link _arg) ((elpher-org-follow-link link
"finger")) (elpher-gemini-redirect-chain t)])
("gophers" :export
#[(link description format _plist)
((elpher-org-export-link link description format "gophers"))
(elpher-gemini-redirect-chain t)]
:follow #[(link _arg) ((elpher-org-follow-link link
"gophers")) (elpher-gemini-redirect-chain t)])
("gopher" :export
#[(link description format _plist)
((elpher-org-export-link link description format "gopher"))
(elpher-gemini-redirect-chain t)]
:follow #[(link _arg) ((elpher-org-follow-link link
"gopher")) (elpher-gemini-redirect-chain t)])
("gemini" :export
#[(link description format _plist)
((elpher-org-export-link link description format "gemini"))
(elpher-gemini-redirect-chain t)]
:follow #[(link _arg) ((elpher-org-follow-link link
"gemini")) (elpher-gemini-redirect-chain t)])
("elpher" :store elpher-org-store-link :export
#[(link description format _plist)
((elpher-org-export-link link description format "elpher"))
(elpher-gemini-redirect-chain t)]
:follow #[(link _arg) ((elpher-org-follow-link link
"elpher")) (elpher-gemini-redirect-chain t)])
("eww" :follow org-eww-open :store
org-eww-store-link)
("rmail" :follow org-rmail-open :store
org-rmail-store-link)
("mhe" :follow org-mhe-open :store
org-mhe-store-link)
("irc" :follow org-irc-visit :store
org-irc-store-link :export org-irc-export)
("info" :follow org-info-open :export
org-info-export :store org-info-store-link :insert-description
org-info-description-as-command)
("gnus" :follow org-gnus-open :store
org-gnus-store-link)
("docview" :follow org-docview-open :export
org-docview-export :store org-docview-store-link)
("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
("bbdb" :follow org-bbdb-open :export
org-bbdb-export :complete org-bbdb-complete-link :store
org-bbdb-store-link)
("w3m" :store org-w3m-store-link) ("doi" :follow
org-link-doi-open :export org-link-doi-export)
("treemacs" :store treemacs-store-org-link) ("id"
:follow org-id-open :store org-id-store-link-maybe)
("file+sys") ("file+emacs") ("shell" :follow
org-link--open-shell)
("news" :follow #[(url arg) ((browse-url (concat
scheme ":" url) arg)) ((scheme . "news"))])
("mailto" :follow #[(url arg) ((browse-url (concat
scheme ":" url) arg)) ((scheme . "mailto"))])
("https" :follow #[(url arg) ((browse-url (concat
scheme ":" url) arg)) ((scheme . "https"))])
("http" :follow #[(url arg) ((browse-url (concat
scheme ":" url) arg)) ((scheme . "http"))])
("ftp" :follow #[(url arg) ((browse-url (concat
scheme ":" url) arg)) ((scheme . "ftp"))])
("shortdoc" :follow org-link--open-shortdoc :store
org-link--store-shortdoc :complete
org-link--complete-shortdoc)
("help" :follow org-link--open-help :store
org-link--store-help)
("file" :complete org-link-complete-file :preview
org-link-preview-file)
("elisp" :follow org-link--open-elisp))
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-sort-function 'string-collate-lessp
org--warnings '("org-element--cache: Org parser error in *Org Src init.org[
elisp ]*::1930. Resetting.\n The error was: (error \"rx ‘**’ range
error\")\n Backtrace:\n\" backtrace-to-string(nil)\n (progn
(backtrace-to-string (backtrace-get-frames 'backtrace)))\n (if (and
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn
(backtrace-to-string (backtrace-get-frames 'backtrace))))\n (format
\\\"Org parser error in %s::%S. Resetting.\\\\n The error was: %S\\\\n
Backtrace:\\\\n%S\\\\n Please report this to Org mode mailing list (M-x
org-submit-bug-report).\\\" (buffer-name (current-buffer)) epom err (if
(and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn
(backtrace-to-string (backtrace-get-frames 'backtrace)))))\n (let*
((format-string (format \\\"Org parser error in %s::%S. Resetting.\\\\n The
error was: %S\\\\n Backtrace:\\\\n%S\\\\n Please report this to Org mode
mailing list (M-x org-submit-bug-report).\\\" (buffer-name
(current-buffer)) epom err (if (and (fboundp 'backtrace-get-frames)
(fboundp 'backtrace-to-string)) (progn (backtrace-to-string
(backtrace-get-frames ...)))))) (format-string (if (or (not
org-element--cache-diagnostics-ring) (not (eq 'backtrace
org-element--cache-self-verify))) format-string (prog1 (concat (format
\\\"Warning(%s): \\\" (buffer-name ...)) format-string
\\\"\\\\nBacktrace:\\\\n \\\" (mapconcat #'identity (ring-elements
org-element--cache-diagnostics-ring) \\\"\\\\n \\\")) (setq
org-element--cache-diagnostics-ring nil))))) (if (and (boundp
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons
(concat \\\"org-element--cache: \\\" format-string) org--warnings))
(display-warning '(org-element org-element-cache) (concat
\\\"org-element--cache: \\\" format-string))))\n (condition-case err
(org-element--parse-to epom) ((debug error) (let* ((format-string (format
\\\"Org parser error in %s::%S. Resetting.\\\\n The error was: %S\\\\n
Backtrace:\\\\n%S\\\\n Please report this to Org mode mailing list (M-x
org-submit-bug-report).\\\" (buffer-name (current-buffer)) epom err (if
(and ... ...) (progn ...)))) (format-string (if (or (not
org-element--cache-diagnostics-ring) (not ...)) format-string (prog1
(concat ... format-string \\\"\\\\nBacktrace:\\\\n \\\" ...) (setq
org-element--cache-diagnostics-ring nil))))) (if (and (boundp
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons
(concat \\\"org-element--cache: \\\" format-string) org--warnings))
(display-warning '(org-element org-element-cache) (concat
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset)
(org-element--parse-to epom)))\n (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) (<
epom (aref (car org-element--cache-sync-requests) 1)))) (progn
(org-element--cache-find epom))) (condition-case err (org-element--parse-to
epom) ((debug error) (let* ((format-string (format \\\"Org parser error in
%s::%S. Resetting.\\\\n The error was: %S\\\\n Backtrace:\\\\n%S\\\\n
Please report this to Org mode mailing list (M-x
org-submit-bug-report).\\\" (buffer-name ...) epom err (if ... ...)))
(format-string (if (or ... ...) format-string (prog1 ... ...)))) (if (and
(boundp 'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons
(concat \\\"org-element--cache: \\\" format-string) org--warnings))
(display-warning '(org-element org-element-cache) (concat
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset)
(org-element--parse-to epom))))\n (setq element (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) (<
epom (aref (car org-element--cache-sync-requests) 1)))) (progn
(org-element--cache-find epom))) (condition-case err (org-element--parse-to
epom) ((debug error) (let* ((format-string (format \\\"Org parser error in
%s::%S. Resetting.\\\\n The error was: %S\\\\n Backtrace:\\\\n%S\\\\n
Please report this to Org mode mailing list (M-x
org-submit-bug-report).\\\" ... epom err ...)) (format-string (if ...
format-string ...))) (if (and (boundp ...) org-batch-test) (error
\\\"%s\\\" (concat \\\"org-element--cache: \\\" format-string)) (setq
org--warnings (cons ... org--warnings)) (display-warning '... (concat
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset)
(org-element--parse-to epom)))))\n (let (element) (if
(org-element--cache-active-p) (progn (if (not (save-current-buffer
(set-buffer (or ... ...)) org-element--cache)) (org-element-cache-reset)
(if cached-only nil (org-element--cache-sync (current-buffer) epom)))))
(setq element (if cached-only (if (and (org-element--cache-active-p) (or
(not org-element--cache-sync-requests) (< epom (aref ... 1)))) (progn
(org-element--cache-find epom))) (condition-case err (org-element--parse-to
epom) ((debug error) (let* ((format-string ...) (format-string ...)) (if
(and ... org-batch-test) (error \\\"%s\\\" ...) (setq org--warnings ...)
(display-warning ... ...))) (org-element-cache-reset)
(org-element--parse-to epom))))) (if (and (org-element--cache-active-p)
element (org-element--cache-verify-element element)) (progn (setq element
(org-element--parse-to epom)))) (if (eq (org-element-type element t)
'org-data) nil (if (and cached-only (not (and element (or (= epom ...) (and
... ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq
(org-element-type element t) 'section)) element (org-element-at-point (1+
epom) cached-only)))))\n (save-restriction (widen) (goto-char (or --mepom
(point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message \\\"`org-element-at-point' cannot be
used in non-Org buffer %S (%s)\\\" (current-buffer) major-mode))) (if (and
cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn (if (not (save-current-buffer
(set-buffer ...) org-element--cache)) (org-element-cache-reset) (if
cached-only nil (org-element--cache-sync (current-buffer) epom))))) (setq
element (if cached-only (if (and (org-element--cache-active-p) (or (not
org-element--cache-sync-requests) (< epom ...))) (progn
(org-element--cache-find epom))) (condition-case err (org-element--parse-to
epom) ((debug error) (let* (... ...) (if ... ... ... ...))
(org-element-cache-reset) (org-element--parse-to epom))))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not (and
element (or ... ... ... ...)))) nil (if (not (eq (org-element-type element
t) 'section)) element (org-element-at-point (1+ epom) cached-only))))))\n
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point)))
(if (derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message \\\"`org-element-at-point' cannot be
used in non-Org buffer %S (%s)\\\" (current-buffer) major-mode))) (if (and
cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn (if (not (save-current-buffer ...
org-element--cache)) (org-element-cache-reset) (if cached-only nil
(org-element--cache-sync ... epom))))) (setq element (if cached-only (if
(and (org-element--cache-active-p) (or ... ...)) (progn
(org-element--cache-find epom))) (condition-case err (org-element--parse-to
epom) ((debug error) (let* ... ...) (org-element-cache-reset)
(org-element--parse-to epom))))) (if (and (org-element--cache-active-p)
element (org-element--cache-verify-element element)) (progn (setq element
(org-element--parse-to epom)))) (if (eq (org-element-type element t)
'org-data) nil (if (and cached-only (not (and element ...))) nil (if (not
(eq ... ...)) element (org-element-at-point (1+ epom) cached-only)))))))\n
(save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer
--mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let*
((parray ...)) (if parray (let* ... ...) (let* ... ...)))) (progn
(set-buffer (let (...) (let* ... ...))))) (setq --mepom (let ((idx (or 0
0))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...)))))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point)))
(if (derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message \\\"`org-element-at-point' cannot be
used in non-Org buffer %S (%s)\\\" (current-buffer) major-mode))) (if (and
cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn (if (not ...)
(org-element-cache-reset) (if cached-only nil ...)))) (setq element (if
cached-only (if (and ... ...) (progn ...)) (condition-case err
(org-element--parse-to epom) (... ... ... ...)))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not ...))
nil (if (not ...) element (org-element-at-point ... cached-only))))))))\n
(let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer
(marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx ...)) (let*
(...) (if parray ... ...))) (progn (set-buffer (let ... ...)))) (setq
--mepom (let ((idx ...)) (let* (...) (if parray ... ...))))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point)))
(if (derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message \\\"`org-element-at-point' cannot be
used in non-Org buffer %S (%s)\\\" (current-buffer) major-mode))) (if (and
cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn (if ... ... ...))) (setq element (if
cached-only (if ... ...) (condition-case err ... ...))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element ...))) (if (eq (org-element-type element t)
'org-data) nil (if (and cached-only ...) nil (if ... element ...))))))))\n
(if (org-element-type epom t) epom (setq epom (or epom (point))) (let
((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer
(marker-buffer --mepom))) ((numberp --mepom)) (t (if (let (...) (let* ...
...)) (progn (set-buffer ...))) (setq --mepom (let (...) (let* ... ...)))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point)))
(if (derived-mode-p 'org-mode) nil (display-warning '... (format-message
\\\"`org-element-at-point' cannot be used in non-Org buffer %S (%s)\\\" ...
major-mode))) (if (and cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only nil)))
(let (element) (if (org-element--cache-active-p) (progn ...)) (setq element
(if cached-only ... ...)) (if (and ... element ...) (progn ...)) (if (eq
... ...) nil (if ... nil ...))))))))\n org-element-at-point()\n
(org-element-lineage-map (org-element-at-point) #'(lambda (el) (goto-char
(org-element-begin el)) (or invisible-ok (not (org-invisible-p))))
'(headline inlinetask) 'with-self 'first-match)\n (if
(org-element-lineage-map (org-element-at-point) #'(lambda (el) (goto-char
(org-element-begin el)) (or invisible-ok (not (org-invisible-p))))
'(headline inlinetask) 'with-self 'first-match) nil (user-error \\\"Before
first headline at position %d in buffer %s\\\" (point) (current-buffer)))\n
(or (and (org-at-heading-p (not invisible-ok)) (not (and (featurep
'org-inlinetask) (fboundp 'org-inlinetask-end-p) (org-inlinetask-end-p))))
(if (org-element-lineage-map (org-element-at-point) #'(lambda (el)
(goto-char (org-element-begin el)) (or invisible-ok (not
(org-invisible-p)))) '(headline inlinetask) 'with-self 'first-match) nil
(user-error \\\"Before first headline at position %d in buffer %s\\\"
(point) (current-buffer))))\n org-back-to-heading(t)\n (save-excursion
(org-back-to-heading t) (if (re-search-forward org-property-drawer-re
(save-excursion (outline-next-heading) (point)) t) (progn (let ((start
(match-beginning 0)) (end (match-end 0))) (list start end (- end
start))))))\n (progn (save-excursion (org-back-to-heading t) (if
(re-search-forward org-property-drawer-re (save-excursion
(outline-next-heading) (point)) t) (progn (let ((start (match-beginning 0))
(end (match-end 0))) (list start end (- end start)))))))\n eval((progn
(save-excursion (org-back-to-heading t) (if (re-search-forward
org-property-drawer-re (save-excursion (outline-next-heading) (point)) t)
(progn (let ((start ...) (end ...)) (list start end (- end start)))))))
t)\n elisp--eval-last-sexp(nil)\n #f(compiled-function () #<bytecode
0x6324661f6152>)()\n eval-last-sexp(nil)\n
funcall-interactively(eval-last-sexp nil)\n
command-execute(eval-last-sexp)\n\"\n Please report this to Org mode
mailing list (M-x org-submit-bug-report).")
org-babel-pre-tangle-hook '(save-buffer)
org-export-before-parsing-hook '(org-attach-expand-links)
org-link-shell-confirm-function 'yes-or-no-p
org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-babel-load-languages '((emacs-lisp . t) (shell . t) (python . t)
(sqlite . t) (sql . t) (clojure . t) (R . t) (octave . t))
org-agenda-loop-over-headlines-in-active-region nil
org-link-elisp-confirm-function 'yes-or-no-p
org-src-lang-modes '(("rust" . rustic) ("C" . c) ("C++" . c++)
("asymptote" . asy) ("beamer" . latex) ("calc" . fundamental)
("cpp" . c++) ("ditaa" . artist) ("desktop" .
conf-desktop) ("dot" . graphviz-dot) ("elisp" . emacs-lisp)
("ocaml" . tuareg) ("screen" . shell-script)
("sqlite" . sql) ("toml" . conf-toml) ("shell" . sh)
("ash" . sh) ("sh" . sh) ("bash" . sh) ("jsh" . sh)
("bash2" . sh) ("dash" . sh) ("dtksh" . sh)
("ksh" . sh) ("es" . sh) ("rc" . sh) ("itcsh" . sh)
("tcsh" . sh) ("jcsh" . sh) ("csh" . sh)
("ksh88" . sh) ("oash" . sh) ("pdksh" . sh) ("mksh" .
sh) ("posix" . sh) ("wksh" . sh) ("wsh" . sh)
("zsh" . sh) ("rpm" . sh))
org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-show-empty-lines org-cycle-optimize-window-after-visibility-change
org-cycle-display-link-previews)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
)
