all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
@ 2021-10-31  3:19 Scott Otterson
  2021-10-31  3:53 ` Ihor Radchenko
  0 siblings, 1 reply; 10+ messages in thread
From: Scott Otterson @ 2021-10-31  3:19 UTC (permalink / raw)
  To: Emacs-orgmode@gnu.org

[-- 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 --]

^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-10-31  3:19 Scott Otterson
@ 2021-10-31  3:53 ` Ihor Radchenko
  0 siblings, 0 replies; 10+ messages in thread
From: Ihor Radchenko @ 2021-10-31  3:53 UTC (permalink / raw)
  To: Scott Otterson; +Cc: Emacs-orgmode@gnu.org

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



^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
@ 2021-10-31 19:26 Greg Coladonato
  2021-11-01 12:42 ` Ihor Radchenko
  0 siblings, 1 reply; 10+ messages in thread
From: Greg Coladonato @ 2021-10-31 19:26 UTC (permalink / raw)
  To: emacs-orgmode

[-- 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 --]

^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-10-31 19:26 [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)] Greg Coladonato
@ 2021-11-01 12:42 ` Ihor Radchenko
  2021-11-02  3:25   ` Greg Coladonato
  0 siblings, 1 reply; 10+ messages in thread
From: Ihor Radchenko @ 2021-11-01 12:42 UTC (permalink / raw)
  To: Greg Coladonato; +Cc: emacs-orgmode

[-- 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


^ permalink raw reply related	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-11-01 12:42 ` Ihor Radchenko
@ 2021-11-02  3:25   ` Greg Coladonato
  2021-11-02  4:05     ` Ihor Radchenko
  0 siblings, 1 reply; 10+ messages in thread
From: Greg Coladonato @ 2021-11-02  3:25 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode

[-- 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 --]

^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-11-02  3:25   ` Greg Coladonato
@ 2021-11-02  4:05     ` Ihor Radchenko
  2021-11-02  4:33       ` Greg Coladonato
  0 siblings, 1 reply; 10+ messages in thread
From: Ihor Radchenko @ 2021-11-02  4:05 UTC (permalink / raw)
  To: Greg Coladonato; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-11-02  4:05     ` Ihor Radchenko
@ 2021-11-02  4:33       ` Greg Coladonato
  2021-11-02  5:26         ` Ihor Radchenko
  0 siblings, 1 reply; 10+ messages in thread
From: Greg Coladonato @ 2021-11-02  4:33 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode

[-- 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 --]

^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-11-02  4:33       ` Greg Coladonato
@ 2021-11-02  5:26         ` Ihor Radchenko
  2021-11-02 23:06           ` Greg Coladonato
  0 siblings, 1 reply; 10+ messages in thread
From: Ihor Radchenko @ 2021-11-02  5:26 UTC (permalink / raw)
  To: Greg Coladonato; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-11-02  5:26         ` Ihor Radchenko
@ 2021-11-02 23:06           ` Greg Coladonato
  2021-11-03 11:50             ` Ihor Radchenko
  0 siblings, 1 reply; 10+ messages in thread
From: Greg Coladonato @ 2021-11-02 23:06 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode

[-- 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 --]

^ permalink raw reply	[flat|nested] 10+ messages in thread

* Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)]
  2021-11-02 23:06           ` Greg Coladonato
@ 2021-11-03 11:50             ` Ihor Radchenko
  0 siblings, 0 replies; 10+ messages in thread
From: Ihor Radchenko @ 2021-11-03 11:50 UTC (permalink / raw)
  To: Greg Coladonato; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 10+ messages in thread

end of thread, other threads:[~2021-11-03 11:50 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2021-10-31 19:26 [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)] Greg Coladonato
2021-11-01 12:42 ` Ihor Radchenko
2021-11-02  3:25   ` Greg Coladonato
2021-11-02  4:05     ` Ihor Radchenko
2021-11-02  4:33       ` Greg Coladonato
2021-11-02  5:26         ` Ihor Radchenko
2021-11-02 23:06           ` Greg Coladonato
2021-11-03 11:50             ` Ihor Radchenko
  -- strict thread matches above, loose matches on Subject: below --
2021-10-31  3:19 Scott Otterson
2021-10-31  3:53 ` Ihor Radchenko

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.