[-- Attachment #1: Type: text/plain, Size: 292646 bytes --] I just updated to org v 9.5, and now, when I open an org file, I get a cache error message (between the '=' lines below). Before 9.5, I didn't have this problem. === Error in *Warnings* buffer ===================== Warning (emacs): org-element--cache: (nil) Cached element is incorrect in energytop.org. (Cache tic up to date: "yes") Resetting. If this warning appears regularly, please report it to Org mode mailing list (M-x org-submit-bug-report). The element is: "(paragraph (:begin 549781 :end 549835 :contents-begin 549781 :contents-end 549835 :post-blank 0 :post-affiliated 549781 :mode nil :granularity element :cached t :parent (headline (:raw-value \"<<Regime Learning>>\" :begin 518811 :end 558983 :pre-blank 0 :contents-begin 518833 :contents-end 558983 :robust-begin 518835 :robust-end 558981 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 518811 :title \"<<Regime Learning>>\" :mode nil :granularity element :cached t :parent (org-data ...)))))" The real element is: "(paragraph (:begin 549660 :end 549835 :contents-begin 549660 :contents-end 549835 :post-blank 0 :post-affiliated 549660 :mode planning :granularity element :parent (section (:begin 549660 :end 549835 :contents-begin 549660 :contents-end 549835 :robust-begin 549660 :robust-end 549833 :post-blank 0 :post-affiliated 549660 :mode section :granularity element :parent (headline ...)))))" Cache around :begin: (headline (:raw-value "Online Learning of Regimes" :begin 530780 :end 536062 :pre-blank 0 :contents-begin 530811 :contents-end 536062 :robust-begin 530813 :robust-end 536060 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 530780 :title "Online Learning of Regimes" :mode nil :granularity element :cached t :parent (headline (:raw-value "<<Regime Learning>>" :begin 518811 :end 558983 :pre-blank 0 :contents-begin 518833 :contents-end 558983 :robust-begin 518835 :robust-end 558981 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 518811 :title "<<Regime Learning>>" :mode nil :granularity element :cached t :parent (org-data (:begin 1 :contents-begin 1 :contents-end 1106779 :end 1106779 :robust-begin 3 :robust-end 1106777 :post-blank 0 :post-affiliated 1 :path "c:/Users/scott/OneDrive/share/ref/energytop.org" :mode org-data :CATEGORY "energytop" :cached t)))))) (headline (:raw-value "Online Learning of Regimes" :begin 530780 :end 536062 :pre-blank 0 :contents-begin 530811 :contents-end 536062 :robust-begin 530813 :robust-end 536060 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 530780 :title "Online Learning of Regimes" :mode nil :granularity element :cached t :parent (headline (:raw-value "<<Regime Learning>>" :begin 518811 :end 558983 :pre-blank 0 :contents-begin 518833 :contents-end 558983 :robust-begin 518835 :robust-end 558981 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 518811 :title "<<Regime Learning>>" :mode nil :granularity element :cached t :parent (org-data (:begin 1 :contents-begin 1 :contents-end 1106779 :end 1106779 :robust-begin 3 :robust-end 1106777 :post-blank 0 :post-affiliated 1 :path "c:/Users/scott/OneDrive/share/ref/energytop.org" :mode org-data :CATEGORY "energytop" :cached t)))))) (paragraph (:begin 549781 :end 549835 :contents-begin 549781 :contents-end 549835 :post-blank 0 :post-affiliated 549781 :mode nil :granularity element :cached t :parent (headline (:raw-value "<<Regime Learning>>" :begin 518811 :end 558983 :pre-blank 0 :contents-begin 518833 :contents-end 558983 :robust-begin 518835 :robust-end 558981 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 518811 :title "<<Regime Learning>>" :mode nil :granularity element :cached t :parent (org-data (:begin 1 :contents-begin 1 :contents-end 1106779 :end 1106779 :robust-begin 3 :robust-end 1106777 :post-blank 0 :post-affiliated 1 :path "c:/Users/scott/OneDrive/share/ref/energytop.org" :mode org-data :CATEGORY "energytop" :cached t)))))) ======================================================================= Emacs Config info ------------------------------------------------------------------------ Emacs : GNU Emacs 27.2 (build 1, x86_64-w64-mingw32) of 2021-03-26 Package: Org mode version 9.5 (9.5-gd4e192 @ c:/Users/scott/.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-appear-autoentities t org-table-header-line-p t org-refile-targets '((nil :maxlevel . 6)) org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function org-noter-auto-save-last-location t org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree) (insert (format "cite:%s\n" (org-entry-get (point) "CUSTOM_ID")) ) ) ) org-odt-format-headline-function 'org-odt-format-headline-default-function org-latex-pdf-process '("latexmk -pdf -output-directory=%o -f %f") org-download-annotate-function 'org-download-annotate-default org-persist-before-write-hook '(org-element--cache-persist-before-write) org-agenda-files '("c:/Users/scott/OneDrive/share/proj/roadmapFrcst/ forecast_roadmap.org" "c:/Users/scott/OneDrivef/energytop.org" "c:/Users/scott/OneDrive/ref/DOE_brainstorm/20200605152244-test0.org" "c:/Users/scott/OneDrive/ref/tmp.org") org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default org-modules '(ol-bibtex ol-info org-inlinetask org-mouse ol-eshell ol-man org-mouse org-protocol) org-cycle-include-plain-lists 'integrate org-mode-hook '(#[0 "\305\x10\306 >\203\x14\0\307\n\310\311#\210\307 \312\313#\210\307 \314\315#\210\306 >\203,\0\307\n\316\317#\210\307\n\320\321#\210\322 >\203>\0\307 \323\324#\210\307 \325\324#\210\326 >\203P\0\307\n\327\317#\210\307\n\330\321#\210\331 >\203_\0\332\311\f\333BC\334#\210\335 >\203k\0\332\311\336\334#\210\337 >\203w\0\332\311\340\334#\210\341\342\343\344\311$\210\345\342\311\"\210\342\207" [org-mouse-context-menu-function org-mouse-features org-mouse-map org-mode-map org-outline-regexp org-mouse-context-menu context-menu org-defkey [mouse-3] nil [mouse-3] org-mouse-show-context-menu [down-mouse-1] org-mouse-down-mouse [C-drag-mouse-1] org-mouse-move-tree [C-down-mouse-1] org-mouse-move-tree-start yank-link [S-mouse-2] org-mouse-yank-link [drag-mouse-3] move-tree [drag-mouse-3] [down-mouse-3] activate-stars font-lock-add-keywords (0 `(face org-link mouse-face highlight keymap ,org-mouse-map) 'prepend) t activate-bullets (("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +" (1 `(face org-link keymap ,org-mouse-map mouse-face highlight) 'prepend) ) ) activate-checkboxes (("^[ ]*\\(?:[-+*]\\|[0-9]+[.)]\\)[ ]+\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ ]*\\)?\\(\\[[- X]\\]\\)" (1 `(face nil keymap ,org-mouse-map mouse-face highlight) prepend) ) ) ad-add-advice org-open-at-point (org-mouse-open-at-point nil t (advice lambda nil (let ((context (org-context) ) ) (cond ((assq :headline-stars context) (org-cycle) ) ((assq :checkbox context) (org-toggle-checkbox) ) ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t) ) (org-cycle) ) ) ((org-footnote-at-reference-p) nil) (t ad-do-it) ) ) ) ) around ad-activate] 5] org-ref-org-menu wrap-region-mode org-superstar-mode #[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-autolist-mode org-appear-mode org-ref-setup-label-finders) org-ref-insert-cite-function 'org-ref-helm-insert-cite-link org-yank-adjusted-subtrees t org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-outline-path-complete-in-steps nil org-archive-hook '(org-attach-archive-delete-maybe) org-persist-before-read-hook '(org-element--cache-persist-before-read) org-superstar-headline-bullets-list '("●" "■" "○" "►" "•" "□" "▸" "▫" "▹") org-confirm-elisp-link-function 'yes-or-no-p org-noter-doc-property-in-notes t org-download-file-format-function 'org-download-file-format-default org-appear-autolinks t org-ref-clean-bibtex-key-function '(lambda (key) (replace-regexp-in-string ":" "" key)) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-metaup-hook '(org-babel-load-in-session-maybe) org-noter-notes-search-path '("c:/Users/scott/OneDrive/share/ref/DOE_brainstorm/org-notes") org-persist-after-read-hook '(org-element--cache-persist-after-read) org-bibtex-headline-format-function #[257 "\300\x01\236A\207" [:title] 3 "\n\n(fn ENTRY)"] org-download-method 'org-download-method-dirname-from-orgfile org-ref-cite-keymap '(keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) org-pandoc-options-for-beamer-pdf '((latex-engine . "lualatex")) org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"] org-babel-pre-tangle-hook '(save-buffer) org-file-apps '(("\\.docx\\'" . default) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . default) (auto-mode . emacs)) org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-export-with-broken-links 'mark org-hide-leading-stars t org-ref-clean-bibtex-entry-hook '(org-ref-bibtex-format-url-if-doi orcb-key-comma org-ref-replace-nonascii orcb-& orcb-% org-ref-title-case-article orcb-clean-year orcb-key orcb-clean-doi orcb-clean-pages orcb-check-journal org-ref-sort-bibtex-entry orcb-fix-spacing) org-hide-emphasis-markers t org-export-backends '(ascii html latex odt org) org-ref-insert-label-function 'org-ref-helm-insert-label-link org-font-lock-hook '(org-inlinetask-fontify) org-ref-open-pdf-function 'org-ref-open-pdf-at-point org-startup-align-all-tables t org-ascii-format-drawer-function #[771 "\x01\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"] org-ellipsis "…" org-superstar-todo-bullet-alist '(("TODO" . 9646) ("DONE" . 9647)) org-ref-open-notes-function '(lambda nil (org-show-entry) (outline-show-branches) (outline-show-children) (org-cycle '(64)) (recenter-top-bottom 0)) org-agenda-loop-over-headlines-in-active-region nil org-occur-case-fold-search ''smart org-appear-autokeywords t org-occur-hook '(org-first-headline-recenter) org-agenda-mode-hook '(#[0 "\302\x10\303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210\303 \314\315#\207" [org-mouse-context-menu-function org-agenda-mode-map org-mouse-agenda-context-menu org-defkey [mouse-3] org-mouse-show-context-menu [down-mouse-3] org-mouse-move-tree-start [C-mouse-4] org-agenda-earlier [C-mouse-5] org-agenda-later [drag-mouse-3] #[257 "\300\x01!\211\301\267\202\x15\0\302\303!\202\x16\0\304\303!\202\x16\0\305\207" [org-mouse-get-gesture #s (hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:left 9 :right 15) ) org-agenda-earlier 1 org-agenda-later nil] 4 "\n\n(fn EVENT)" "e"] ] 4] ) outline-minor-mode-hook '(outshine--outline-minor-mode-hook outshine-mode) org-noter-notes-window-location 'other-frame org-noter-hide-other nil org-appear-autosubmarkers t org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file org-ref-insert-link-function 'org-ref-helm-insert-cite-link org-ref-insert-ref-function 'org-ref-helm-insert-ref-link org-odd-levels-only t org-pandoc-options-for-docx '((standalone)) org-cycle-hook '(org-inlinetask-hide-tasks 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-id-method 'ts org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function org-appear-delay 1 org-ref-pdf-to-bibtex-function 'copy-file org-export-before-parsing-hook '(org-ref-acronyms-before-parsing org-ref-glossary-before-parsing org-attach-expand-links) org-font-lock-set-keywords-hook '(org-hidden-links-hook-function) org-confirm-shell-link-function 'yes-or-no-p org-link-parameters '(("man" :follow org-man-open :export org-man-export :store org-man-store-link) ("eshell" :follow org-eshell-open :store org-eshell-store-link) ("info" :follow org-info-open :export org-info-export :store org-info-store-link) ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link) ("printindex" :follow org-ref-index :export #[(path desc format) "\b\301=\205 \0\300\302!\207" [format latex "\\printindex"] 2] ) ("index" :follow #[(path) "\301\b!\207" [path occur] 2] :export #[(path desc format) "\b\302=\205\n\0\300\303 \"\207" [format path latex "\\index{%s}"] 3] ) ("bibentry" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-bibentry :complete org-bibentry-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Autocites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Autocites :complete org-Autocites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("autocites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-autocites :complete org-autocites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("supercites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-supercites :complete org-supercites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Textcites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Textcites :complete org-Textcites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("textcites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-textcites :complete org-textcites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Smartcites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Smartcites :complete org-Smartcites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("smartcites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-smartcites :complete org-smartcites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("footcitetexts" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-footcitetexts :complete org-footcitetexts-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("footcites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-footcites :complete org-footcites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Parencites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Parencites :complete org-Parencites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("parencites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-parencites :complete org-parencites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Cites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Cites :complete org-Cites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("cites" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-cites :complete org-cites-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("fnotecite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-fnotecite :complete org-fnotecite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Pnotecite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Pnotecite :complete org-Pnotecite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("pnotecite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-pnotecite :complete org-pnotecite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Notecite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Notecite :complete org-Notecite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("notecite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-notecite :complete org-notecite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("footfullcite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-footfullcite :complete org-footfullcite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("fullcite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-fullcite :complete org-fullcite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citeurl" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citeurl :complete org-citeurl-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citedate*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citedate* :complete org-citedate*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citedate" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citedate :complete org-citedate-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citetitle*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citetitle* :complete org-citetitle*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citetitle" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citetitle :complete org-citetitle-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Citeauthor*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Citeauthor* :complete org-Citeauthor*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Autocite*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Autocite* :complete org-Autocite*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("autocite*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-autocite* :complete org-autocite*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Autocite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Autocite :complete org-Autocite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("autocite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-autocite :complete org-autocite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("supercite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-supercite :complete org-supercite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("parencite*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-parencite* :complete org-parencite*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("cite*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-cite* :complete org-cite*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Smartcite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Smartcite :complete org-Smartcite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("smartcite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-smartcite :complete org-smartcite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Textcite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Textcite :complete org-Textcite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("textcite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-textcite :complete org-textcite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("footcitetext" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-footcitetext :complete org-footcitetext-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("footcite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-footcite :complete org-footcite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Parencite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Parencite :complete org-Parencite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("parencite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-parencite :complete org-parencite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Cite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Cite :complete org-Cite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Citeauthor" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Citeauthor :complete org-Citeauthor-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Citealp" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Citealp :complete org-Citealp-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Citealt" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Citealt :complete org-Citealt-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Citep" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Citep :complete org-Citep-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("Citet" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-Citet :complete org-Citet-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citeyearpar" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citeyearpar :complete org-citeyearpar-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citeyear*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citeyear* :complete org-citeyear*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citeyear" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citeyear :complete org-citeyear-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citeauthor*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citeauthor* :complete org-citeauthor*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citeauthor" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citeauthor :complete org-citeauthor-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citetext" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citetext :complete org-citetext-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citenum" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citenum :complete org-citenum-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citealp*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citealp* :complete org-citealp*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citealp" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citealp :complete org-citealp-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citealt*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citealt* :complete org-citealt*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citealt" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citealt :complete org-citealt-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citep*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citep* :complete org-citep*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citep" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citep :complete org-citep-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citet*" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citet* :complete org-citet*-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("citet" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-citet :complete org-citet-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("nocite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-nocite :complete org-nocite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display full :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) ) ("cite" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export org-ref-format-cite :complete org-cite-complete-link :help-echo (lambda (window object position) (when org-ref-show-citation-on-enter (save-excursion (goto-char position) (let ((s (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)) ) ) (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)) ) ) ) ) :face org-ref-cite-link-face-fn :display org-link :keymap (keymap (tab lambda nil (interactive) (funcall org-ref-insert-cite-function)) (S-up . org-ref-sort-citation-link) (S-right lambda nil (interactive) (org-ref-swap-citation-link 1)) (S-left lambda nil (interactive) (org-ref-swap-citation-link -1)) (C-right . org-ref-next-key) (C-left . org-ref-previous-key) (16777337 lambda nil "Paste key at point. Assumes the first thing in the killring is a key." (interactive) (org-ref-insert-key-at-point (car kill-ring))) (16777303 lambda nil "Copy all the keys at point." (interactive) (kill-new (org-element-property :path (org-element-context))) ) (16777335 lambda nil (interactive) (kill-new (car (org-ref-get-bibtex-key-and-file)))) (16777318 lambda nil (interactive) (save-excursion (org-ref-open-citation-at-point) (kill-new (org-ref-format-bibtex-entry-at-point))) ) (16777319 . org-ref-google-scholar-at-point) (16777317 lambda nil "Email entry at point" (interactive) (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry)) (16777315 . org-ref-wos-citing-at-point) (16777330 . org-ref-wos-related-at-point) (16777326 . org-ref-open-notes-at-point) (16777328 lambda nil (interactive) (funcall org-ref-open-pdf-function)) (16777333 . org-ref-open-url-at-point) (16777314 . org-ref-open-citation-at-point) (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) :store org-ref-bibtex-store-link) ("Cref" :follow org-ref-ref-follow :export org-ref-Cref-export :complete #[(&optional arg) "\301\b\302\"\207" [arg org-ref-complete-link "Cref"] 3] :face org-ref-ref-face-fn :help-echo org-ref-ref-help-echo) ("cref" :follow org-ref-ref-follow :export org-ref-cref-export :complete #[(&optional arg) "\301\b\302\"\207" [arg org-ref-complete-link "cref"] 3] :face org-ref-ref-face-fn :help-echo org-ref-ref-help-echo) ("autoref" :follow org-ref-ref-follow :export org-ref-autoref-export :complete #[(&optional arg) "\301\b\302\"\207" [arg org-ref-complete-link "autoref"] 3] :face org-ref-ref-face-fn :help-echo org-ref-ref-help-echo) ("eqref" :follow org-ref-ref-follow :export org-ref-eqref-export :complete #[(&optional arg) "\301\b\302\"\207" [arg org-ref-complete-link "eqref"] 3] :face org-ref-ref-face-fn :help-echo org-ref-ref-help-echo) ("nameref" :follow org-ref-ref-follow :export org-ref-export-nameref :complete #[(&optional arg) "\301\b\302\"\207" [arg org-ref-complete-link "nameref"] 3] :face org-ref-ref-face-fn :help-echo org-ref-ref-help-echo) ("pageref" :follow org-ref-ref-follow :export #[(path desc format) "\b\302\267\202\x10\0\300\303 \"\207\300\304 \"\207\305\207" [format path #s (hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 6 latex 11) ) "(<pageref>%s</pageref>)" "\\pageref{%s}" nil] 3] :face org-ref-ref-face-fn :complete #[(&optional arg) "\301\b\302\"\207" [arg org-ref-complete-link "pageref"] 3] :help-echo org-ref-ref-help-echo) ("ref" :follow org-ref-ref-follow :export org-ref-ref-export :complete #[(&optional arg) "\301\b\302\"\207" [arg org-ref-complete-link "ref"] 3] :face org-ref-ref-face-fn :help-echo org-ref-ref-help-echo) ("label" :follow #[(label) "\302\b!\x19\303\304\305 \211\306U\204\x14\0 \307V\203\x18\0\310\202\x19\0\311#\302\b!\")\207" [label count org-ref-count-labels message format "%s occurence%s" 0 1 "s" ""] 6 "On clicking count the number of label tags used in the buffer.\nA number greater than one means multiple labels!"] :export #[(keyword desc format) "\b\302\267\202\x15\0\300\303 \"\207\300\304 \"\207\300\305 \"\207\306\207" [format keyword #s (hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 6 md 11 latex 16) ) "<div id=\"%s\"></div>" "<a name=\"%s\"></a>" "\\label{%s}" nil] 3] :store org-ref-label-store-link :face org-ref-label-face-fn :help-echo #[(window object position) "\212\bb\210\303 \x19\304\305!\x1ar\nq\210\306\216 c\210\307 \210\310 -\207" [position s temp-buffer org-ref-link-message generate-new-buffer " *temp*" #[nil "\301\b!\205 \0\302\b!\207" [temp-buffer buffer-name kill-buffer] 2] fill-paragraph buffer-string] 2] ) ("list-of-tables" :follow org-ref-list-of-tables :export #[(keyword desc format) "\b\301=\205 \0\300\302!\207" [format latex "\\listoftables"] 2] ) ("list-of-figures" :follow org-ref-list-of-figures :export #[(keyword desc format) "\b\301=\205 \0\300\302!\207" [format latex "\\listoffigures"] 2] ) ("addbibresource" :follow org-ref-follow-addbibresource :export #[(keyword desc format) "\b\302\267\202\x0f\0\300\303!\207\300\304 \"\207\305\207" [format keyword #s (hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 6 latex 10) ) "" "\\addbibresource{%s}" nil] 3] ) ("bibliographystyle" :export #[(keyword desc format) "\b\302=\204\f\0\b\303=\203\x11\0\300\304 \"\207\305\207" [format keyword latex beamer "\\bibliographystyle{%s}" ""] 3] ) ("printbibliography" :follow org-ref-open-bibliography :export #[(keyword desc format) "\b\302\267\202\x0e\0\303 \207\304 \207 \207\305\207" [format org-ref-printbibliography-cmd #s (hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (org 6 html 9 latex 12)) org-ref-get-org-bibliography org-ref-get-html-bibliography nil] 2] ) ("nobibliography" :follow org-ref-open-bibliography :export org-ref-nobibliography-format) ("bibliography" :follow org-ref-open-bibliography :export org-ref-bibliography-format :complete org-bibliography-complete-link :help-echo #[(window object position) "\212\bb\210\303 \x19\304\305!\x1ar\nq\210\306\216 c\210\307 \210\310 -\207" [position s temp-buffer org-ref-link-message generate-new-buffer " *temp*" #[nil "\301\b!\205 \0\302\b!\207" [temp-buffer buffer-name kill-buffer] 2] fill-paragraph buffer-string] 2] :face org-ref-bibliography-face-fn) ("Acp" :follow or-follow-acronym :face org-ref-acronym-face-fn :help-echo or-acronym-tooltip :export #[771 "\211\301>\203 \0\302\303\300A\x05#\207\302\304\x04\226\"\207" [("Acp" . "Glspl") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("acp" :follow or-follow-acronym :face org-ref-acronym-face-fn :help-echo or-acronym-tooltip :export #[771 "\211\301>\203 \0\302\303\300A\x05#\207\302\304\x04\226\"\207" [("acp" . "glspl") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("Ac" :follow or-follow-acronym :face org-ref-acronym-face-fn :help-echo or-acronym-tooltip :export #[771 "\211\301>\203 \0\302\303\300A\x05#\207\302\304\x04\226\"\207" [("Ac" . "Gls") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("ac" :follow or-follow-acronym :face org-ref-acronym-face-fn :help-echo or-acronym-tooltip :export #[771 "\211\301>\203 \0\302\303\300A\x05#\207\302\304\x04\226\"\207" [("ac" . "gls") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("acrfull" :follow or-follow-acronym :face org-ref-acronym-face-fn :help-echo or-acronym-tooltip :export #[771 "\211\301>\203 \0\302\303\300A\x05#\207\302\304\x04\226\"\207" [("acrfull" . "acrfull") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("acrlong" :follow or-follow-acronym :face org-ref-acronym-face-fn :help-echo or-acronym-tooltip :export #[771 "\211\301>\203 \0\302\303\300A\x05#\207\302\304\x04\226\"\207" [("acrlong" . "acrlong") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("acrshort" :follow or-follow-acronym :face org-ref-acronym-face-fn :help-echo or-acronym-tooltip :export #[771 "\211\301>\203 \0\302\303\300A\x05#\207\302\304\x04\226\"\207" [("acrshort" . "acrshort") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("glslink" :follow or-follow-glossary :face org-ref-glossary-face-fn :help-echo or-glossary-tooltip :export #[771 "\211\300>\203\f\0\301\302\x04\x04#\207\301\303\x04\"\207" [(latex beamer) format "\\glslink{%s}{%s}" "%s"] 7 "\n\n(fn PATH DESC FORMAT)"] ) ("glsdesc" :follow or-follow-glossary :face org-ref-glossary-face-fn :help-echo or-glossary-tooltip :export #[771 "\211\301>\203\f\0\302\303\300\x05#\207\302\304\x04\"\207" ["glsdesc" (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("glssymbol" :follow or-follow-glossary :face org-ref-glossary-face-fn :help-echo or-glossary-tooltip :export #[771 "\211\301>\203\f\0\302\303\300\x05#\207\302\304\x04\"\207" ["glssymbol" (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("Glspl" :follow or-follow-glossary :face org-ref-glossary-face-fn :help-echo or-glossary-tooltip :export #[771 "\211\301>\203\f\0\302\303\300\x05#\207\302\304\x04\"\207" ["Glspl" (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("Gls" :follow or-follow-glossary :face org-ref-glossary-face-fn :help-echo or-glossary-tooltip :export #[771 "\211\301>\203\f\0\302\303\300\x05#\207\302\304\x04\"\207" ["Gls" (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("glspl" :follow or-follow-glossary :face org-ref-glossary-face-fn :help-echo or-glossary-tooltip :export #[771 "\211\301>\203\f\0\302\303\300\x05#\207\302\304\x04\"\207" ["glspl" (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("gls" :follow or-follow-glossary :face org-ref-glossary-face-fn :help-echo or-glossary-tooltip :export #[771 "\211\301>\203\f\0\302\303\300\x05#\207\302\304\x04\"\207" ["gls" (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"] ) ("doi" :follow doi-link-menu :export #[(doi desc format) "\b\304\267\202 \0\300\305 \n \206\x11\0\306\nP$\207\300\307 \n \206\x1e\0\306\nP$\207\310\207" [format doi-utils-dx-doi-org-url doi desc #s (hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 6 latex 19) ) "<a href=\"%s%s\">%s</a>" "doi:" "\\href{%s%s}{%s}" nil] 6] ) ("zotero" :follow (lambda (zpath) (browse-url (format "zotero:%s" zpath))) ) ("attachment" :follow org-attach-follow :complete org-attach-complete-link) ("id" :follow org-id-open) ("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell) ("news" :follow #[514 "\301\300\302\x04Q\x02\"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("mailto" :follow #[514 "\301\300\302\x04Q\x02\"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("https" :follow #[514 "\301\300\302\x04Q\x02\"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("http" :follow #[514 "\301\300\302\x04Q\x02\"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("ftp" :follow #[514 "\301\300\302\x04Q\x02\"\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-noter-always-create-frame nil org-latex-format-headline-function 'org-latex-format-headline-default-function org-link-elisp-confirm-function 'yes-or-no-p org-pandoc-options-for-latex-pdf '((latex-engine . "lualatex")) 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-superstar-special-todo-items t org-superstar-cycle-headline-bullets nil org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename org-html-format-headline-function 'org-html-format-headline-default-function org-superstar-item-bullet-alist '((42 . 10043) (43 . 10011) (45 . 9644)) org-ref-cite-onclick-function 'org-ref-cite-click-helm org-directory "c:/Users/scott/OneDrive/share/ref/DOE_brainstorm/org-notes" org-download-link-format-function 'org-download-link-format-function-default org-link-from-user-regexp nil org-ref-notes-function 'org-ref-notes-function-one-file org-use-speed-commands t org-download-abbreviate-filename-function 'file-relative-name org-ctrl-k-protect-subtree 'error org-list-allow-alphabetical t ) [-- Attachment #2: Type: text/html, Size: 1558437 bytes --]
Scott Otterson <scotto@sharpleaf.org> writes: > I just updated to org v 9.5, and now, when I open an org file, I get a > cache error message (between the '=' lines below). Before 9.5, I didn't > have this problem. Thanks for reporting! We are enabling org-element-cache by default. That's where the warnings are coming from. > The element is: "(paragraph (:begin 549781 :end 549835 :contents-begin > ... > The real element is: "(paragraph (:begin 549660 :end 549835 This backtrace is really strange. I have seen some advised functions in your config. Do you happen to advice built-in org-mode functions, especially from org-element? Also, if you observe this warning often, can you set org-element--cache-self-verify to 'backtrace and report the detailed backtrace next time you see the warning? Best, Ihor
[-- Attachment #1: Type: text/plain, Size: 27988 bytes --] I get a similar error to Scott's every time I save an org-mode file. I turned on backtrace and got this output: Warning (emacs): org-element--cache: Warning(210824_M3L16_translation_faceb.org): (save-buffer) Cached element is incorrect in 210824_M3L16_translation_faceb.org. (Cache tic up to date: "yes") Resetting. If this warning appears regularly, please report it to Org mode mailing list (M-x org-submit-bug-report). The element is: "(headline (:raw-value \"7643 M3L16 Translation At Facebook\" :begin 199 :end 4780 :pre-blank 0 :contents-begin 236 :contents-end 4780 :robust-begin 354 :robust-end 4778 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL \"\" :AUTHOR \"Kira, Z.\" :NOTER_DOCUMENT \"~/pdfs/210824_M3L16_translation_faceb.pdf\" :NOTER_PAGE \"35\" :title \"7643 M3L16 Translation At Facebook\" :mode nil :granularity element ...))" The real element is: "(headline (:raw-value \"7643 M3L16 Translation At Facebook\" :begin 199 :end 4781 :pre-blank 0 :contents-begin 236 :contents-end 4781 :robust-begin 354 :robust-end 4779 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL \"\" :AUTHOR \"Kira, Z.\" :NOTER_DOCUMENT \"~/pdfs/210824_M3L16_translation_faceb.pdf\" :NOTER_PAGE \"35\" :title \"7643 M3L16 Translation At Facebook\" :mode nil :granularity element ...))" Cache around :begin: (keyword (:key "TITLE" :value "7643 M3L16 Translation At Facebook" :begin 93 :end 137 :post-blank 0 :post-affiliated 93 :mode nil :granularity element :cached t :parent (section (:begin 1 :end 199 :contents-begin 1 :contents-end 198 :robust-begin 1 :robust-end 196 :post-blank 1 :post-affiliated 1 :mode first-section :granularity element :cached t :parent (org-data (:begin 1 :contents-begin 1 :contents-end 4780 :end 4780 :robust-begin 92 :robust-end 4778 :post-blank 0 :post-affiliated 1 :path "/Users/greg/org/roam-stem/210824_M3L16_translation_faceb.org" :mode org-data :ID "210824_221914" :ROAM_REFS "cite:210824_M3L16_translation_faceb" :CATEGORY "210824_M3L16_translation_faceb" :cached t)))))) (headline (:raw-value "7643 M3L16 Translation At Facebook" :begin 199 :end 4780 :pre-blank 0 :contents-begin 236 :contents-end 4780 :robust-begin 354 :robust-end 4778 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL "" :AUTHOR "Kira, Z." :NOTER_DOCUMENT "~/pdfs/210824_M3L16_translation_faceb.pdf" :NOTER_PAGE "35" :title "7643 M3L16 Translation At Facebook" :mode nil :granularity element :cached t :parent (org-data (:begin 1 :contents-begin 1 :contents-end 4780 :end 4780 :robust-begin 92 :robust-end 4778 :post-blank 0 :post-affiliated 1 :path "/Users/greg/org/roam-stem/210824_M3L16_translation_faceb.org" :mode org-data :ID "210824_221914" :ROAM_REFS "cite:210824_M3L16_translation_faceb" :CATEGORY "210824_M3L16_translation_faceb" :cached t)) :org-element--cache-sync-key (9 . 199))) (section (:begin 236 :end 355 :contents-begin 236 :contents-end 355 :robust-begin 236 :robust-end 353 :post-blank 0 :post-affiliated 236 :mode section :granularity element :cached t :parent (headline (:raw-value "7643 M3L16 Translation At Facebook" :begin 199 :end 4780 :pre-blank 0 :contents-begin 236 :contents-end 4780 :robust-begin 354 :robust-end 4778 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL "" :AUTHOR "Kira, Z." :NOTER_DOCUMENT "~/pdfs/210824_M3L16_translation_faceb.pdf" :NOTER_PAGE "35" :title "7643 M3L16 Translation At Facebook" :mode nil :granularity element :cached t :parent (org-data (:begin 1 :contents-begin 1 :contents-end 4780 :end 4780 :robust-begin 92 :robust-end 4778 :post-blank 0 :post-affiliated 1 :path "/Users/greg/org/roam-stem/210824_M3L16_translation_faceb.org" :mode org-data :ID "210824_221914" :ROAM_REFS "cite:210824_M3L16_translation_faceb" :CATEGORY "210824_M3L16_translation_faceb" :cached t)) :org-element--cache-sync-key (9 . 199))))) Backtrace: org-element-cache diagnostics(210824_M3L16_translation_faceb.org): org-element-cache: Finished process. The cache size is 21. The remaining sync requests: "([4025 4025 nil 1 ... 2])" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Phase 2 org-element-cache diagnostics(210824_M3L16_translation_faceb.org): New parent at 4026: (9 . 1238)::"(headline (:raw-value \"Notes\" :begin 1238 :end 4026 :pre-blank 2 :contents-begin 1250 :contents-end 4025 :robust-begin 1252 :robust-end 4023 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1238 :title (#(\"Notes\" 0 5 (:parent ...))) :mode nil :granularity nil :parent (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :begin 792 :end 4026 :pre-blank 0 :contents-begin 954 :contents-end 4025 :robust-begin 1035 :robust-end 4023 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 792 :NOTER_PAGE \"(12 . 0.293398533007335)\" :ID \"211030_115715\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :mode nil :granularity headline :cached t :parent (headline ... ... #2 ...) ...) (headline (:raw-value \"Refs\" :begin 1036 :end 1238 :pre-blank 0 :contents-begin 1045 :contents-end 1238 :robust-begin 1047 :robust-end 1236 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1036 :title \"Refs\" :mode section :granularity headline :parent #2)) (headline (:raw-value \"Notes\" :begin 1238 :end 4025 :pre-blank 1 :contents-begin 1249 :contents-end 4024 :robust-begin 1251 :robust-end 4022 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1238 :title \"Notes\" :mode nil :granularity headline :parent #2))) :cached t :org-element--cache-sync-key (9 . 1238)))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Phase 1 org-element-cache diagnostics(210824_M3L16_translation_faceb.org): org-element-cache: Processing request [4025 4025 nil 1 nil 1] up to nil-#<marker at 4781 in 210824_M3L16_translation_faceb.org>, next: nil org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Syncing down to #<marker at 4781 in 210824_M3L16_translation_faceb.org>-#<marker at 4781 in 210824_M3L16_translation_faceb.org> org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Changes are before first known element. Submitting phase 1 request org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Shifting end positions of robust parent: "(org-data (:begin 1 :contents-begin 1 :contents-end 4781 :end 4781 :robust-begin 92 :robust-end 4779 :post-blank 0 :post-affiliated 1 :path \"/Users/greg/org/roam-stem/210824_M3L16_translation_faceb.org\" :mode org-data :ID \"210824_221914\" :ROAM_REFS \"cite:210824_M3L16_translation_faceb\" :CATEGORY \"210824_M3L16_translation_faceb\" :granularity headline) (headline (:raw-value \"7643 M3L16 Translation At Facebook\" :begin 199 :end 4781 :pre-blank 0 :contents-begin 236 :contents-end 4781 :robust-begin 354 :robust-end 4779 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL \"\" :AUTHOR \"Kira, Z.\" :NOTER_DOCUMENT \"~/pdfs/210824_M3L16_translation_faceb.pdf\" :NOTER_PAGE \"35\" :title \"7643 M3L16 Translation At Facebook\" :mode first-section :granularity headline ...) (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :begin 355 :end 792 :pre-blank 0 :contents-begin 492 :contents-end 791 :robust-begin 574 :robust-end 789 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 355 :NOTER_PAGE \"(3 . 0.41075794621026895)\" :ID \"211025_135359\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :mode section :granularity headline :parent #1)) (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :begin 792 :end 4026 :pre-blank 0 :contents-begin 954 :contents-end 4025 :robust-begin 1035 :robust-end 4023 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 792 :NOTER_PAGE \"(12 . 0.293398533007335)\" :ID \"211030_115715\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :mode nil :granularity headline :cached t :parent #1) (headline (:raw-value \"Refs\" :begin 1036 :end 1238 :pre-blank 0 :contents-begin 1045 :contents-end 1238 :robust-begin 1047 :robust-end 1236 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1036 :title \"Refs\" :mode section :granularity headline :parent #2)) (headline (:raw-value \"Notes\" :begin 1238 :end 4025 :pre-blank 1 :contents-begin 1249 :contents-end 4024 :robust-begin 1251 :robust-end 4022 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1238 :title \"Notes\" :mode nil :granularity headline :parent #2))) (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :begin 4025 :end 4780 :pre-blank 0 :contents-begin 4176 :contents-end 4780 :robust-begin 4259 :robust-end 4778 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 4025 :NOTER_PAGE \"(29 . 0.37163814180929094)\" :ID \"211025_135711\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :mode nil :granularity headline :cached t :parent #1))))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Shifting end positions of robust parent: "(headline (:raw-value \"7643 M3L16 Translation At Facebook\" :begin 199 :end 4781 :pre-blank 0 :contents-begin 236 :contents-end 4781 :robust-begin 354 :robust-end 4779 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL \"\" :AUTHOR \"Kira, Z.\" :NOTER_DOCUMENT \"~/pdfs/210824_M3L16_translation_faceb.pdf\" :NOTER_PAGE \"35\" :title \"7643 M3L16 Translation At Facebook\" :mode first-section :granularity headline ...) (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :begin 355 :end 792 :pre-blank 0 :contents-begin 492 :contents-end 791 :robust-begin 574 :robust-end 789 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 355 :NOTER_PAGE \"(3 . 0.41075794621026895)\" :ID \"211025_135359\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :mode section :granularity headline :parent #0)) (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :begin 792 :end 4026 :pre-blank 0 :contents-begin 954 :contents-end 4025 :robust-begin 1035 :robust-end 4023 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 792 :NOTER_PAGE \"(12 . 0.293398533007335)\" :ID \"211030_115715\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :mode nil :granularity headline :cached t :parent #0) (headline (:raw-value \"Refs\" :begin 1036 :end 1238 :pre-blank 0 :contents-begin 1045 :contents-end 1238 :robust-begin 1047 :robust-end 1236 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1036 :title \"Refs\" :mode section :granularity headline :parent #1)) (headline (:raw-value \"Notes\" :begin 1238 :end 4025 :pre-blank 1 :contents-begin 1249 :contents-end 4024 :robust-begin 1251 :robust-end 4022 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1238 :title \"Notes\" :mode nil :granularity headline :parent #1))) (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :begin 4025 :end 4780 :pre-blank 0 :contents-begin 4176 :contents-end 4780 :robust-begin 4259 :robust-end 4778 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 4025 :NOTER_PAGE \"(29 . 0.37163814180929094)\" :ID \"211025_135711\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :mode nil :granularity headline :cached t :parent #0)))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Shifting end positions of robust parent: "(headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :begin 792 :end 4026 :pre-blank 0 :contents-begin 954 :contents-end 4025 :robust-begin 1035 :robust-end 4023 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 792 :NOTER_PAGE \"(12 . 0.293398533007335)\" :ID \"211030_115715\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :mode nil :granularity headline :cached t :parent (headline (:raw-value \"7643 M3L16 Translation At Facebook\" :begin 199 :end 4780 :pre-blank 0 :contents-begin 236 :contents-end 4780 :robust-begin 354 :robust-end 4778 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL \"\" :AUTHOR \"Kira, Z.\" :NOTER_DOCUMENT \"~/pdfs/210824_M3L16_translation_faceb.pdf\" :NOTER_PAGE \"35\" :title \"7643 M3L16 Translation At Facebook\" :mode first-section :granularity headline ...) (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :begin 355 :end 792 :pre-blank 0 :contents-begin 492 :contents-end 791 :robust-begin 574 :robust-end 789 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 355 :NOTER_PAGE \"(3 . 0.41075794621026895)\" :ID \"211025_135359\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :mode section :granularity headline :parent #2)) #0 (headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :begin 4025 :end 4780 :pre-blank 0 :contents-begin 4176 :contents-end 4780 :robust-begin 4259 :robust-end 4778 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 4025 :NOTER_PAGE \"(29 . 0.37163814180929094)\" :ID \"211025_135711\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :mode nil :granularity headline :cached t :parent #2)))) (headline (:raw-value \"Refs\" :begin 1036 :end 1238 :pre-blank 0 :contents-begin 1045 :contents-end 1238 :robust-begin 1047 :robust-end 1236 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1036 :title \"Refs\" :mode section :granularity headline :parent #0)) (headline (:raw-value \"Notes\" :begin 1238 :end 4025 :pre-blank 1 :contents-begin 1249 :contents-end 4024 :robust-begin 1251 :robust-end 4022 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1238 :title \"Notes\" :mode nil :granularity headline :parent #0)))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Found non-robust headline that can be updated individually: "(headline (:raw-value \"Notes\" :begin 1238 :end 4026 :pre-blank 2 :contents-begin 1250 :contents-end 4025 :robust-begin 1252 :robust-end 4023 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1238 :title (#(\"Notes\" 0 5 (:parent #0))) :mode nil :granularity nil))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Adding new phase 0 request org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Submitting new synchronization request for [1248..1248]𝝙1 org-element-cache diagnostics(210824_M3L16_translation_faceb.org): org-return is about to modify text: warning nil org-element-cache diagnostics(210824_M3L16_translation_faceb.org): After change org-element-cache diagnostics(210824_M3L16_translation_faceb.org): org-return is about to modify text: warning nil org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(headline (:raw-value \"Notes\" :begin 1238 :end 4025 :pre-blank 1 :contents-begin 1249 :contents-end 4024 :robust-begin 1251 :robust-end 4022 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1238 :title \"Notes\" :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(headline (:raw-value \"Refs\" :begin 1036 :end 1238 :pre-blank 0 :contents-begin 1045 :contents-end 1238 :robust-begin 1047 :robust-end 1236 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1036 :title \"Refs\" :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(paragraph (:begin 4602 :end 4780 :contents-begin 4602 :contents-end 4780 :post-blank 0 :post-affiliated 4602 :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(paragraph (:begin 4382 :end 4602 :contents-begin 4382 :contents-end 4601 :post-blank 1 :post-affiliated 4382 :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(paragraph (:begin 4261 :end 4382 :contents-begin 4261 :contents-end 4381 :post-blank 1 :post-affiliated 4261 :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(keyword (:key \"TITLE\" :value \"7643 M3L16 Translation At Facebook\" :begin 93 :end 137 :post-blank 0 :post-affiliated 93 :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(property-drawer (:begin 4176 :end 4261 :contents-begin 4189 :contents-end 4254 :post-blank 1 :post-affiliated 4176 :mode planning :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(section (:begin 4176 :end 4780 :contents-begin 4176 :contents-end 4780 :robust-begin 4176 :robust-end 4778 :post-blank 0 :post-affiliated 4176 :mode section :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :begin 4025 :end 4780 :pre-blank 0 :contents-begin 4176 :contents-end 4780 :robust-begin 4259 :robust-end 4778 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 4025 :NOTER_PAGE \"(29 . 0.37163814180929094)\" :ID \"211025_135711\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/rethinking-translation-quality?module_item_id=1814614][Rethinking Translation Quality]]\" :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(property-drawer (:begin 954 :end 1036 :contents-begin 967 :contents-end 1030 :post-blank 0 :post-affiliated 954 :mode planning :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(section (:begin 954 :end 1036 :contents-begin 954 :contents-end 1036 :robust-begin 954 :robust-end 1034 :post-blank 0 :post-affiliated 954 :mode section :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :begin 792 :end 4025 :pre-blank 0 :contents-begin 954 :contents-end 4024 :robust-begin 1035 :robust-end 4022 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 792 :NOTER_PAGE \"(12 . 0.293398533007335)\" :ID \"211030_115715\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-challenges-low-resource?module_item_id=1814612][Translation Challenges: Low Resource]]\" :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(property-drawer (:begin 492 :end 576 :contents-begin 505 :contents-end 569 :post-blank 1 :post-affiliated 492 :mode planning :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(section (:begin 492 :end 792 :contents-begin 492 :contents-end 791 :robust-begin 492 :robust-end 789 :post-blank 1 :post-affiliated 492 :mode section :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(headline (:raw-value \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :begin 355 :end 792 :pre-blank 0 :contents-begin 492 :contents-end 791 :robust-begin 574 :robust-end 789 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 355 :NOTER_PAGE \"(3 . 0.41075794621026895)\" :ID \"211025_135359\" :title \"M3L16 [[ https://gatech.instructure.com/courses/212614/pages/translation-at-facebook?module_item_id=1814610][Translation at Facebook]]\" :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(property-drawer (:begin 236 :end 355 :contents-begin 249 :contents-end 349 :post-blank 0 :post-affiliated 236 :mode planning :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(section (:begin 236 :end 355 :contents-begin 236 :contents-end 355 :robust-begin 236 :robust-end 353 :post-blank 0 :post-affiliated 236 :mode section :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(headline (:raw-value \"7643 M3L16 Translation At Facebook\" :begin 199 :end 4780 :pre-blank 0 :contents-begin 236 :contents-end 4780 :robust-begin 354 :robust-end 4778 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 199 :URL \"\" :AUTHOR \"Kira, Z.\" :NOTER_DOCUMENT \"~/pdfs/210824_M3L16_translation_faceb.pdf\" :NOTER_PAGE \"35\" :title \"7643 M3L16 Translation At Facebook\" :mode nil :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(property-drawer (:begin 1 :end 93 :contents-begin 14 :contents-end 87 :post-blank 0 :post-affiliated 1 :mode top-comment :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(section (:begin 1 :end 199 :contents-begin 1 :contents-end 198 :robust-begin 1 :robust-end 196 :post-blank 1 :post-affiliated 1 :mode first-section :granularity element))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Added new element with nil key: "(org-data (:begin 1 :contents-begin 1 :contents-end 4780 :end 4780 :robust-begin 92 :robust-end 4778 :post-blank 0 :post-affiliated 1 :path \"/Users/greg/org/roam-stem/210824_M3L16_translation_faceb.org\" :mode org-data :ID \"210824_221914\" :ROAM_REFS \"cite:210824_M3L16_translation_faceb\" :CATEGORY \"210824_M3L16_translation_faceb\"))" org-element-cache diagnostics(210824_M3L16_translation_faceb.org): Nothing in cache. Adding org-data: "(org-data (:begin 1 :contents-begin 1 :contents-end 4780 :end 4780 :robust-begin 92 :robust-end 4778 :post-blank 0 :post-affiliated 1 :path \"/Users/greg/org/roam-stem/210824_M3L16_translation_faceb.org\" :mode org-data :ID \"210824_221914\" :ROAM_REFS \"cite:210824_M3L16_translation_faceb\" :CATEGORY \"210824_M3L16_translation_faceb\"))" -- Sent from my Palm Pilot [-- Attachment #2: Type: text/html, Size: 33185 bytes --]
[-- Attachment #1: Type: text/plain, Size: 642 bytes --] Greg Coladonato <gcoladon@gmail.com> writes: > I get a similar error to Scott's every time I save an org-mode file. I > turned on backtrace and got this output: Thanks for reporting and providing the detailed backtrace! Backtrace is really strange because cache is clearly updated upon changing the file, but somehow somewhere a stale element is still returned. Given that you are using org-roam, the only suspect that may create stale copies of cached elements is org-element-parse-buffer. The attached patch is making sure that org-element-parse-buffer never tries to reuse cache. Can you try the patch and see if it helps? Best, Ihor [-- Warning: decoded text below may be mangled, UTF-8 assumed --] [-- Attachment #2: 0001-org-element-current-element-Do-not-use-cache.patch --] [-- Type: text/x-diff, Size: 15783 bytes --] From cc2b4081796ed3caeb193b45588bfb9fd3d77625 Mon Sep 17 00:00:00 2001 Message-Id: <cc2b4081796ed3caeb193b45588bfb9fd3d77625.1635770341.git.yantar92@gmail.com> From: Ihor Radchenko <yantar92@gmail.com> Date: Mon, 1 Nov 2021 20:38:11 +0800 Subject: [PATCH] org-element--current-element: Do not use cache --- lisp/org-element.el | 342 ++++++++++++++++++++------------------------ 1 file changed, 157 insertions(+), 185 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 9fa6fd5e2..caa714f34 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4106,7 +4106,7 @@ ;;; Parsing Element Starting At Point ;; point. (defvar org-element--cache-sync-requests); Declared later -(defun org-element--current-element (limit &optional granularity mode structure add-to-cache) +(defun org-element--current-element (limit &optional granularity mode structure) "Parse the element starting at point. Return value is a list like (TYPE PROPS) where TYPE is the type @@ -4138,190 +4138,162 @@ (defun org-element--current-element (limit &optional granularity mode structure This function assumes point is always at the beginning of the element it has to parse." - (let* ((element (and (not (buffer-narrowed-p)) - (org-element--cache-active-p) - (not org-element--cache-sync-requests) - (org-element--cache-find (point) t))) - (element (progn (while (and element - (not (and (eq (point) (org-element-property :begin element)) - (eq mode (org-element-property :mode element))))) - (setq element (org-element-property :parent element))) - element)) - (old-element element) - (element (when - (pcase (org-element-property :granularity element) - (`nil t) - (`object t) - (`element (not (memq granularity '(nil object)))) - (`greater-element (not (memq granularity '(nil object element)))) - (`headline (eq granularity 'headline))) - element))) - (if element - element - (save-excursion - (let ((case-fold-search t) - ;; Determine if parsing depth allows for secondary strings - ;; parsing. It only applies to elements referenced in - ;; `org-element-secondary-value-alist'. - (raw-secondary-p (and granularity (not (eq granularity 'object)))) - result) - (setq - result - (cond - ;; Item. - ((eq mode 'item) - (org-element-item-parser limit structure raw-secondary-p)) - ;; Table Row. - ((eq mode 'table-row) (org-element-table-row-parser limit)) - ;; Node Property. - ((eq mode 'node-property) (org-element-node-property-parser limit)) - ;; Headline. - ((org-with-limited-levels (org-at-heading-p)) - (org-element-headline-parser limit raw-secondary-p)) - ;; Sections (must be checked after headline). - ((eq mode 'section) (org-element-section-parser limit)) - ((eq mode 'first-section) - (org-element-section-parser - (or (save-excursion (org-with-limited-levels (outline-next-heading))) - limit))) - ;; Comments. - ((looking-at "^[ \t]*#\\(?: \\|$\\)") - (org-element-comment-parser limit)) - ;; Planning. - ((and (eq mode 'planning) - (eq ?* (char-after (line-beginning-position 0))) - (looking-at org-planning-line-re)) - (org-element-planning-parser limit)) - ;; Property drawer. - ((and (pcase mode - (`planning (eq ?* (char-after (line-beginning-position 0)))) - ((or `property-drawer `top-comment) - (save-excursion - (beginning-of-line 0) - (not (looking-at "[[:blank:]]*$")))) - (_ nil)) - (looking-at org-property-drawer-re)) - (org-element-property-drawer-parser limit)) - ;; When not at bol, point is at the beginning of an item or - ;; a footnote definition: next item is always a paragraph. - ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) - ;; Clock. - ((looking-at org-clock-line-re) (org-element-clock-parser limit)) - ;; Inlinetask. - ((looking-at "^\\*+ ") - (org-element-inlinetask-parser limit raw-secondary-p)) - ;; From there, elements can have affiliated keywords. - (t (let ((affiliated (org-element--collect-affiliated-keywords - limit (memq granularity '(nil object))))) - (cond - ;; Jumping over affiliated keywords put point off-limits. - ;; Parse them as regular keywords. - ((and (cdr affiliated) (>= (point) limit)) - (goto-char (car affiliated)) - (org-element-keyword-parser limit nil)) - ;; LaTeX Environment. - ((looking-at org-element--latex-begin-environment) - (org-element-latex-environment-parser limit affiliated)) - ;; Drawer. - ((looking-at org-drawer-regexp) - (org-element-drawer-parser limit affiliated)) - ;; Fixed Width - ((looking-at "[ \t]*:\\( \\|$\\)") - (org-element-fixed-width-parser limit affiliated)) - ;; Inline Comments, Blocks, Babel Calls, Dynamic Blocks and - ;; Keywords. - ((looking-at "[ \t]*#\\+") - (goto-char (match-end 0)) - (cond - ((looking-at "BEGIN_\\(\\S-+\\)") - (beginning-of-line) - (funcall (pcase (upcase (match-string 1)) - ("CENTER" #'org-element-center-block-parser) - ("COMMENT" #'org-element-comment-block-parser) - ("EXAMPLE" #'org-element-example-block-parser) - ("EXPORT" #'org-element-export-block-parser) - ("QUOTE" #'org-element-quote-block-parser) - ("SRC" #'org-element-src-block-parser) - ("VERSE" #'org-element-verse-block-parser) - (_ #'org-element-special-block-parser)) - limit - affiliated)) - ((looking-at "CALL:") - (beginning-of-line) - (org-element-babel-call-parser limit affiliated)) - ((looking-at "BEGIN:? ") - (beginning-of-line) - (org-element-dynamic-block-parser limit affiliated)) - ((looking-at "\\S-+:") - (beginning-of-line) - (org-element-keyword-parser limit affiliated)) - (t - (beginning-of-line) - (org-element-paragraph-parser limit affiliated)))) - ;; Footnote Definition. - ((looking-at org-footnote-definition-re) - (org-element-footnote-definition-parser limit affiliated)) - ;; Horizontal Rule. - ((looking-at "[ \t]*-\\{5,\\}[ \t]*$") - (org-element-horizontal-rule-parser limit affiliated)) - ;; Diary Sexp. - ((looking-at "%%(") - (org-element-diary-sexp-parser limit affiliated)) - ;; Table. - ((or (looking-at "[ \t]*|") - ;; There is no strict definition of a table.el - ;; table. Try to prevent false positive while being - ;; quick. - (let ((rule-regexp - (rx (zero-or-more (any " \t")) - "+" - (one-or-more (one-or-more "-") "+") - (zero-or-more (any " \t")) - eol)) - (non-table.el-line - (rx bol - (zero-or-more (any " \t")) - (or eol (not (any "+| \t"))))) - (next (line-beginning-position 2))) - ;; Start with a full rule. - (and - (looking-at rule-regexp) - (< next limit) ;no room for a table.el table - (save-excursion - (end-of-line) - (cond - ;; Must end with a full rule. - ((not (re-search-forward non-table.el-line limit 'move)) - (if (bolp) (forward-line -1) (beginning-of-line)) - (looking-at rule-regexp)) - ;; Ignore pseudo-tables with a single - ;; rule. - ((= next (line-beginning-position)) - nil) - ;; Must end with a full rule. - (t - (forward-line -1) - (looking-at rule-regexp))))))) - (org-element-table-parser limit affiliated)) - ;; List. - ((looking-at (org-item-re)) - (org-element-plain-list-parser - limit affiliated - (or structure (org-element--list-struct limit)))) - ;; Default element: Paragraph. - (t (org-element-paragraph-parser limit affiliated))))))) - (when result - (org-element-put-property result :mode mode) - (org-element-put-property result :granularity granularity)) - (when (and (not (buffer-narrowed-p)) - (org-element--cache-active-p) - (not org-element--cache-sync-requests) - add-to-cache) - (if (not old-element) - (setq result (org-element--cache-put result)) - (org-element-set-element old-element result) - (setq result old-element))) - result))))) + (save-excursion + (let ((case-fold-search t) + ;; Determine if parsing depth allows for secondary strings + ;; parsing. It only applies to elements referenced in + ;; `org-element-secondary-value-alist'. + (raw-secondary-p (and granularity (not (eq granularity 'object)))) + result) + (setq + result + (cond + ;; Item. + ((eq mode 'item) + (org-element-item-parser limit structure raw-secondary-p)) + ;; Table Row. + ((eq mode 'table-row) (org-element-table-row-parser limit)) + ;; Node Property. + ((eq mode 'node-property) (org-element-node-property-parser limit)) + ;; Headline. + ((org-with-limited-levels (org-at-heading-p)) + (org-element-headline-parser limit raw-secondary-p)) + ;; Sections (must be checked after headline). + ((eq mode 'section) (org-element-section-parser limit)) + ((eq mode 'first-section) + (org-element-section-parser + (or (save-excursion (org-with-limited-levels (outline-next-heading))) + limit))) + ;; Comments. + ((looking-at "^[ \t]*#\\(?: \\|$\\)") + (org-element-comment-parser limit)) + ;; Planning. + ((and (eq mode 'planning) + (eq ?* (char-after (line-beginning-position 0))) + (looking-at org-planning-line-re)) + (org-element-planning-parser limit)) + ;; Property drawer. + ((and (pcase mode + (`planning (eq ?* (char-after (line-beginning-position 0)))) + ((or `property-drawer `top-comment) + (save-excursion + (beginning-of-line 0) + (not (looking-at "[[:blank:]]*$")))) + (_ nil)) + (looking-at org-property-drawer-re)) + (org-element-property-drawer-parser limit)) + ;; When not at bol, point is at the beginning of an item or + ;; a footnote definition: next item is always a paragraph. + ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) + ;; Clock. + ((looking-at org-clock-line-re) (org-element-clock-parser limit)) + ;; Inlinetask. + ((looking-at "^\\*+ ") + (org-element-inlinetask-parser limit raw-secondary-p)) + ;; From there, elements can have affiliated keywords. + (t (let ((affiliated (org-element--collect-affiliated-keywords + limit (memq granularity '(nil object))))) + (cond + ;; Jumping over affiliated keywords put point off-limits. + ;; Parse them as regular keywords. + ((and (cdr affiliated) (>= (point) limit)) + (goto-char (car affiliated)) + (org-element-keyword-parser limit nil)) + ;; LaTeX Environment. + ((looking-at org-element--latex-begin-environment) + (org-element-latex-environment-parser limit affiliated)) + ;; Drawer. + ((looking-at org-drawer-regexp) + (org-element-drawer-parser limit affiliated)) + ;; Fixed Width + ((looking-at "[ \t]*:\\( \\|$\\)") + (org-element-fixed-width-parser limit affiliated)) + ;; Inline Comments, Blocks, Babel Calls, Dynamic Blocks and + ;; Keywords. + ((looking-at "[ \t]*#\\+") + (goto-char (match-end 0)) + (cond + ((looking-at "BEGIN_\\(\\S-+\\)") + (beginning-of-line) + (funcall (pcase (upcase (match-string 1)) + ("CENTER" #'org-element-center-block-parser) + ("COMMENT" #'org-element-comment-block-parser) + ("EXAMPLE" #'org-element-example-block-parser) + ("EXPORT" #'org-element-export-block-parser) + ("QUOTE" #'org-element-quote-block-parser) + ("SRC" #'org-element-src-block-parser) + ("VERSE" #'org-element-verse-block-parser) + (_ #'org-element-special-block-parser)) + limit + affiliated)) + ((looking-at "CALL:") + (beginning-of-line) + (org-element-babel-call-parser limit affiliated)) + ((looking-at "BEGIN:? ") + (beginning-of-line) + (org-element-dynamic-block-parser limit affiliated)) + ((looking-at "\\S-+:") + (beginning-of-line) + (org-element-keyword-parser limit affiliated)) + (t + (beginning-of-line) + (org-element-paragraph-parser limit affiliated)))) + ;; Footnote Definition. + ((looking-at org-footnote-definition-re) + (org-element-footnote-definition-parser limit affiliated)) + ;; Horizontal Rule. + ((looking-at "[ \t]*-\\{5,\\}[ \t]*$") + (org-element-horizontal-rule-parser limit affiliated)) + ;; Diary Sexp. + ((looking-at "%%(") + (org-element-diary-sexp-parser limit affiliated)) + ;; Table. + ((or (looking-at "[ \t]*|") + ;; There is no strict definition of a table.el + ;; table. Try to prevent false positive while being + ;; quick. + (let ((rule-regexp + (rx (zero-or-more (any " \t")) + "+" + (one-or-more (one-or-more "-") "+") + (zero-or-more (any " \t")) + eol)) + (non-table.el-line + (rx bol + (zero-or-more (any " \t")) + (or eol (not (any "+| \t"))))) + (next (line-beginning-position 2))) + ;; Start with a full rule. + (and + (looking-at rule-regexp) + (< next limit) ;no room for a table.el table + (save-excursion + (end-of-line) + (cond + ;; Must end with a full rule. + ((not (re-search-forward non-table.el-line limit 'move)) + (if (bolp) (forward-line -1) (beginning-of-line)) + (looking-at rule-regexp)) + ;; Ignore pseudo-tables with a single + ;; rule. + ((= next (line-beginning-position)) + nil) + ;; Must end with a full rule. + (t + (forward-line -1) + (looking-at rule-regexp))))))) + (org-element-table-parser limit affiliated)) + ;; List. + ((looking-at (org-item-re)) + (org-element-plain-list-parser + limit affiliated + (or structure (org-element--list-struct limit)))) + ;; Default element: Paragraph. + (t (org-element-paragraph-parser limit affiliated))))))) + (when result + (org-element-put-property result :mode mode) + (org-element-put-property result :granularity granularity)) + result))) ;; Most elements can have affiliated keywords. When looking for an -- 2.32.0
[-- Attachment #1: Type: text/plain, Size: 2980 bytes --] On Mon, Nov 1, 2021 at 5:40 AM Ihor Radchenko <yantar92@gmail.com> wrote: > Thanks for reporting and providing the detailed backtrace! > Backtrace is really strange because cache is clearly updated upon > changing the file, but somehow somewhere a stale element is still > returned. > > Given that you are using org-roam, the only suspect that may create > stale copies of cached elements is org-element-parse-buffer. The > attached patch is making sure that org-element-parse-buffer never tries > to reuse cache. Can you try the patch and see if it helps? > Applying the patch doesn't seem to have completely fixed the issue. Here's an error message I got after re-starting running the patch, below. Before I go though, I thought it might be worth asking: how does one turn off the cache? I'd like to see if that resolves not only this issue, but also the fact that saving this 700 line file takes 15 seconds now. Thanks for your help, Greg --- error message below --- Warning (emacs): org-element--cache: Cached element has wrong parent in 211002_monthly.org. Resetting. If this warning appears regularly, please report it to Org mode mailing list (M-x org-submit-bug-report). The element is: "(headline (:raw-value \"Make sure Maia and I are on the same page regarding -- getting everything out of the attic and garage before Thursday!\" :begin 188 :end 315 :pre-blank 0 :contents-begin nil :contents-end nil :robust-begin nil :robust-end nil :level 2 :priority nil :tags nil :todo-keyword #(\"TODO\" 0 4 (face (org-todo org-todo org-level-2) wrap-prefix #(\"*** \" 0 1 ... 1 4 ...) line-prefix #(\"*\" 0 1 ...) fontified t)) :todo-type todo :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 188 :title \"Make sure Maia and I are on the same page regarding -- getting everything out of the attic and garage before Thursday!\" :mode nil :granularity element :cached t :parent (org-data (:begin 1 :contents-begin 1 :contents-end 93756 :end 93756 :robust-begin 44 :robust-end 93754 :post-blank 0 :post-affiliated 1 :path \"/Users/greg/org/roam-personal/211002_monthly.org\" :mode org-data :ID \"211002_080654\" :CATEGORY \"211002_monthly\" :cached t :org-element--cache-sync-key nil)) :org-element--cache-sync-key (29 . 188)))" The parent is: "(org-data (:begin 1 :contents-begin 1 :contents-end 93756 :end 93756 :robust-begin 44 :robust-end 93754 :post-blank 0 :post-affiliated 1 :path \"/Users/greg/org/roam-personal/211002_monthly.org\" :mode org-data :ID \"211002_080654\" :CATEGORY \"211002_monthly\" :cached t :org-element--cache-sync-key nil))" The real parent is: "(headline (:raw-value \"Monday\" :begin 112 :end 424 :pre-blank 0 :contents-begin 121 :contents-end 424 :robust-begin 123 :robust-end 422 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 112 :title (#(\"Monday\" 0 6 (:parent #0))) :mode nil :granularity nil))" [-- Attachment #2: Type: text/html, Size: 3738 bytes --]
Greg Coladonato <gcoladon@gmail.com> writes: > Applying the patch doesn't seem to have completely fixed the issue. > Here's an error message I got after re-starting running the patch, below. Thanks! Is org-element--cache-self-verify still set to 'backtrace? I am not seeing any extra backtrace in the new warning. > Before I go though, I thought it might be worth asking: how does one turn > off the cache? I'd like to see if that resolves not only this issue, but > also the > fact that saving this 700 line file takes 15 seconds now. You can disable cache by setting org-element-use-cache to nil. However, it would be helpful if you run M-x profiler-start, save the buffer, run M-x profiler-report, save the report buffer, and post the report here. Best, Ihor
[-- Attachment #1: Type: text/plain, Size: 55041 bytes --] On Mon, Nov 1, 2021 at 9:03 PM Ihor Radchenko <yantar92@gmail.com> wrote: > Greg Coladonato <gcoladon@gmail.com> writes: > > > Applying the patch doesn't seem to have completely fixed the issue. > > Here's an error message I got after re-starting running the patch, below. > > Thanks! Is org-element--cache-self-verify still set to 'backtrace? I am > not seeing any extra backtrace in the new warning. > Ahh, that setting was lost after one of my restarts. I've reset it in my config file and will report back next time the warning happens. > > Before I go though, I thought it might be worth asking: how does one turn > > off the cache? I'd like to see if that resolves not only this issue, but > > also the > > fact that saving this 700 line file takes 15 seconds now. > > You can disable cache by setting org-element-use-cache to nil. > However, it would be helpful if you run M-x profiler-start, save the > buffer, run M-x profiler-report, save the report buffer, and post the > report here. > Here's the report: [profiler-profile "24.3" cpu #s(hash-table size 325 test equal rehash-size 1.5 rehash-threshold 0.8125 data ([nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 277 [file-truename file-truename file-truename file-truename "#<compiled 0x1ff081d1b5f1>" cl-some projectile-project-root let doom-project-root or cond let +doom-dashboard--get-pwd let if +doom-dashboard-update-pwd-h] 1 [doom-modeline-segment--buffer-encoding eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [doom-modeline-segment--vcs eval format-mode-line doom-modeline-format--main eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil] 2 [org-insert-heading org-insert-todo-heading funcall-interactively call-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil] 1 [replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element progn unwind-protect let* save-restriction save-excursion save-excursion] 1 [setcar if org-element-put-property progn if let* or org-element--cache-key org-element--cache-key-less-p not and cond let* while let save-current-buffer] 1 [progn if progn if let and or if if while let if let* org-element--cache-for-removal let if] 1 [let* progn if progn if while let if let* org-element--cache-for-removal let if let save-current-buffer org-element--cache-submit-request progn] 1 [run-with-idle-timer setq org-element--cache-set-timer progn if save-current-buffer progn if org-element--cache-after-change org-insert-todo-heading funcall-interactively call-interactively command-execute nil nil nil] 1 [font-lock-fontify-region "#<compiled 0x1ff081d35d6d>" run-hook-wrapped jit-lock--run-functions jit-lock-fontify-now jit-lock-function redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil] 2 [doom-modeline-format--main eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil nil] 2 [let* progn if org-element--cache-process-request while catch let let if save-current-buffer progn if org-element--cache-sync apply timer-event-handler nil] 1 [progn if let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let] 1 [or and org-element--cache-interrupt-p or if if if let* while let catch org-element--cache-process-request while catch let let] 2 [and let let while let let org-element--cache-shift-positions if if if let* while let catch org-element--cache-process-request while] 2 [regexp-opt-group regexp-opt-group regexp-opt-group regexp-opt sp--regexp-for-group apply "#<compiled 0x1ff097f331f9>" mapconcat sp--strict-regexp-opt sp--get-closing-regexp sp-insert-pair sp--post-self-insert-hook-handler self-insert-command org-self-insert-command funcall-interactively call-interactively] 1 [eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [and while save-excursion let* cond org-element--object-lex setq and while let save-restriction save-excursion org-element--parse-objects if org-element-put-property let] 20 [sp--do-action-p sp--all-pairs-to-insert sp--pair-to-insert sp-escape-open-delimiter sp--post-self-insert-hook-handler self-insert-command org-self-insert-command funcall-interactively call-interactively command-execute nil nil nil nil nil nil] 1 [doom-modeline-segment--buffer-encoding eval format-mode-line doom-modeline-format--main eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil] 1 [timer--time-less-p timer--activate timer-activate-when-idle run-with-idle-timer setq org-element--cache-set-timer if let if save-current-buffer progn if org-element--cache-sync progn if if] 1 [sp--looking-back sp--looking-back-p sp-point-after-word-p sp--do-action-p sp--all-pairs-to-insert sp--pair-to-insert sp-insert-pair sp--post-self-insert-hook-handler self-insert-command org-self-insert-command funcall-interactively call-interactively command-execute nil nil nil] 1 [basic-save-buffer save-buffer funcall-interactively call-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil] 1 [org-in-regexp org-roam-link-replace-at-point org-roam-link-replace-all funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 3 [save-excursion progn if org-element-timestamp-parser let while let progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser setq progn] 1 [and while save-excursion let* cond org-element--object-lex let while catch let let* save-restriction save-excursion catch org-element-context org-roam-link-replace-at-point] 2 [outline-previous-heading let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 1 [org-roam-link-replace-all funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer funcall-interactively call-interactively] 1 ["#<compiled 0x1ff0967bee79>" apply prog1 let +org-inhibit-scrolling-a apply toc-org-insert-toc funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks] 1 [while let save-current-buffer org-element--cache-find and if setq let org-element-at-point org-entry-get-with-inheritance org-entry-get org-update-parent-todo-statistics funcall condition-case doom-run-hook run-hook-wrapped] 1 [setcar if org-element-put-property progn if let* or org-element--cache-key let* while let catch org-element--cache-process-request while catch let] 5 [if org-element-put-property progn if let* or org-element--cache-key let* while let catch org-element--cache-process-request while catch let let] 2 [let and cond let if if let* while let catch org-element--cache-process-request while catch let let if] 1 [and cond let if if let* while let catch org-element--cache-process-request while catch let let if save-current-buffer] 1 [let while let let org-element--cache-shift-positions if if if let* while let catch org-element--cache-process-request while catch let] 1 [memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 2 [eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 1 [or if progn unwind-protect let progn if progn if let if if if while if let*] 2 [let progn if progn if let if if if while if let* save-restriction save-excursion let progn] 1 [progn if let if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 4 [eq or and if let if if if while if let* save-restriction save-excursion let progn progn] 1 [not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 1 [= or if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 1 [if org-element-property setq while catch let let setq progn if let if if if while if] 1 [let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion] 1 [org-get-tags "#<compiled 0x1ff08327e739>" funcall cons setq if progn if progn if let if if if while if] 5 ["#<compiled 0x1ff08327e739>" funcall cons setq if progn if progn if let if if if while if let*] 1 [and or and if setq if if while if let* save-restriction save-excursion let progn progn let*] 1 [car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 1 [org-entry-get-with-inheritance "#<compiled 0x1ff08327e739>" funcall cons setq if progn if progn if let if if if while if] 5 [org-element-lineage org--property-local-values org-entry-get-with-inheritance "#<compiled 0x1ff08327e739>" funcall cons setq if progn if progn if let if if if] 1 [if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map org-scan-tags org-encrypt-entries funcall] 2 [eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 1 [let let setq progn if let if if if while if let* save-restriction save-excursion let progn] 1 [eq if catch let let eq and if progn if let if if if while if] 1 [org--property-local-values org-entry-get-with-inheritance "#<compiled 0x1ff08327e739>" funcall cons setq if progn if progn if let if if if while] 2 [eq and if progn if let if if if while if let* save-restriction save-excursion let progn] 1 [or setq if let eq and if progn if let if if if while if let*] 1 [undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer] 11 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe] 245 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped] 167 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode] 243 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree] 2440 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree] 19 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall] 1 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall] 228 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl] 234 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case] 228 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode] 3 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook] 175 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl] 3 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case] 126 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let] 90 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let] 43 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks] 1 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while] 66 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case] 6 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook] 12 [undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 8 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks] 8 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe] 6 ["#<compiled 0x1ff0971fa869>" undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case] 1 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply] 1 [undo-fu-session--walk-tree undo-fu-session--walk-tree undo-fu-session--encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks] 2 [undo-fu-session--list-to-index-map undo-fu-session--equivtable-encode undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer] 1 [sha1 undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [if +undo--append-zst-extension-to-file-name-a undo-fu-session--make-file-name undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks] 1 [undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer funcall-interactively] 3145 [sgml-html-meta-auto-coding-function find-auto-coding select-safe-coding-system write-region apply jka-compr-run-real-handler jka-compr-write-region apply jka-compr-handler write-region undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped] 14 [find-auto-coding select-safe-coding-system write-region apply jka-compr-run-real-handler jka-compr-write-region apply jka-compr-handler write-region undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case] 1 [find-coding-systems-region select-safe-coding-system write-region apply jka-compr-run-real-handler jka-compr-write-region apply jka-compr-handler write-region undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case] 24 [apply jka-compr-run-real-handler jka-compr-write-region apply jka-compr-handler write-region undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let] 225 [jka-compr-call-process jka-compr-write-region apply jka-compr-handler write-region undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks] 4 [file-truename file-truename file-truename file-truename "#<compiled 0x1ff09629c359>" cl-some projectile-project-root delete-file-projectile-remove-from-cache apply "#<compiled 0x1ff09704d795>" apply delete-file "#<compiled 0x1ff09829e0d5>" jka-compr-call-process jka-compr-write-region apply] 1 [apply "#<compiled 0x1ff09704d795>" apply delete-file jka-compr-write-region apply jka-compr-handler write-region undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let] 2 [kill-buffer "#<compiled 0x1ff09624c489>" undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer] 1 ["#<compiled 0x1ff09624c489>" undo-fu-session--save-impl undo-fu-session-save-safe funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 2 [looking-at-p if org-element-timestamp-parser let while let progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser cond setq let] 2 [progn if let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements cond let* if while let] 2 [let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements cond] 1 [replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements] 5 [save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements cond let* if] 4 [let* progn progn if save-excursion org-element--parse-elements cond let* if while let save-excursion org-element--parse-elements cond let* if] 1 [apply replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion] 8 [org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while] 2 [let if let* save-excursion progn if org-element-timestamp-parser let while let progn if save-excursion org-element--get-time-properties let* save-excursion] 1 [let* save-excursion progn if org-element-timestamp-parser let while let progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser cond] 1 [let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements cond let*] 2 [nconc list let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion] 4 [progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let] 1 [if while let save-excursion org-element--parse-elements cond let* if while let save-excursion org-element--parse-elements let save-excursion org-element-parse-buffer org-element-map] 2 [org-element-put-property let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements] 1 [nconc list let* save-excursion progn if org-element-timestamp-parser let while let progn if save-excursion org-element--get-time-properties let* save-excursion] 1 [progn and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements] 1 ["#<lambda 0x270e090716a08f>" funcall let progn if cond let "#<lambda -0x15fc2bad2fcbe4>" mapc cond let "#<lambda -0x15fc2bad2fcbe4>" funcall catch let let*] 1 [let format let* progn if progn if while let if let* org-element--cache-for-removal let if let save-current-buffer] 1 [pangu-spacing-search-and-replace pangu-spacing-modify-buffer run-hook-with-args-until-success basic-save-buffer save-buffer funcall-interactively call-interactively command-execute nil nil nil nil nil nil nil nil] 1 [run-hook-with-args-until-success basic-save-buffer save-buffer funcall-interactively call-interactively command-execute nil nil nil nil nil nil nil nil nil nil] 1 [basic-save-buffer-2 basic-save-buffer-1 basic-save-buffer save-buffer funcall-interactively call-interactively command-execute nil nil nil nil nil nil nil nil nil] 16 [apply process-file apply vc-git--call apply vc-git--out-ok apply vc-git--run-command-string apply vc-git-state apply vc-call-backend vc-state-refresh vc-after-save basic-save-buffer save-buffer] 1 [apply make-process--with-editor-process-filter apply make-process apply start-process apply "#<compiled 0x4382e387>" apply start-file-process--with-editor-process-filter apply start-file-process apply git-gutter:start-git-diff-process git-gutter:start-diff-process1 git-gutter:start-diff-process] 2 [git-gutter:start-diff-process git-gutter funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer funcall-interactively] 1 [generate-new-buffer org-roam-db--file-hash org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer funcall-interactively call-interactively] 2 [insert-file-contents-literally org-roam-db--file-hash org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [auto-coding-alist-lookup find-auto-coding select-safe-coding-system secure-hash org-roam-db--file-hash org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply] 1 [select-safe-coding-system secure-hash org-roam-db--file-hash org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer] 1 [emacsql-prepare--sexp emacsql-prepare emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let] 1 [emacsql--expand-format-string emacsql--get-op-info emacsql--*expr emacsql-prepare--sexp emacsql-prepare emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-update-file funcall condition-case doom-run-hook] 1 [flycheck-may-check-automatically apply flycheck-buffer-automatically flycheck--handle-idle-trigger apply timer-event-handler accept-process-output "#<compiled 0x1ff0973e72f5>" apply emacsql-wait "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-update-file] 1 ["#<compiled 0x1ff0973e72f5>" apply emacsql-wait "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while] 4 [or org-element--cache-key org-element--cache-key-less-p org-element--cache-compare avl-tree--do-delete avl-tree--do-delete avl-tree--do-delete avl-tree--do-delete avl-tree-delete or org-element--cache-remove progn if let if let] 1 [emacsql-escape-scalar emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-clear-file org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped] 1 ["#<compiled 0x1ff0973e72f5>" apply emacsql-wait "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-clear-file org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let] 6 [accept-process-output "#<compiled 0x1ff0973e72f5>" apply emacsql-wait "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-clear-file org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case] 1 [ucs-normalize-region ucs-normalize-HFS-NFD-region ucs-normalize-hfs-nfd-pre-write-conversion file-attributes org-roam-db-insert-file org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply] 1 [org-roam-db--file-hash org-roam-db-insert-file org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 ["#<compiled 0x1ff097c5ff31>" apply "#<compiled 0x1ff0963c6f99>" apply emacsql-send-message "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-file org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped] 1 [git-gutter:update-diffinfo "#<compiled 0x1ff0993659a9>" accept-process-output "#<compiled 0x1ff0973e72f5>" apply emacsql-wait "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-file org-roam-db-update-file funcall condition-case doom-run-hook] 1 ["#<compiled 0x1ff097c5ff31>" apply "#<compiled 0x1ff0963c6f99>" apply emacsql-send-message "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-query! org-roam-db-insert-file-node org-roam-db-update-file funcall condition-case doom-run-hook] 1 [apply emacsql-parse "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-query! org-roam-db-insert-file-node org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let] 1 ["#<compiled 0x1ff0973e72f5>" apply emacsql-wait "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-file-node org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let] 2 [abbreviate-file-name org-scan-tags org-map-entries org-roam-db-map-headlines org-roam-db-update-file funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks] 1 [let* progn if org-element--cache-process-request while catch let let if save-current-buffer progn if org-element--cache-sync if if progn] 1 [> not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 1 [eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 1 [if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let] 1 [if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 1 [prog1 car-safe if if setq if if while if let* save-restriction save-excursion let progn progn let*] 1 [org-roam-db-insert-refs "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq if progn if progn if let if if if while] 1 [org--property-local-values org-entry-get org-id-get org-roam-db-insert-aliases "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq if progn if progn if let if] 1 [org-id-get org-roam-db-insert-aliases "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq if progn if progn if let if if if] 1 [member-ignore-case org-entry-get org-id-get org-roam-db-insert-node-data "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq if progn if progn if let if] 1 [and not and if if let org-element-at-point org--property-local-values org-entry-get org-id-get org-roam-db-insert-node-data "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq] 1 [let* while let save-current-buffer org-element--cache-find and if setq let org-element-at-point org--property-local-values org-entry-get org-id-get org-roam-db-insert-aliases "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>"] 1 [and org-element--cache-active-p if let org-element-at-point org--property-local-values org-entry-get org-id-get org-roam-db-insert-node-data "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq if progn] 1 [unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point org--property-local-values org-entry-get] 1 [prog1 let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 1 [and if let org-element-at-point org--property-local-values org-entry-get org-id-get org-roam-db-insert-tags "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq if progn if] 1 [while let save-current-buffer org-element--cache-find and if setq let org-element-at-point org--property-local-values org-entry-get org-id-get org-roam-db-insert-aliases "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall] 1 [org-entry-get org-id-get org-roam-db-insert-tags "#<compiled 0x1ff081cd5c71>" "#<compiled 0x1ff081cdf871>" funcall cons setq if progn if progn if let if if] 1 [org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let*] 1 [and while save-excursion let* cond org-element--object-lex setq and while let save-restriction save-excursion org-element--parse-objects cond let* if] 5 [cond let cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements cond let* if] 1 [looking-at-p if org-element-timestamp-parser let while let* save-excursion org-element-planning-parser cond setq let save-excursion org-element--current-element let* if while] 3 [match-string-no-properties setq cond let catch org-element-link-parser and cond let* cond setq let while save-excursion let* cond] 1 [and while let if org-element--collect-affiliated-keywords let cond setq let save-excursion org-element--current-element let* if while let save-excursion] 1 [progn let* save-excursion progn if org-element-timestamp-parser let while let progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser] 1 [match-string org-parse-time-string let if let* save-excursion progn if org-element-timestamp-parser let while let progn if save-excursion org-element--get-time-properties] 1 [progn let* save-excursion progn if org-element-timestamp-parser let while let* save-excursion org-element-planning-parser cond setq let save-excursion org-element--current-element] 2 [let* progn progn let* save-excursion org-element-section-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion] 1 [apply replace-regexp-in-string org-link-unescape org-link-expand-abbrev setq cond let catch org-element-link-parser progn if cond let* cond let* cond] 1 [cond let catch org-element-link-parser and cond let* cond setq let while save-excursion let* cond org-element--object-lex setq] 3 [org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if while let save-excursion org-element--parse-elements cond] 1 [org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element let* if] 1 [cond cond let catch org-element-link-parser progn if cond let* cond let* cond setq let while save-excursion] 1 [generate-new-buffer emacsql-quote-scalar emacsql-escape-scalar mapconcat emacsql-escape-vector emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>"] 6 ["#<compiled 0x1ff0973e72f5>" apply emacsql-wait "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let progn if cond let] 14 ["#<compiled 0x1ff097c5ff31>" apply "#<compiled 0x1ff0963c6f99>" apply emacsql-send-message "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let progn if] 92 [emacsql-escape-scalar mapconcat emacsql-escape-vector emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let] 5 [org-entry-get org-id-get org-roam-id-at-point org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let progn if cond let "#<lambda -0x1b01485646be10ed>" mapc cond let "#<lambda -0x1b01485646be10ed>"] 1 [apply emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let progn if] 3 [emacsql-quote-scalar emacsql-escape-scalar mapconcat emacsql-escape-vector emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall] 1 [equal doom-special-buffer-p run-hook-with-args-until-success not or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff09621928d>" kill-buffer "#<compiled 0x1ff08088abf1>" emacsql-quote-scalar] 1 [doom-modeline-set-selected-window funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks get-buffer-create generate-new-buffer emacsql-quote-scalar emacsql-escape-scalar] 1 [if "#<lambda 0x245426eebc4>" "#<compiled 0x1ff09621928d>" kill-buffer "#<compiled 0x1ff096b4978d>" emacsql-quote-scalar emacsql-escape-scalar mapconcat emacsql-escape-vector emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql] 1 [emacsql-escape-vector emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let progn if] 1 [equal doom-temp-buffer-p not and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff09621928d>" kill-buffer "#<compiled 0x1ff08ee06b99>" emacsql-quote-scalar emacsql-escape-scalar mapconcat] 1 [apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let progn if cond let "#<lambda -0x1b01485646be10ed>" mapc] 1 [minibuffer-window-active-p doom-modeline-set-selected-window funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks kill-buffer "#<compiled 0x1ff0869f2d9d>" emacsql-quote-scalar] 1 [process-kill-buffer-query-function kill-buffer "#<compiled 0x1ff0869ce765>" emacsql-quote-scalar emacsql-escape-scalar mapconcat emacsql-escape-vector emacsql-format apply emacsql-compile apply "#<compiled 0x1ff097c5a809>" apply emacsql apply org-roam-db-query] 1 [and if let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 1 [org-roam-db--get-connection org-roam-db org-roam-db-query org-roam-db-insert-link "#<compiled 0x1ff0971aa5bd>" funcall let progn if cond let "#<lambda -0x1b01485646be10ed>" mapc cond let "#<lambda -0x1b01485646be10ed>"] 1 [file-relative-name doom-modeline--buffer-file-name doom-modeline-buffer-file-name doom-modeline-update-buffer-file-name funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer] 1 [redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [helm-source--persistent-help-string "#<compiled 0x1ff096b4585d>" apply "#<compiled 0x1ff0832496b1>" apply helm--setup-source helm-make-source helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil] 1 [helm-comp-read-get-candidates "#<compiled 0x1ff0808b0319>" "#<compiled 0x1ff0808b9f41>" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 4 [helm-candidate-buffer helm-init-candidates-in-buffer "#<compiled 0x1ff0808b9f41>" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 1 [helm-init-candidates-in-buffer "#<compiled 0x1ff0808b9f41>" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil nil nil] 2 [helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x] 1 [helm-insert-header helm-insert-header-from-source helm-render-source helm-update helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil] 1 [read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil] 36 [helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil nil] 523 [redisplay--update-region-highlight run-hook-with-args redisplay--pre-redisplay-functions apply "#<compiled 0x43975a59>" redisplay_internal\ \(C\ function\) read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 1 [helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal] 5 [helm-basename helm-set-case-fold-search "#<compiled 0x1ff0966a3371>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input] 1 [split-string helm-score-candidate-for-pattern "#<compiled 0x1ff0968613d5>" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff0832491c1>" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply] 3 [or doom-buffer-frame-predicate "#<compiled 0x1ff09621928d>" kill-buffer "#<compiled 0x1ff096380c2d>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>"] 1 [condition-case let while let doom-run-hooks apply run-hooks get-buffer-create generate-new-buffer helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches] 2 [funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks kill-buffer "#<compiled 0x1ff09718542d>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1 [helm-fuzzy-search "#<compiled 0x1ff07f410edd>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input] 108 [helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply] 1 [save-current-buffer +magit-buffer-p run-hook-with-args-until-success or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff09621928d>" kill-buffer "#<compiled 0x1ff081edd189>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches] 2 [helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal] 9 ["#<compiled 0x1ff080ed7a79>" "#<compiled 0x1ff080ed7a9d>" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input] 1 ["#<compiled 0x4380daab>" split-string helm-score-candidate-for-pattern "#<compiled 0x1ff09717ac35>" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff0832491c1>" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>"] 2 [helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply] 1 [helm-mm-3-search-base helm-mm-3-search helm-mm-search "#<compiled 0x1ff08094942d>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update] 2 [generate-new-buffer helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer] 2 [flycheck-handle-buffer-switch funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks kill-buffer "#<compiled 0x1ff097185765>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches] 1 [helm-score-candidate-for-pattern "#<compiled 0x1ff0809bf759>" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff0832491c1>" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler] 2 [helm-insert-match helm-render-source helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command] 1 ["#<compiled 0x1ff0982abaed>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>"] 1 ["#<compiled 0x4380daab>" split-string helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer] 1 ["#<compiled 0x1ff081cc9c4d>" "#<compiled 0x1ff0808301a9>" map-keymap cl--map-keymap-recursively "#<compiled 0x1ff081cc9d25>" map-keymap cl--map-keymap-recursively "#<compiled 0x1ff081cc9c75>" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source] 2 [run-hook-with-args redisplay--pre-redisplay-functions apply "#<compiled 0x43975a59>" redisplay_internal\ \(C\ function\) read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply] 1 ["#<compiled 0x1ff096acdc25>" mapconcat helm--mapconcat-pattern helm--fuzzy-match-maybe-set-pattern helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply] 1 ["#<compiled 0x1ff096acdc81>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff0982a5e3d>"] 2 ["#<compiled 0x1ff0971036f5>" "#<compiled 0x1ff081ca37a1>" map-keymap cl--map-keymap-recursively "#<compiled 0x1ff081ca371d>" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches] 2 ["#<compiled 0x1ff07fc855a1>" map-keymap cl--map-keymap-recursively "#<compiled 0x1ff07fc852d9>" map-keymap cl--map-keymap-recursively "#<compiled 0x1ff07fc85229>" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer] 1 [and save-current-buffer +magit-buffer-p run-hook-with-args-until-success or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff09621928d>" kill-buffer "#<compiled 0x1ff0809c7f79>" helm-fuzzy-default-highlight-match] 1 [cursor-sensor--move-to-tangible run-hook-with-args redisplay--pre-redisplay-functions apply "#<compiled 0x43975a59>" redisplay_internal\ \(C\ function\) read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 1 [timer-relative-time timer-inc-time timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil] 1 [helm-cleanup "#<compiled 0x1ff0982a3f79>" helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil] 1 [Automatic\ GC] 2009)) (24960 48810 772311 0) nil] > > Best, > Ihor > -- Sent from my Palm Pilot [-- Attachment #2: Type: text/html, Size: 58593 bytes --]
Greg Coladonato <gcoladon@gmail.com> writes:
> Here's the report:
>
> [profiler-profile "24.3" cpu #s(hash-table size 325 test equal rehash-size
> ...
The profile shows that bottleneck is undo-fu-session. Even if
org-element-cache is the cause, it should be some strange interaction
with other external packages. org-element-cache itself does not change
buffer text. If anything, the new code should change buffer text
properties less than before because some of the older cache logic is
moved from using text properties to using org-element-cache.
Best,
Ihor
[-- Attachment #1: Type: text/plain, Size: 100813 bytes --] On Mon, Nov 1, 2021 at 10:25 PM Ihor Radchenko <yantar92@gmail.com> wrote: > The profile shows that bottleneck is undo-fu-session. Even if > org-element-cache is the cause, it should be some strange interaction > with other external packages. org-element-cache itself does not change > buffer text. If anything, the new code should change buffer text > properties less than before because some of the older cache logic is > moved from using text properties to using org-element-cache. > I uninstalled undo-fu and re-ran the profiler. It takes even longer to save org files now. Here's the profiler report now, does it look like helm-M-x is now the bottleneck? [profiler-profile "24.3" cpu #s(hash-table size 730 test equal rehash-size 1.5 rehash-threshold 0.8125 data ([profiler-start funcall-interactively call-interactively command-execute helm-M-x-execute-command helm-execute-selection-action-1 helm-execute-selection-action helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 388 [file-truename "#<compiled 0x1ff1205bba71>" cl-some projectile-project-root let doom-project-root or cond let +doom-dashboard--get-pwd let if +doom-dashboard-update-pwd-h cond +doom-dashboard-reload-maybe-h funcall] 1 [doom-modeline-segment--major-mode eval format-mode-line doom-modeline-format--main eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil] 1 [doom-modeline--get-buffers doom-modeline-segment--irc eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil] 1 [let cond let* save-restriction save-excursion catch org-element-context org-roam-link-replace-at-point org-roam-link-replace-all funcall condition-case doom-run-hook run-hook-wrapped condition-case let while] 1 [org-in-regexp org-roam-link-replace-at-point org-roam-link-replace-all funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [let* while let save-current-buffer org-element--cache-find and if setq let org-element-at-point or org-element-at-point-no-context or let* save-restriction save-excursion] 1 ["#<compiled 0x1ff11f7247a9>" apply prog1 let +org-inhibit-scrolling-a apply toc-org-insert-toc funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks] 1 [abbreviate-file-name org-scan-tags org-encrypt-entries funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 151 [let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 4141 [if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn] 81 [org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 33 [setq progn if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 134 [progn setq cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch] 15 [or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let] 1695 [progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if while if] 4 [symbolp cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while] 13 [if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 243 [org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 1 [if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 26 [let let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if] 1409 [car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 1788 [cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 460 [let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn] 7139 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if] 938 [org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 3605 [while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 3962 [< and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 1302 [while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 433 [eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 3529 [cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 439 [memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 3527 [or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let*] 7245 [apply derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 232 [car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 7090 [> not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 3108 [and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 457 [eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 3602 [not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 3557 [org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 743 [and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 220 [nconc list let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 158 [and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 691 [car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 937 [save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn] 150 [cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 42 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if] 1363 [let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion] 1824 [if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 245 [let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 4069 [if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if] 454 [eq and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 204 [if if progn if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 662 [let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if let*] 1265 [memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 862 [setcar if org-element-put-property let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 12 [cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 472 [while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 3890 [not and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 432 [let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 635 [eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 454 [or if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 15 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if] 869 [or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 479 [eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 859 [setcar if org-element-put-property if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 8 [and or and if setq if if while if let* save-restriction save-excursion let progn progn let*] 889 [let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn] 904 [catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn] 230 [apply derived-mode-p and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 116 [or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn] 942 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let*] 1320 [memq if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 243 [eq if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 258 [let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 900 [and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 632 [save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 950 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 418 [setq progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 697 [let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 894 [org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn progn] 885 [setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 48 [eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 950 [<= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 443 [progn if let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let] 41 [progn if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 493 [rx--translate mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect] 17 [save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 911 [while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 451 [= or if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 457 [and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let*] 983 [org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if] 64 [<= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 458 [or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 25 [save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 177 [if setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 120 [nconc list let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 187 [progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while] 499 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion] 3 [replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 377 [let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 50 [eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 452 [condition-case if setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 665 [or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 485 [org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 457 [if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 22 [< and or and if setq if if while if let* save-restriction save-excursion let progn progn] 894 [org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn] 84 [progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 12 [let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if] 246 [if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 8 [cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 433 [let progn if cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 69 [let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let] 47 [let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 20 [let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 691 [let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let progn] 1554 [eq and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 132 [apply rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 20 [let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 113 [progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion] 459 [if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn] 205 [rx--sequence rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let] 18 [org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 252 [progn and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 43 [catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if let* save-restriction] 215 [memq if org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 8 [< and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 113 [1- cons cons cons cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn] 17 [memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 468 [save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 15 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 447 [progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 24 [apply derived-mode-p and org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction] 116 [or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 68 [org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect] 51 [and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 105 [rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond] 14 [cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if] 44 [apply replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 71 [fset progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn] 1 [apply derived-mode-p and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let*] 117 [if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 17 [and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 12 [memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 216 [eq not if if if let org-element-at-point progn if if if if while if let* save-restriction] 201 [progn and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 7 [org-at-heading-p org-back-to-heading org-up-heading-safe org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and] 23 [save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if] 26 [save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 22 [if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 7 [if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 14 [and org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 110 [while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 38 [progn and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 47 [cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 68 [save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 21 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and] 20 [if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let] 37 [and or and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 8 [if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 5 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if] 36 [setcar if org-element-put-property progn if let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 18 [and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 116 [cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 30 [replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 346 [rx--enclose rx--bracket rx--atomic-regexp rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let*] 28 [org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if] 78 [if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 57 [cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction] 10 [save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 30 [rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let*] 32 [if org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 52 [apply derived-mode-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 112 [or progn aref progn progn org-element--headline-cache-root if setq progn if if if if while if let*] 4 [if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction save-excursion let] 28 [apply replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 62 [and or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 9 [plist-get if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 14 [eq and if let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 7 [progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let*] 18 [org-at-heading-p let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 48 [if org-element-property < and or if if while if let* save-restriction save-excursion let progn progn let*] 12 [let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 40 [re-search-forward if let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 14 [if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction] 53 [apply derived-mode-p and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 131 [looking-at let and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 22 [if let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 2 [let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 31 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let] 42 [let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 104 [org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 35 [and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point] 28 [eq and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 6 [1- if list nconc list let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion] 55 [rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond] 13 [org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point] 38 [org-element--get-time-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 42 [let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 11 [rx--bracket rx--atomic-regexp rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction] 8 [/= and if if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 19 [let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 42 [org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element] 16 [apply derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 9 [let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 42 [let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 18 [if org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 26 [org-trim let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 39 [if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 18 [org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 4 [< and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 3 [save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if] 74 [and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 122 [looking-at let and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 17 [org-element-property let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn] 28 [org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 8 [= or if save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 14 [let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 24 [setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 14 [mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if] 6 [if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 55 [cons cons cons cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while] 21 [org-at-heading-p org-back-to-heading org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 20 [apply rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let let*] 18 [org-at-heading-p org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let*] 55 [cond org-element-type eq if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 4 [org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn let*] 9 [rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while] 19 [setq cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 25 [org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 40 [symbolp cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 13 [mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let] 6 [progn setq if if setq if if while if let* save-restriction save-excursion let progn progn let*] 2 [progn if cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 9 [let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn] 9 [org-element--get-node-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 33 [org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion] 68 [if org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let*] 4 [let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 14 [rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let] 23 [apply derived-mode-p org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq] 7 [progn progn setq while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 19 [rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect] 20 [and or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 10 [and org-element--cache-active-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 11 [not cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 16 [or cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 22 [or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 9 [org-element--get-time-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 31 [cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 61 [if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 6 [catch let let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if] 7 [org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq] 2 [not cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 6 [while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction save-excursion] 51 [org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 1 [org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 13 [org-element-property and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 2 [org-element-property = or if save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point] 18 [org-at-heading-p org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element] 44 [cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 62 [org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 37 [setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let catch] 1 [setq cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 16 [rx--translate-counted-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if] 13 [if org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 14 [set-buffer save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if] 2 [or set-buffer save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if] 2 [cons cons cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let] 5 [plist-get if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 2 [if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 7 [org-get-limited-outline-regexp let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 36 [rx--translate mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if] 26 [let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if] 1 [not cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 2 [setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 5 [progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 1 [cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 13 [eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let] 3 [plist-get if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 29 [if org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 6 [or progn aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let] 6 [org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 20 [org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 3 [let and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 3 [if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn] 40 [unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let] 5 [org-element--cache-interrupt-p if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [and if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 11 [if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 4 [plist-get if org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch] 21 [org-element-property let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let] 3 [org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 31 [plist-get if org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 5 [eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn] 25 [re-search-forward if let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 9 [not cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while] 14 [plist-get if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 3 [progn progn setq progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 15 [memq and or progn aref progn progn org-element--headline-cache-root if setq progn if if if if while] 6 [if org-element-property > not or and if while if let* save-restriction save-excursion let progn progn let*] 22 [if org-element-property and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 7 [/= if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if] 4 [and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 35 [progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 27 [org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn] 13 [if org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 3 [if org-element-property = or if if if while if let* save-restriction save-excursion let progn progn let*] 3 [or and if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 13 [plist-get if org-element-property < and or if if while if let* save-restriction save-excursion let progn progn] 4 [if setq progn if if if if while if let* save-restriction save-excursion let progn progn let*] 16 [progn setq while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 9 [plist-get if org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 2 [if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn] 7 [progn progn and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 19 [if save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 1 [if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 3 [setq while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction] 9 [if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 20 [rx--translate-seq rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn] 6 [org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 8 [plist-get if org-element-property > not or and if while if let* save-restriction save-excursion let progn progn] 8 [cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let let*] 6 [rx--enclose rx--bracket rx--atomic-regexp rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while] 27 [rx--sequence rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let] 22 [if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if] 8 [not or and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 9 [memq and or and org-element--cache-active-p if let org-element-at-point progn if if if if while if let*] 2 [if if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 7 [outline-on-heading-p org-at-heading-p let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 3 [org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 32 [progn aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch] 10 [rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let let* save-restriction] 6 [if org-element-property < and or and if setq if if while if let* save-restriction save-excursion let] 6 [apply derived-mode-p org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if] 3 [save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 19 [let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 38 [org-element--get-node-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 36 [and or and org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction] 6 [mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let] 10 [progn progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion let] 3 [catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 1 [org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let] 1 [cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 9 [cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 8 [org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq] 8 [not cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq] 3 [org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 5 [or and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction] 3 [symbolp cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if] 9 [org-up-heading-safe org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 11 [cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 21 [memq and or progn aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn] 9 [org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 5 [and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 1 [apply derived-mode-p org-get-limited-outline-regexp let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 3 [apply derived-mode-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 5 [1- if list nconc list let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if] 33 [progn if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if] 11 [progn progn let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 20 [not cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if] 14 [if org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 11 [progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 12 [or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [if progn if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 9 [symbolp cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 2 [org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 2 [plist-get if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 4 [org-element-property > not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 10 [if org-element-property let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 12 [progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 1 [org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 12 [let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 8 [if org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn] 8 [not cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [if if org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let*] 31 [org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 12 [not cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 2 [progn if if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 5 [org-get-limited-outline-regexp let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 12 [progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 2 [let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let*] 5 [plist-get if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 4 [org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction] 3 [throw cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [progn progn setq cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let] 25 [aref progn progn org-element-property < and or and if setq if if while if let* save-restriction] 2 [progn let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 14 [plist-get if org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 2 [not cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 1 [cond org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn let*] 4 [org-back-to-heading org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 1 [if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 7 [derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 1 [memq and or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 1 [org-element-property let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 7 [cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 6 [org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 11 [and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 7 [org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 2 [org-element--cache-sync if if progn if let org-element-at-point progn if if if if while if let* save-restriction] 4 [if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let* save-restriction] 16 [outline-previous-heading let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 4 [progn setq progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 6 [org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 10 [symbolp cond org-element-type eq and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 1 [save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if while] 3 [if org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 1 [cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 6 [org-outline-level org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 1 [and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and] 5 [org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction] 5 [if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 39 [mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let] 8 [if org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 3 [symbolp cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 2 [and or and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let*] 7 [cons cons cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond] 5 [symbolp cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq] 2 [progn let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 10 [let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 7 [not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 4 [cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let] 23 [plist-get if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 4 [cons cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let] 4 [let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 11 [rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while] 7 [let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 2 [if org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 9 [cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let] 3 [symbolp cond org-element-type memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if] 2 [progn progn if if setq if if while if let* save-restriction save-excursion let progn progn let*] 4 [org-element-type eq if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 2 [and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 3 [not cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 1 [if org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 1 [org-element-type memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 4 [plist-get if org-element-property let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 6 [cond org-element-type eq not if if if let org-element-at-point progn if if if if while if] 4 [if if if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 2 [if if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 6 [symbolp cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 1 [org-element-property < and or and if setq if if while if let* save-restriction save-excursion let progn] 7 [if let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 3 [derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and] 1 [if org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn let*] 3 [org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn let*] 4 [and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 2 [org-element-property < and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 6 [progn if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 2 [if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 4 [re-search-forward and if if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 2 [if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let] 7 [org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 2 [if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 6 [setcar if org-element-put-property let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 6 [or setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 15 [org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 8 [and cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 5 [progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 3 [let and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 6 [let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 6 [if if org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let] 6 [org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let*] 19 [apply derived-mode-p org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let] 4 [org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 4 [progn progn org-element-property < and or and if setq if if while if let* save-restriction save-excursion] 3 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion] 1 [and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 4 [memq not and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 6 [org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 1 [if if org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn] 5 [setq org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let*] 2 [progn if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn] 2 [cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 7 [org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 4 [memq and or and org-element--cache-active-p and if let org-element-at-point progn if if if if while if] 1 [if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 5 [cancel-timer progn if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn] 6 [progn org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let] 2 [if if save-excursion org-element--get-node-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 1 [and if if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion progn] 3 [save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if] 14 [cond org-element-type eq and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 4 [rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let] 1 [if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion progn unwind-protect let] 3 [let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let] 1 [and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 3 [if org-element-property and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 1 [plist-get if org-element-property = or if if if while if let* save-restriction save-excursion let progn progn] 1 [if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion] 10 [save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction] 5 [and or progn aref progn progn org-element--headline-cache-root if setq progn if if if if while if] 4 [progn if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 3 [org-reduced-level prog1 let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 1 [if org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 6 [rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion progn] 2 [rx--bracket rx--atomic-regexp rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let] 6 [if save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 1 [/= and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 1 [symbolp cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if] 2 [org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 5 [cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 4 [org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 3 [or set-buffer save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 2 [derived-mode-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 1 [progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn] 1 [cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 3 [org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [symbolp cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 5 [if org-element--cache-put or setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 3 [rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if] 2 [if let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 3 [org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 1 [timerp cancel-timer progn if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point] 3 [org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 2 [not cond org-element-type eq not if if if let org-element-at-point progn if if if if while] 1 [org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 9 [or and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 2 [if org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 3 [aref progn progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion] 1 [org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 2 [plist-get if org-element-property < and or and if setq if if while if let* save-restriction save-excursion] 1 [eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 2 [outline-on-heading-p org-at-heading-p org-back-to-heading org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and] 1 [if org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 2 [progn progn setq if if setq if if while if let* save-restriction save-excursion let progn progn] 4 [or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 3 [cons cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let*] 2 [org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion let progn progn] 2 [cond let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 2 [outline-on-heading-p org-at-heading-p org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond] 1 [if org-element--cache-sync if if progn if let org-element-at-point progn if if if if while if let*] 2 [rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn] 1 [symbolp cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [apply derived-mode-p org-get-limited-outline-regexp let* progn cond setq let save-excursion org-element--current-element setq if if while let let*] 3 [if list nconc list let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if] 5 [progn progn org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion] 4 [org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let] 2 [progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 1 [set-match-data unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion] 2 [plist-get if org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 1 [fset unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 1 [save-excursion if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 1 [progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion let progn] 1 [plist-get if org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 1 [aref progn progn org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 1 [progn aref progn progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction] 1 [if save-excursion org-element--get-node-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 2 [cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction] 1 [if save-excursion org-element--get-node-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 2 [org-element--cache-interrupt-p if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 1 [unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if] 3 [cond org-element-type memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 1 [plist-get if org-element-property = or if save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 1 [eq cond let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 2 [derived-mode-p and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction] 2 [save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if] 1 [cond let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 3 [org-element-property eq and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 1 [catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 1 [setq if if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 3 [throw cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 2 [apply derived-mode-p org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction] 1 [cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while] 5 [org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 2 [and cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 1 [org-element-property = or if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 1 [org-element-type eq not if if if let org-element-at-point progn if if if if while if let*] 1 [prog1 let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 2 [org-outline-level org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion] 3 [while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 4 [plist-get if org-element-property and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 1 [if org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 2 [symbolp cond org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn] 2 [not cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 3 [not or and if let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let] 1 [org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 1 [symbolp cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 2 [prog1 let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 1 [if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 1 [org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 1 [not cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [set-buffer save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 1 [org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 2 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction] 1 [while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 1 [cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 1 [or set-buffer save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 1 [org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 1 [not cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 1 [symbolp cond org-element-type eq and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 1 [setq if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if] 1 [symbolp cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 1 [progn org-element-property < and or and if setq if if while if let* save-restriction save-excursion let] 1 [doom-modeline-segment--buffer-position eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [helm-source--persistent-help-string "#<compiled 0x1ff11f62ad55>" apply "#<compiled 0x1ff11e3f30a5>" apply helm--setup-source helm-make-source helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil] 1 [helm-comp-read-get-candidates "#<compiled 0x1ff11ee1d4c9>" "#<compiled 0x1ff11f6329f1>" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 3 ["#<compiled 0x1ff11f6329f1>" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute] 1 [helm-init-candidates-in-buffer "#<compiled 0x1ff11f6329f1>" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [let* +popup-display-buffer-stacked-side-window-fn funcall let progn and while let* and let* or let* +popup-buffer display-buffer helm-default-display-buffer helm-display-buffer] 1 [helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x] 1 [helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil nil nil] 1 [read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil] 29 [helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil nil] 361 ["#<compiled 0x1ff11f756785>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>"] 1 ["#<compiled 0x41ff0eab>" split-string helm-score-candidate-for-pattern "#<compiled 0x1ff11f993861>" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff11f6acc49>" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>"] 1 [doom-protect-fallback-buffer-h kill-buffer "#<compiled 0x1ff11f022d25>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler] 1 [generate-new-buffer helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer] 1 [replace-buffer-in-windows kill-buffer "#<compiled 0x1ff1205aa711>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler] 1 [helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 1 [cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler] 1 [run-hook-with-args-until-success not or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff11d81578d>" kill-buffer "#<compiled 0x1ff11e5692e1>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1 [funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks kill-buffer "#<compiled 0x1ff11f1f3ffd>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1 [hide-mode-line-mode if save-current-buffer +helm--hide-mode-line apply helm-display-mode-line helm-move-selection-common helm--update-move-first-line helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer] 1 [helm-fuzzy-search "#<compiled 0x1ff11f7547e5>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input] 20 [helm-mm-3-search-base helm-mm-3-search helm-mm-search "#<compiled 0x1ff11fb8e391>" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update] 2 [helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply] 1 [funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks get-buffer-create generate-new-buffer helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 2 [persp--buffer-in-persps persp-kill-buffer-h kill-buffer "#<compiled 0x1ff11f8a1c91>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply] 1 ["#<compiled 0x1ff11d811199>" "#<compiled 0x1ff11e2cd335>" map-keymap cl--map-keymap-recursively "#<compiled 0x1ff11d7e6221>" map-keymap cl--map-keymap-recursively "#<compiled 0x1ff11d815701>" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source] 1 [helm-score-candidate-for-pattern "#<compiled 0x1ff11e694785>" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff11f6acc49>" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler] 2 ["#<compiled 0x1ff11ee32241>" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>"] 1 [let* progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff11d81578d>" kill-buffer "#<compiled 0x1ff11ee9004d>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches] 1 [helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer] 1 [helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal] 2 [helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal] 1 [+magit-buffer-p run-hook-with-args-until-success or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff11d81578d>" kill-buffer "#<compiled 0x1ff11fe92639>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1 [apply derived-mode-p and save-current-buffer +magit-buffer-p run-hook-with-args-until-success or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1ff11d81578d>" kill-buffer] 1 [apply cl-intersection apply cl-nintersection helm-score-candidate-for-pattern "#<compiled 0x1ff11d46dd11>" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff11f6acc49>" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input] 1 [helm-insert-match helm-render-source helm-update helm-check-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command] 1 ["#<compiled 0x4200381f>" redisplay--update-region-highlight run-hook-with-args redisplay--pre-redisplay-functions apply "#<compiled 0x42158e59>" redisplay_internal\ \(C\ function\) read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x] 2 [select-frame-set-input-focus helm-frame-or-window-configuration helm-cleanup "#<compiled 0x1ff11f168ff1>" helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil] 1 [profiler-report funcall-interactively call-interactively command-execute helm-M-x-execute-command helm-execute-selection-action-1 helm-execute-selection-action helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [Automatic\ GC] 238024)) (24961 50047 823782 0) nil] > > Best, > Ihor > -- Sent from my Palm Pilot [-- Attachment #2: Type: text/html, Size: 102332 bytes --]
Greg Coladonato <gcoladon@gmail.com> writes:
> I uninstalled undo-fu and re-ran the profiler. It takes even longer to save
> org files now. Here's the profiler report now, does it look like helm-M-x
> is
> now the bottleneck?
The profiler does not show anything about saving buffer. I suspect that
you had profiler running for a long time - the statistics appears to be
from a long session, so that saving buffer is insignificant compared to
some command you use frequently (helm search in org buffer?).
To make sure that you are getting profiler statistics just from saving
buffer, you can first run M-x profiler-stop. Only after making sure that
old profiler is not running, you can M-x profiler-start <save buffer>
M-x profiler-report.
Note that you can try to look for the bottleneck yourself: profiler
report buffer works similar to Org buffer - you can hit <TAB> to unfold
the call-tree and reveal more about slow commands.
Best,
Ihor