emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[BUG] org-element--cache gives "Unregistered buffer modifications" warni


From: John Mathena
Subject: [BUG] org-element--cache gives "Unregistered buffer modifications" warning [9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/)]
Date: Sun, 7 Nov 2021 14:22:28 -0600

First time sending mail to the list; please let me know if I commit any breaches of etiquette or convention (e.g. on attaching backtraces as a file vs sending in message body).

I'll add a data point to the people that have been having trouble with org-element--cache recently; I get the warning shown below semi-frequently while I'm editing org files, seemingly at random, although I'll continue looking into what circumstances provoke it. At present, I can reproduce the error consistently using ox-hugo. I do:

$ emacs -Q -l ~/.emacs.d/straight/repos/straight.el/bootstrap.el

Then `M-x eval buffer` on the following buffer:

(straight-use-package 'org)
(straight-use-package 'ox-hugo)
(with-eval-after-load 'ox
  (require 'backtrace) ;;org-hugo-export-wim-to-md calls org-element--cache-sync, which uses backtrace-get-frames, which isn't autoloaded
  (require 'ox-hugo))

I then navigate to the following org-mode buffer, do `C-u M-x org-reload`, and do `C-c C-e H A` to try and export it using ox-hugo.

#+hugo_base_dir: ~
* Posts
** Emacs
:PROPERTIES:
:EXPORT_FILE_NAME: emacs
:END:
It's great!


Upon trying this, I get the following warning (Org setup and machine specs at the bottom).

Best,
John

Warning (emacs): org-element--cache: Unregistered buffer modifications detected. Resetting.
If this warning appears regularly, please report it to Org mode mailing list (M-x org-submit-bug-report).
The buffer is: *Ox-hugo Pre-processed bugfix.org *
 Current command: org-export-dispatch
 Backtrace:
"  backtrace-to-string(nil)
  (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames 'backtrace)))
  (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames 'backtrace)))) (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)) (warn \"%s\" (concat \"org-element--cache: \" format-string))))
  (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames 'backtrace)))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not (eq ... org-element--cache-self-verify))) format-string (prog1 (concat (format \"Warning(%s): \" ...) format-string \"\\nBacktrace:\\n  \" (mapconcat ... ... \"\\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)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset))
  (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames ...)))) (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)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn (if (or org-element--cache-diagnostics ...) (progn ...)))) (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next (progn ...)) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* ... ...) (if ... ...) (let* ... ...))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests))))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value)))))
  (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name ...) this-command (backtrace-to-string ...))) (format-string (if (or ... ...) format-string (prog1 ... ...)))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn (if ... ...))) (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next ...) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn ... ... ...)) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests))))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value))))))
  (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" ... this-command ...)) (format-string (if ... format-string ...))) (if (and (boundp ...) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn ...)) (while org-element--cache-sync-requests (setq request ... next ...) (org-element--cache-process-request request ... threshold ... future-change) (setq request ... next ...) (if next ...) (setq org-element--cache-sync-requests ...)))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value)))))))
  (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (warn \"%s\" ...))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit ...)) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests ...) (while org-element--cache-sync-requests ... ... ... ... ...))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value))))))))
  org-element--cache-sync(#<buffer *Ox-hugo Pre-processed bugfix.org *> #<marker at 141 in *Ox-hugo Pre-processed bugfix.org *>)
  (if cached-only nil (org-element--cache-sync (current-buffer) pom))
  (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom)))
  (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom))))
  (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom)))))
  (let (element) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom))))) (setq element (if cached-only (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (org-element--cache-key-less-p pom (aref (car org-element--cache-sync-requests) 0))) (org-element--cache-find pom)) (condition-case err (org-element--parse-to pom) (error (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (warn \"%s\" ...))) (org-element-cache-reset) (org-element--parse-to pom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to pom)))) (if (eq 'org-data (org-element-type element)) nil (if (and cached-only (not (and element (or (= pom ...) (and ... ... ...) (and ... ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type element) 'section)) element (org-element-at-point (1+ pom) cached-only)))))
  org-element-at-point(#<marker at 141 in *Ox-hugo Pre-processed bugfix.org *>)
  (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos (progn (goto-char from-pos) (org-element-property :begin (progn ... ...))))) (prev after-element) (node (if (memq granularity '(headline headline+inlinetask)) (org-element--headline-cache-root) (org-element--cache-root))) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if (or (byte-code-function-p func) (and (symbolp func) (subrp ...)) (and (symbolp func) (fboundp ...) (native-comp-available-p) (fboundp ...) (subr-native-elisp-p ...)) (version< emacs-version \"29\")) func (let ((warning-minimum-log-level :error) (inhibit-message t)) (condition-case nil (if ... ... ...) (error func))))) (next-element-re (let* ((pcase-0 #'...)) (cond ((eq granularity ...) (funcall pcase-0)) ((eq ... restrict-elements) (funcall pcase-0)) ((eq granularity ...) (cons ... ...)) (t nil)))) (next-re (if (and next-re (string= next-re (or ... next-element-re))) nil next-re)) (fail-re (if (and fail-re (string= fail-re (or ... next-element-re))) nil fail-re)) (restrict-elements (or restrict-elements (cond ((eq granularity ...) '...) ((eq granularity ...) '...) ((eq granularity ...) org-element-greater-elements) (t nil)))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (or (not next-element-re) (re-search-forward ... nil ...)) (if (or ... ...) nil (if ... ... ...) (if ... ...)) (setq continue-flag t node nil))) (set-match-data save-match-data-internal 'evaporate))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cache-change-tic (alist-get granularity org-element--cache-gapless)) (and (eq granularity 'element) (or next-re fail-re))) nil (let ((org-element-cache-map--recurse t)) (org-element-cache-map #'ignore :granularity granularity) (setq node (if (memq granularity ...) (org-element--headline-cache-root) (org-element--cache-root)))) (let* ((p (if ... ... ...)) (v org-element--cache-change-tic)) (progn (if p (setcdr p v) (setq org-element--cache-gapless ...)) v))) (while node (setq data (progn (progn (aref node 2)))) (if (and leftp (progn (progn ...)) (or (not prev) (not ...)) (or (not start) (not ...))) (progn (setq stack (cons node stack)) (setq node (progn ...))) (if (or (and start ...) (and prev ...)) nil (if (or ... ...) (let ... ... ...) (if ... ...) (if node ...))) (if continue-flag (setq continue-flag nil) (setq node (if ... ... ...)))))) (if (and org-element--cache-map-statistics (or (not org-element--cache-map-statistics-threshold) (> (- (float-time) time) org-element--cache-map-statistics-threshold))) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" (current-buffer) count-predicate-calls-match (+ count-predicate-calls-match count-predicate-calls-fail) (- (float-time) time) predicate-time (if (= 0 (+ count-predicate-calls-match count-predicate-calls-fail)) 0 (/ predicate-time (+ count-predicate-calls-match count-predicate-calls-fail))) granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result)))
  (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos (progn (goto-char from-pos) (org-element-property :begin ...)))) (prev after-element) (node (if (memq granularity '...) (org-element--headline-cache-root) (org-element--cache-root))) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if (or (byte-code-function-p func) (and ... ...) (and ... ... ... ... ...) (version< emacs-version \"29\")) func (let (... ...) (condition-case nil ... ...)))) (next-element-re (let* ((pcase-0 ...)) (cond (... ...) (... ...) (... ...) (t nil)))) (next-re (if (and next-re (string= next-re ...)) nil next-re)) (fail-re (if (and fail-re (string= fail-re ...)) nil fail-re)) (restrict-elements (or restrict-elements (cond (... ...) (... ...) (... org-element-greater-elements) (t nil)))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (or ... ...) (if ... nil ... ...) (setq continue-flag t node nil))) (set-match-data save-match-data-internal 'evaporate))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cache-change-tic (alist-get granularity org-element--cache-gapless)) (and (eq granularity ...) (or next-re fail-re))) nil (let ((org-element-cache-map--recurse t)) (org-element-cache-map #'ignore :granularity granularity) (setq node (if ... ... ...))) (let* ((p ...) (v org-element--cache-change-tic)) (progn (if p ... ...) v))) (while node (setq data (progn (progn ...))) (if (and leftp (progn ...) (or ... ...) (or ... ...)) (progn (setq stack ...) (setq node ...)) (if (or ... ...) nil (if ... ... ... ...)) (if continue-flag (setq continue-flag nil) (setq node ...))))) (if (and org-element--cache-map-statistics (or (not org-element--cache-map-statistics-threshold) (> (- ... time) org-element--cache-map-statistics-threshold))) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" (current-buffer) count-predicate-calls-match (+ count-predicate-calls-match count-predicate-calls-fail) (- (float-time) time) predicate-time (if (= 0 ...) 0 (/ predicate-time ...)) granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result))))
  (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos (progn ... ...))) (prev after-element) (node (if (memq granularity ...) (org-element--headline-cache-root) (org-element--cache-root))) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if (or ... ... ... ...) func (let ... ...))) (next-element-re (let* (...) (cond ... ... ... ...))) (next-re (if (and next-re ...) nil next-re)) (fail-re (if (and fail-re ...) nil fail-re)) (restrict-elements (or restrict-elements (cond ... ... ... ...))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if ... ... ...)) (set-match-data save-match-data-internal 'evaporate))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cache-change-tic ...) (and ... ...)) nil (let (...) (org-element-cache-map ... :granularity granularity) (setq node ...)) (let* (... ...) (progn ... v))) (while node (setq data (progn ...)) (if (and leftp ... ... ...) (progn ... ...) (if ... nil ...) (if continue-flag ... ...)))) (if (and org-element--cache-map-statistics (or (not org-element--cache-map-statistics-threshold) (> ... org-element--cache-map-statistics-threshold))) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" (current-buffer) count-predicate-calls-match (+ count-predicate-calls-match count-predicate-calls-fail) (- ... time) predicate-time (if ... 0 ...) granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result)))))
  (progn (if (org-element--cache-active-p) nil (error \"Cache must be active.\")) (if (memq granularity '(headline headline+inlinetask greater-element element)) nil (error \"Unsupported granularity: %S\" granularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos ...)) (prev after-element) (node (if ... ... ...)) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if ... func ...)) (next-element-re (let* ... ...)) (next-re (if ... nil next-re)) (fail-re (if ... nil fail-re)) (restrict-elements (or restrict-elements ...)) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse ... ...) nil (let ... ... ...) (let* ... ...)) (while node (setq data ...) (if ... ... ... ...))) (if (and org-element--cache-map-statistics (or ... ...)) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" ... count-predicate-calls-match ... ... predicate-time ... granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result))))))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:granularity :restrict-elements :next-re :fail-re :from-pos :to-pos :after-element :limit-count :narrow :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error \"Keyword argument %s not one of (:granularity :rest...\" (car --cl-keys--)))))) (progn (if (org-element--cache-active-p) nil (error \"Cache must be active.\")) (if (memq granularity '(headline headline+inlinetask greater-element element)) nil (error \"Unsupported granularity: %S\" granularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start ...) (prev after-element) (node ...) data (stack ...) (leftp t) result (last-match t) continue-flag (func ...) (next-element-re ...) (next-re ...) (fail-re ...) (restrict-elements ...) (time ...) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start ...)) (let (...) (unwind-protect ... ...)) (if (and start ...) nil (if ... nil ... ...) (while node ... ...)) (if (and org-element--cache-map-statistics ...) (progn ...)) (nreverse result)))))))
  (let* ((granularity (car (cdr (or (plist-member --cl-rest-- ':granularity) '(nil headline+inlinetask))))) (restrict-elements (car (cdr (plist-member --cl-rest-- ':restrict-elements)))) (next-re (car (cdr (plist-member --cl-rest-- ':next-re)))) (fail-re (car (cdr (plist-member --cl-rest-- ':fail-re)))) (from-pos (car (cdr (plist-member --cl-rest-- ':from-pos)))) (to-pos (car (cdr (or (plist-member --cl-rest-- ':to-pos) (list nil (point-max-marker)))))) (after-element (car (cdr (plist-member --cl-rest-- ':after-element)))) (limit-count (car (cdr (plist-member --cl-rest-- ':limit-count)))) (narrow (car (cdr (plist-member --cl-rest-- ':narrow))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error \"Keyword argument %s not one of (:granularity :rest...\" (car --cl-keys--)))))) (progn (if (org-element--cache-active-p) nil (error \"Cache must be active.\")) (if (memq granularity '(headline headline+inlinetask greater-element element)) nil (error \"Unsupported granularity: %S\" granularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* (... ... ... data ... ... result ... continue-flag ... ... ... ... ... ... ... ... ...) (goto-char ...) (let ... ...) (if ... nil ... ...) (if ... ...) (nreverse result))))))))
  org-element-cache-map((closure ((fast-re . \"^\\\\*+ \") (ts-date-pair) (ts-date-type) (ts-date) (priority) (entry) (marker) (todo) (txt) (i) (category) (level) (rtn1) (rtn) (llast . 0) (tags-alist (0)) (tags-list) (tags) (lspos) (props face default done-face org-agenda-done undone-face default mouse-face highlight org-not-done-regexp \"\\\\(TODO\\\\)\" org-todo-regexp \"\\\\(DONE\\\\|TODO\\\\)\" org-complex-heading-regexp \"^\\\\(\\\\*+\\\\)\\\\(?: +\\\\(DONE\\\\|TODO\\\\)\\\\)?\\\\(?: +\\\\(\\\\[#.\\\\]\\\\)\\\\)?...\" help-echo \"mouse-2 or RET jump to Org file \\\"~/bugfix.org\\\"\") (re . \"^\\\\*+  *\\\\(\\\\<\\\\(DONE\\\\|TODO\\\\)\\\\>\\\\)? *\\\\(.*?\\\\)\\\\([ \\11]:\\\\(?:...\") (start-level) (todo-only) (matcher lambda (todo tags-list level) (progn (setq org-cached-props nil) (or (and (org-string<> ... \"\"))))) (action . #f(compiled-function () #<bytecode 0x157433e69025>)) org-agenda-archives-mode org-end-time-was-given org-time-was-given org-blocked-by-checkboxes org-state org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name org-agenda-start-on-weekday org-agenda-buffer-tmp-name buffer-face-mode-face org-struct-menu org-last-state org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-export-registered-backends crm-separator org-indent-indentation-per-level org-agenda-buffer-name ...) (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp (point)) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (catch :skip (if (and (and (or (not todo-only) (member todo org-todo-keywords-1)) (if (functionp matcher) (let ... ...) matcher)) (progn (if (eq action ...) nil (org-agenda-skip el)) t) (or (not todo-only) (and (member todo org-todo-keywords-1) (or ... ...)))) (progn (cond ((eq action ...) (and org-highlight-sparse-tree-matches ... ... ...) (org-show-context ...)) ((eq action ...) (let* ... ... ...) (goto-char ...) (setq marker ...) (org-add-props txt props ... marker ... marker ... category ... todo ... ts-date ... priority ... ...) (setq rtn ...)) ((functionp action) (setq org-map-continue-from nil) (save-excursion ... ...)) (t (user-error \"Invalid action\"))) (if org-tags-match-list-sublevels nil (goto-char (1- ...)))))) (if org-map-continue-from (progn (goto-char org-map-continue-from))) nil) :next-re \"^\\\\*+ \" :fail-re \"^\\\\*+ \" :narrow t)
  (let ((fast-re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" (number-to-string start-level) \"\\\\} \") org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp ...) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (catch :skip (if (and (and ... ...) (progn ... t) (or ... ...)) (progn (cond ... ... ... ...) (if org-tags-match-list-sublevels nil ...)))) (if org-map-continue-from (progn (goto-char org-map-continue-from))) nil) :next-re fast-re :fail-re fast-re :narrow t))
  (if (org-element--cache-active-p) (let ((fast-re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" (number-to-string start-level) \"\\\\} \") org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair ... ts-date ... ts-date-type ...))) (catch :skip (if (and ... ... ...) (progn ... ...))) (if org-map-continue-from (progn (goto-char org-map-continue-from))) nil) :next-re fast-re :fail-re fast-re :narrow t)) (while (let (case-fold-search) (re-search-forward re nil t)) (setq org-map-continue-from nil) (catch :skip (if (and (fboundp 'org-inlinetask-end-p) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (match-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (org-trim (match-string-no-properties 4)))) (goto-char (setq lspos (match-beginning 0))) (setq level (org-reduced-level (org-outline-level)) category (org-get-category)) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp (point)) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (setq i llast llast level) (while (>= i level) (if (setq entry (assoc i tags-alist)) (progn (setq tags-alist (delete entry tags-alist)))) (setq i (1- i))) (if tags (progn (setq tags (org-split-string tags \":\") tags-alist (cons (cons level tags) tags-alist)))) (setq tags-list (if org-use-tag-inheritance (apply 'append (mapcar 'cdr (reverse tags-alist))) tags) org-scanner-tags tags-list) (if org-use-tag-inheritance (progn (setcdr (car tags-alist) (mapcar #'... (cdr ...))))) (if (and tags org-use-tag-inheritance (or (not (eq t org-use-tag-inheritance)) org-tags-exclude-from-inheritance)) (progn (setcdr (car tags-alist) (org-remove-uninherited-tags (cdr ...))))) (if (and (and (or (not todo-only) (member todo org-todo-keywords-1)) (if (functionp matcher) (let ... ...) matcher)) (progn (if (eq action ...) nil (org-agenda-skip)) t) (or (not todo-only) (and (member todo org-todo-keywords-1) (or ... ...)))) (progn (cond ((eq action ...) (and org-highlight-sparse-tree-matches ... ... ...) (org-show-context ...)) ((eq action ...) (setq txt ... priority ...) (goto-char lspos) (setq marker ...) (org-add-props txt props ... marker ... marker ... category ... todo ... ts-date ... priority ... ...) (setq rtn ...)) ((functionp action) (setq org-map-continue-from nil) (save-excursion ... ...)) (t (user-error \"Invalid action\"))) (if org-tags-match-list-sublevels nil (org-end-of-subtree t) (backward-char 1))))) (if org-map-continue-from (goto-char org-map-continue-from) (and (= (point) lspos) (end-of-line 1)))))
  (save-excursion (goto-char (point-min)) (if (eq action 'sparse-tree) (progn (org-overview) (org-remove-occur-highlights))) (if (org-element--cache-active-p) (let ((fast-re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" ... \"\\\\} \") org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action ...) (progn ...)) (catch :skip (if ... ...)) (if org-map-continue-from (progn ...)) nil) :next-re fast-re :fail-re fast-re :narrow t)) (while (let (case-fold-search) (re-search-forward re nil t)) (setq org-map-continue-from nil) (catch :skip (if (and (fboundp 'org-inlinetask-end-p) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (match-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (org-trim (match-string-no-properties 4)))) (goto-char (setq lspos (match-beginning 0))) (setq level (org-reduced-level (org-outline-level)) category (org-get-category)) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp ...) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (setq i llast llast level) (while (>= i level) (if (setq entry (assoc i tags-alist)) (progn (setq tags-alist ...))) (setq i (1- i))) (if tags (progn (setq tags (org-split-string tags \":\") tags-alist (cons ... tags-alist)))) (setq tags-list (if org-use-tag-inheritance (apply 'append (mapcar ... ...)) tags) org-scanner-tags tags-list) (if org-use-tag-inheritance (progn (setcdr (car tags-alist) (mapcar ... ...)))) (if (and tags org-use-tag-inheritance (or (not ...) org-tags-exclude-from-inheritance)) (progn (setcdr (car tags-alist) (org-remove-uninherited-tags ...)))) (if (and (and (or ... ...) (if ... ... matcher)) (progn (if ... nil ...) t) (or (not todo-only) (and ... ...))) (progn (cond (... ... ...) (... ... ... ... ... ...) (... ... ...) (t ...)) (if org-tags-match-list-sublevels nil (org-end-of-subtree t) (backward-char 1))))) (if org-map-continue-from (goto-char org-map-continue-from) (and (= (point) lspos) (end-of-line 1))))))
  (let* ((re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" (number-to-string start-level) \"\\\\} \") org-outline-regexp) \" *\\\\(\" (regexp-opt org-todo-keywords-1 'words) \"\\\\)?\" \" *\\\\(.*?\\\\)\\\\([ \\11]:\\\\(?:\" org-tag-re \":\\\\)+\\\\)?[ \\11]*$\")) (props (list 'face 'default 'done-face 'org-agenda-done 'undone-face 'default 'mouse-face 'highlight 'org-not-done-regexp org-not-done-regexp 'org-todo-regexp org-todo-regexp 'org-complex-heading-regexp org-complex-heading-regexp 'help-echo (format \"mouse-2 or RET jump to Org file %S\" (abbreviate-file-name (or (buffer-file-name ...) (buffer-name ...)))))) (org-map-continue-from nil) lspos tags tags-list (tags-alist (list (cons 0 org-file-tags))) (llast 0) rtn rtn1 level category i txt todo marker entry priority ts-date ts-date-type ts-date-pair) (if (or (member action '(agenda sparse-tree)) (functionp action)) nil (setq action (list 'lambda nil action))) (save-excursion (goto-char (point-min)) (if (eq action 'sparse-tree) (progn (org-overview) (org-remove-occur-highlights))) (if (org-element--cache-active-p) (let ((fast-re (concat \"^\" (if start-level ... org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char ...) (setq todo ... level ... category ... tags-list ... org-scanner-tags tags-list) (if ... ...) (catch :skip ...) (if org-map-continue-from ...) nil) :next-re fast-re :fail-re fast-re :narrow t)) (while (let (case-fold-search) (re-search-forward re nil t)) (setq org-map-continue-from nil) (catch :skip (if (and (fboundp ...) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (match-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (org-trim ...))) (goto-char (setq lspos (match-beginning 0))) (setq level (org-reduced-level (org-outline-level)) category (org-get-category)) (if (eq action 'agenda) (progn (setq ts-date-pair ... ts-date ... ts-date-type ...))) (setq i llast llast level) (while (>= i level) (if (setq entry ...) (progn ...)) (setq i (1- i))) (if tags (progn (setq tags ... tags-alist ...))) (setq tags-list (if org-use-tag-inheritance (apply ... ...) tags) org-scanner-tags tags-list) (if org-use-tag-inheritance (progn (setcdr ... ...))) (if (and tags org-use-tag-inheritance (or ... org-tags-exclude-from-inheritance)) (progn (setcdr ... ...))) (if (and (and ... ...) (progn ... t) (or ... ...)) (progn (cond ... ... ... ...) (if org-tags-match-list-sublevels nil ... ...)))) (if org-map-continue-from (goto-char org-map-continue-from) (and (= (point) lspos) (end-of-line 1)))))) (if (and (eq action 'sparse-tree) (not org-sparse-tree-open-archived-trees)) (progn (org-hide-archived-subtrees (point-min) (point-max)))) (nreverse rtn))
  org-scan-tags(#f(compiled-function () #<bytecode 0x157433e69025>) (lambda (todo tags-list level) (progn (setq org-cached-props nil) (or (and (org-string<> (or (org-cached-entry-get nil \"EXPORT_FILE_NAME\") \"\") \"\"))))) nil nil)
  (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))
  (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level)))
  (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction (widen) (goto-char ...) (setq res ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
  (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-next-heading)) (setq start-level (org-current-level))))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and (bolp) (org-at-heading-p)) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction ... ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
  (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char ...) (if ... nil ...) (setq start-level ...)))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and ... ...) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list ...))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file ...)) (save-current-buffer (set-buffer ...) (save-excursion ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
  (let* ((org-agenda-archives-mode nil) (org-agenda-skip-archived-trees (memq 'archive skip)) (org-agenda-skip-comment-trees (memq 'comment skip)) (org-agenda-skip-function (car (org-delete-all '(comment archive) skip))) (org-tags-match-list-sublevels t) (start-level (eq scope 'region-start-level)) matcher res org-todo-keywords-for-agenda org-done-keywords-for-agenda org-todo-keyword-alist-for-agenda org-tag-alist-for-agenda org--matcher-tags-todo-only) (cond ((eq match t) (setq matcher t)) ((eq match nil) (setq matcher t)) (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t)))) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope ...) (eq scope ...)) (org-region-active-p)) (if start-level (progn (save-excursion ... ... ...))) (narrow-to-region (region-beginning) (save-excursion (goto-char ...) (if ... nil ...) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp ...)) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name ...))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files ...)))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let (...) (save-current-buffer ... ...) (setq --dolist-tail-- ...))))))) res)
  (if (and (or (eq scope 'region) (eq scope 'region-start-level)) (not (org-region-active-p))) nil (let* ((org-agenda-archives-mode nil) (org-agenda-skip-archived-trees (memq 'archive skip)) (org-agenda-skip-comment-trees (memq 'comment skip)) (org-agenda-skip-function (car (org-delete-all '(comment archive) skip))) (org-tags-match-list-sublevels t) (start-level (eq scope 'region-start-level)) matcher res org-todo-keywords-for-agenda org-done-keywords-for-agenda org-todo-keyword-alist-for-agenda org-tag-alist-for-agenda org--matcher-tags-todo-only) (cond ((eq match t) (setq matcher t)) ((eq match nil) (setq matcher t)) (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t)))) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or ... ...) (org-region-active-p)) (if start-level (progn ...)) (narrow-to-region (region-beginning) (save-excursion ... ... ...)) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name ...)) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope ... ...) (setq scope ...)) ((eq scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ... ... ...)))))) res))
  org-map-entries(#f(compiled-function () #<bytecode 0x157433e69025>) \"EXPORT_FILE_NAME<>\\\"\\\"\")
  org-hugo-export-wim-to-md(:all-subtrees nil nil)
  (lambda (a _s v _b) (org-hugo-export-wim-to-md :all-subtrees a v))(nil nil nil nil)
  org-export-dispatch(nil)
  funcall-interactively(org-export-dispatch nil)
  call-interactively(org-export-dispatch nil nil)
  command-execute(org-export-dispatch)


Emacs  : GNU Emacs 27.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.27, cairo version 1.17.4)
 of 2021-03-26
Package: Org mode version 9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/)


current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-link-shell-confirm-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-mode-hook '((closure
 (org--rds reftex-docstruct-symbol visual-fill-column-width 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-blocked-by-checkboxes org-state
  org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name org-agenda-start-on-weekday
  org-agenda-buffer-tmp-name buffer-face-mode-face org-struct-menu org-last-state
  org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options
  iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula
  calc-embedded-close-formula align-mode-rules-list org-export-registered-backends crm-separator
  org-indent-indentation-per-level org-agenda-buffer-name org-inlinetask-min-level t)
 nil (add-hook 'change-major-mode-hook 'org-show-all 'append 'local))
(closure (*this* org-babel-confirm-evaluate-answer-no t) nil
 (add-hook 'change-major-mode-hook #'org-babel-show-result-all 'append 'local))
#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-all append local] 5]
#[0 "\300\301\302\303\304$\207"
  [add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-persist-after-read-hook '(org-element--cache-persist-after-read)
 org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3 "\n\n(fn ENTRY)"]
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-agenda-loop-over-headlines-in-active-region nil
 org-occur-hook '(org-first-headline-recenter)
 org-export-before-processing-hook '(org-blackfriday--reset-org-blackfriday--code-block-num-backticks)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
 org-optimize-window-after-visibility-change)
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("attachment" :follow org-attach-follow :complete org-attach-complete-link)
      ("id" :follow org-id-open) ("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)
      ("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) ("file+sys") ("file+emacs")
      ("shell" :follow org-link--open-shell)
      ("news" :follow
#[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("mailto" :follow
#[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("https" :follow
#[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("http" :follow
#[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("ftp" :follow #[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("help" :follow org-link--open-help :store org-link--store-help)
      ("file" :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp))
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-link-elisp-confirm-function 'yes-or-no-p
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-html-format-headline-function 'org-html-format-headline-default-function
 )
      ("news" :follow
#[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("mailto" :follow
#[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("https" :follow
#[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("http" :follow
#[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("ftp" :follow #[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"])
      ("help" :follow org-link--open-help :store org-link--store-help)
      ("file" :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp))
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-link-elisp-confirm-function 'yes-or-no-p
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-html-format-headline-function 'org-html-format-headline-default-function
 )

reply via email to

[Prev in Thread] Current Thread [Next in Thread]