Re: Provide org-insert-subitem

[Adam Porter]

Hi Bastien, Ihor,

On 12/9/23 11:53, Bastien Guerry wrote:

Hi Adam,

Ihor Radchenko  writes:


Adam Porter  writes:


Well, it's been a few years since I forgot to bump this thread. [0]  :)
I just rediscovered it after wondering why the command
org-insert-subheading still doesn't have a default binding.  May we
revisit this?  I find myself wanting to insert a subheading almost every
day, and I have to "M-x org-insert-subheading RET".

Of course I could bind it myself, and in one of my configs I have, but I
still think it deserves a default binding, even if it were to be a
"smart" command that worked like org-table-copy-down when in a table and
does org-insert-subheading otherwise (because I still think that "S-RET"
is an obviously appropriate binding for this command).

What do you think?  =)


I think that it still makes sense, even after all these years ;)


+1!  Thanks for reviving this thread.

I would suggest a larger set of enhancements here:

- S-RET on a heading copies down the heading.

   For that we would need a new command `org-clone-subtree' bound to
   S-RET that would immediately copy the heading at point. This command
   would accept a universal argument to allow for a number a clones and
   two universal arguments for adding a time shift.

   `org-clone-subtree-with-time-shift' would continue to be bound to
   `C-c C-x c' but would be really a call to `org-clone-subtree'

- S-RET on a list item calls `org-insert-subitem`, a new command.

- C-M-RET on a heading calls `org-insert-subheading', the existing
   command.

- C-M-RET on a list item calls `org-insert-subitem', a new command.

S-RET already "copy down" a table cells, so I'm really suggesting a
generalization of the current keybinding.

I like C-M-RET better than S-RET because inserting a subheading is
like a "subkey" or inserting a heading.

These improvements seem consistent.  WDYT?


Not that I necessarily object, but that seems like a lot of new things 
to me.  The immediate, simple benefit I seek is provided by this code in 
my config now, binding it to "S-" in org-mode-map:


  (defun ap/org-shift-return ( arg)
"Call `org-insert-subheading' or `org-table-copy-down'."
(interactive "p")
(cond ((org-at-table-p)
   (org-table-copy-down arg))
  (t
   (org-insert-subheading arg

The "C-M-RET" binding doesn't feel quite right to me.  Using "shift" 
feels like a mnemonic for "sub", whereas "C-M" seems like it should do 
something much less frequently used, since it requires two modifiers.


Ihor also made some good points in his message about the combinations of 
commands to insert before/after, with/without TODO, etc, and that 
"M- " is already a quick way to insert a subheading (I wasn't 
aware of the option `org-cycle-level-after-item/entry-creation').  So 
maybe this idea of mine isn't as important as I thought.  :)


Thanks,
Adam

Bug in sorting headings according to priority

[Zelphir Kaltstahl]

Hello Org-mode users!

I have observed a mini bug over some time now:

When I sort headings in org mode according to their priority (C-c ^ p), 
sometimes the last heading (lowest priority) will not get its own line, but will 
be put in one line with the second last heading, making it no longer a separate 
heading, but part of the second last actual heading.


This behavior depends on how one marks/selects/highlights the headings to be 
sorted. If one highlights the headings from top to bottom, moving the point to 
the next line after the last heading that shall be sorted, then it works without 
merging the last heading and the second last. However, if one does not move the 
point to the next line, then the described behavior occurs.


I have the suspicion, that this is about each heading being defined as 
consisting also of a final newline character and since one does not select that 
as well by moving the point past it, org mode does not consider the last heading 
to be a separate heading, but instead thinks it is part of the second last 
heading. Or perhaps, that it only considers selected text to be sorted, not 
headings that continue after selected text and therefore forgets to include a 
newline for the last heading and if that heading moves around without the 
newline, another heading will be joined on to it on the same line, if any 
heading comes afterwards in the sorted result.


When one highlights from bottom to top (so the other way around!) the same thing 
happens. If one started highlighting on the line below the last heading, then 
the sorting works without merging the last two lines. However, if one starts 
highlighting on the last heading line, then again org mode puts the last heading 
on the line of the second last heading.


Of course this is quite annoying, when one sorts a lot, and one has to always be 
careful how one selects the headings.


Note also, that this only happens, when org mode sorting actually would change 
the order of headings. If the headings are already sorted, then this does not 
happen.


Here is an example document:


* 1
** [#A] 2.1
** [#C] 2.2
** [#B] 2.3


In this document move the cursor:


* 1
** [#A] 2.1
** [#C] 2.2
** [#B] 2.3
   ^
   `--- cursor here


Then select until the start of the first level 2 heading, so that all level 2 
headings are selected.


Then run `org-sort' or press `C-c ^' and then `p'.

The result is:


* 1
** [#A] 2.1
** [#B] 2.3** [#C] 2.2


Instead of:


* 1
** [#A] 2.1
** [#B] 2.3
** [#C] 2.2


This also happens, when I try it in an Emacs started with `emacs -Q'.

In my opinions org-sort should sort without merging headings. It should probably 
consider all text until the end of even a partially selected/highlighted heading 
including the final newline character to avoid this.


 * Emacs version: GNU Emacs 28.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version
   3.24.37, cairo version 1.16.0)
 * org-mode version: 9.6.7

Please let me know, in case more details are required and how to get them.

Best regards,
Zelphir

--
repositories:https://notabug.org/ZelphirKaltstahl

Re: [BUG] ox-texinfo no longer inserts menus if there is no content

[Jonas Bernoulli]

Ihor Radchenko  writes:

> Jonas Bernoulli  writes:
>
>>> Are you saying that the problem is still present on the latest main?
>>
>> Yes, I can still reproduce the "menus are missing" and "type of
>> subsections in appendix changed" issues with the provided test file.
>
> That was a subtle bug.
> Fixed, on main.
> https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=d2ce1c6ec

I can confirm.
Thanks!

 Jonas

Re: Links & images with different attributes in the same paragraph

[Ihor Radchenko]

Max Nikulin  writes:

>> @wrap{{outer wrap; @wrap{{inner wrap allowing } as well}}; back}}.
>
> Are you assuming invisible zero-width space as a way to escape literal 
> {{ or }}? I would prefer some visible characters.

No, not zero-width space. Literally, {{...}}. The idea is to define
delimiters as "[{]+" the matching number of "}". This way, we do not
need to worry about escaping "}" inside and can get nested markup for
free. It is more or less how Org parser works for special block:
the opening delimiter is #+begin_whatever is matched against
#+end_.

Also, see https://list.orgmode.org/orgmode/87mtaez8do.fsf@localhost/
with my original proposal and some discussion that followed up.

>> What about @wrap[#+attr_html: :alt "Text"]{[[/path/to/image]]}?
>
> Leaving aside precise syntax (that perhaps should be discussed in 
> another thread), it solves the issue.
>
> Do you have any idea how to address the following complain?
>
> https://list.orgmode.org/orgmode/875ykwvmz7@posteo.net
> Juan Manuel Macías. Re: About 'inline special blocks' Sun, 19 Jun 2022 
> 12:47:40 +
>> Bringing that into the paragraph is
>> unnecessarily overloading the paragraph and breaking the social contract
>> of lightweight markup, where paragraphs should still look like
>> paragraphs.
>
> I consider it as a valid point, so I tried to take advantage of noweb 
> features. I am in doubts concerning *evaluation* of expressions in 
> addition to just substitutions. It allows to implement another kind of 
> #+link: macro, but it gives too much power to my taste.

I am pretty sure that I replied to that concern raised in a parallel
thread. My idea was to allow macro replacement inside attributes:

#+macro: alt #+attr_html :alt $1
What about @wrap[<<>>]{[[/path/to/image]]}

Or even inline definition like

#+@macro: alt @wrap[@+attr_html :alt $1]
What about @alt[Text]{[[/path/to/image]]}

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at .
Support Org development at ,
or support my work at 

Re: [PATCH] org-id: allow using parent's existing id in links to headlines

[Ihor Radchenko]

"Rick Lupton"  writes:

> Thanks for the example and explanation. Yes that does make sense, mostly. I 
> assume this would look like this in org-store-link:
>
> (let ((org-link-context-for-files (org-xor org-link-context-for-files (equal 
> arg '(4
> (...call store link functions...))

Yes.

> The meaning of `org-link-context-for-files' is then shifting from being 
> "should file: links include search strings (and how much should be included 
> when the region is active)" from "should any link that supports search 
> strings include them (and how much should be included when the region is 
> active)". Is it necessary to rename it to reflect this? (e.g. to 
> `org-link-use-context' or similar).

I do not think so - with your addition, we are still linking to files.
May simply update the docstring for `org-link-context-for-files' and
`org-store-link'.

> It's also then less clear what the role of `org-id-link-use-context' is and 
> how it interacts with `org-link-context-for-files'. I had included 
> `org-id-link-use-context' to give a way to opt out of the new behaviour (i.e. 
> using the update discussed above, a search string is added if (and 
> org-link-context-for-files org-id-link-use-context) ). But perhaps this is 
> also unnecessarily complicated, and `org-id-link-use-context' could be 
> removed again completely?

I do not think so - it is important to keep an option for users to
return to previous behaviour.

We might, in theory, modify `org-link-context-for-files' to allow
per-link type customization (then, people could set things back to
"context just for file: links"), but it would be more complicated IMHO.

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at .
Support Org development at ,
or support my work at 

Re: [BUG] ox-texinfo no longer inserts menus if there is no content

[Ihor Radchenko]

Jonas Bernoulli  writes:

>> Are you saying that the problem is still present on the latest main?
>
> Yes, I can still reproduce the "menus are missing" and "type of
> subsections in appendix changed" issues with the provided test file.

That was a subtle bug.
Fixed, on main.
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=d2ce1c6ec

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at .
Support Org development at ,
or support my work at 

Re: [BUG] Should we remove the obsolete org-contrib/org-track.el?

[Ihor Radchenko]

Bastien Guerry  writes:

> Indeed, done!

Fixed.

Re: [BUG] Should we remove the obsolete org-contrib/org-track.el?

[Bastien Guerry]

Ihor Radchenko  writes:

> Shall we remove the obsolete org-track.el?
> It is an obsolete library, marked obsolete 11 years ago, inside
> minimally maintained repository. I suspect that it is now safe to remove
> it :)

Indeed, done!

-- 
 Bastien Guerry

[BUG] Should we remove the obsolete org-contrib/org-track.el?

[Ihor Radchenko]

Shall we remove the obsolete org-track.el?
It is an obsolete library, marked obsolete 11 years ago, inside
minimally maintained repository. I suspect that it is now safe to remove
it :)

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at .
Support Org development at ,
or support my work at 

Re: [BUG] or-element-cache [9.6.13 ( @ /home/boudiccas/.emacs.d/elpa/org-9.6.13/)]

[Ihor Radchenko]

Sharon Kimble  writes:

>  ■  Warning (org-element-cache): org-element--cache: Org parser error in 
> today.org::65284. Resetting.
>  The error was: (wrong-number-of-arguments ((t) (element) "Return type of 
> ELEMENT.
>
> The function returns the type of the element or object provided.
> It can also return the following special value:
>   `plain-text'   for a string
>   `org-data' for a complete document
>   nilin any other case." (cond ((not (consp element)) (and 
> (stringp element) 'plain-text)) ((symbolp (car element)) (car element 2)
> ...
> Emacs  : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 
> 3.24.38, cairo version 1.16.0)
>  of 2023-11-16
> Package: Org mode version 9.5.5 ( @ /home/boudiccas/git/org-mode)

This error + inconsistent Org mode version implies mixed installation.
May you please remove Org folder from .emacs.d/elpa and re-install?
See https://irreal.org/blog/?p=10999

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at .
Support Org development at ,
or support my work at 

Re: [BUG] or-element-cache [9.5.5 ( @ /home/boudiccas/git/org-mode)]

[Ihor Radchenko]

Sharon Kimble  writes:

>  ■  Warning (org-element-cache): org-element--cache: Org parser error in 
> today.org::65284. Resetting.
>  The error was: (wrong-number-of-arguments ((t) (element) "Return type of 
> ELEMENT.
> ...
> Package: Org mode version 9.5.5 ( @ /home/boudiccas/git/org-mode)

Canceled.
In favor of https://orgmode.org/list/87ttoi4ltq@skimble09.plus.com

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at .
Support Org development at ,
or support my work at 

Re: Links & images with different attributes in the same paragraph

[Max Nikulin]

On 14/12/2023 22:23, Ihor Radchenko wrote:


Not necessarily. The current parser also allows balanced brackets inside
an object.


Thanks, I forgot about it. Balancing of brackets alleviates the issue 
with nested objects. I am unsure if it is still pure top-down parser, 
but it does not matter.



@wrap{{outer wrap; @wrap{{inner wrap allowing } as well}}; back}}.


Are you assuming invisible zero-width space as a way to escape literal 
{{ or }}? I would prefer some visible characters.



As you see, my solution is conceptually similar to #+begin_quote1 idea.


It is better since balanced delimiters make adding unique suffix to 
#+begin_... and #+end... unnecessary.



What about @wrap[#+attr_html: :alt "Text"]{[[/path/to/image]]}?


Leaving aside precise syntax (that perhaps should be discussed in 
another thread), it solves the issue.


Do you have any idea how to address the following complain?

https://list.orgmode.org/orgmode/875ykwvmz7@posteo.net
Juan Manuel Macías. Re: About 'inline special blocks' Sun, 19 Jun 2022 
12:47:40 +

Bringing that into the paragraph is
unnecessarily overloading the paragraph and breaking the social contract
of lightweight markup, where paragraphs should still look like
paragraphs.


I consider it as a valid point, so I tried to take advantage of noweb 
features. I am in doubts concerning *evaluation* of expressions in 
addition to just substitutions. It allows to implement another kind of 
#+link: macro, but it gives too much power to my taste.

[BUG] or-element-cache [9.5.5 ( @ /home/boudiccas/git/org-mode)]

[Sharon Kimble]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.


 ■  Warning (org-element-cache): org-element--cache: Org parser error in 
today.org::65284. Resetting.
 The error was: (wrong-number-of-arguments ((t) (element) "Return type of 
ELEMENT.

The function returns the type of the element or object provided.
It can also return the following special value:
  `plain-text'   for a string
  `org-data' for a complete document
  nilin any other case." (cond ((not (consp element)) (and 
(stringp element) 'plain-text)) ((symbolp (car element)) (car element 2)
 Backtrace:
"  backtrace-to-string(nil)
  (progn (backtrace-to-string (backtrace-get-frames 'backtrace)))
  (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) 
(progn (backtrace-to-string (backtrace-get-frames 'backtrace
  (format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (buffer-name (current-buffer)) pom err (if (and 
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn 
(backtrace-to-string (backtrace-get-frames 'backtrace)
  (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The 
error was: %S\\n Backtrace:\\n%S\\n Please report this to Org mode mailing list 
(M-x org-submit-bug-report).\" (buffer-name (current-buffer)) pom err (if (and 
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn 
(backtrace-to-string (backtrace-get-frames ...)) (format-string (if (or 
(not org-element--cache-diagnostics-ring) (not (eq 'backtrace 
org-element--cache-self-verify))) format-string (prog1 (concat (format 
\"Warning(%s): \" (buffer-name ...)) format-string \"\\nBacktrace:\\n  \" 
(mapconcat #'identity (ring-elements org-element--cache-diagnostics-ring) \"\\n 
 \")) (setq org-element--cache-diagnostics-ring nil) (if (and (boundp 
'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" 
format-string)) (display-warning 'org-element-cache (concat 
\"org-element--cache: \" format-string
  (condition-case err (org-element--parse-to pom) (error (let* ((format-string 
(format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (buffer-name (current-buffer)) pom err (if (and ... 
...) (progn ... (format-string (if (or (not 
org-element--cache-diagnostics-ring) (not ...)) format-string (prog1 (concat 
... format-string \"\\nBacktrace:\\n  \" ...) (setq 
org-element--cache-diagnostics-ring nil) (if (and (boundp 'org-batch-test) 
org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) 
(display-warning 'org-element-cache (concat \"org-element--cache: \" 
format-string (org-element-cache-reset) (org-element--parse-to pom)))
  (if cached-only (if (and (org-element--cache-active-p) (or (not 
org-element--cache-sync-requests) (< pom (aref (car 
org-element--cache-sync-requests) 1 (progn (org-element--cache-find pom))) 
(condition-case err (org-element--parse-to pom) (error (let* ((format-string 
(format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (buffer-name ...) pom err (if ... ...))) 
(format-string (if (or ... ...) format-string (prog1 ... ... (if (and 
(boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat 
\"org-element--cache: \" format-string)) (display-warning 'org-element-cache 
(concat \"org-element--cache: \" format-string (org-element-cache-reset) 
(org-element--parse-to pom
  (setq element (if cached-only (if (and (org-element--cache-active-p) (or (not 
org-element--cache-sync-requests) (< pom (aref (car 
org-element--cache-sync-requests) 1 (progn (org-element--cache-find pom))) 
(condition-case err (org-element--parse-to pom) (error (let* ((format-string 
(format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" ... pom err ...)) (format-string (if ... 
format-string ...))) (if (and (boundp ...) org-batch-test) (error \"%s\" 
(concat \"org-element--cache: \" format-string)) (display-warning 
'org-element-cache (concat \"org-element--cache: \" format-string 
(org-element-cache-reset) (org-element--parse-to pom)
  (let (element) (if (org-element--cache-active-p) (progn (if (not 
(save-current-buffer (set-buffer (or ... ...)) org-element--cache)) 
(org-element-cache-reset) (if cached-only nil (org-element--cache-sync 

[BUG] or-element-cache [9.6.13 ( @ /home/boudiccas/.emacs.d/elpa/org-9.6.13/)]

[Sharon Kimble]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

 https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.


 ■  Warning (org-element-cache): org-element--cache: Org parser error in 
today.org::65284. Resetting.
 The error was: (wrong-number-of-arguments ((t) (element) "Return type of 
ELEMENT.

The function returns the type of the element or object provided.
It can also return the following special value:
  `plain-text'   for a string
  `org-data' for a complete document
  nilin any other case." (cond ((not (consp element)) (and 
(stringp element) 'plain-text)) ((symbolp (car element)) (car element 2)
 Backtrace:
"  backtrace-to-string(nil)
  (progn (backtrace-to-string (backtrace-get-frames 'backtrace)))
  (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) 
(progn (backtrace-to-string (backtrace-get-frames 'backtrace
  (format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (buffer-name (current-buffer)) pom err (if (and 
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn 
(backtrace-to-string (backtrace-get-frames 'backtrace)
  (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The 
error was: %S\\n Backtrace:\\n%S\\n Please report this to Org mode mailing list 
(M-x org-submit-bug-report).\" (buffer-name (current-buffer)) pom err (if (and 
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn 
(backtrace-to-string (backtrace-get-frames ...)) (format-string (if (or 
(not org-element--cache-diagnostics-ring) (not (eq 'backtrace 
org-element--cache-self-verify))) format-string (prog1 (concat (format 
\"Warning(%s): \" (buffer-name ...)) format-string \"\\nBacktrace:\\n  \" 
(mapconcat #'identity (ring-elements org-element--cache-diagnostics-ring) \"\\n 
 \")) (setq org-element--cache-diagnostics-ring nil) (if (and (boundp 
'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" 
format-string)) (display-warning 'org-element-cache (concat 
\"org-element--cache: \" format-string
  (condition-case err (org-element--parse-to pom) (error (let* ((format-string 
(format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (buffer-name (current-buffer)) pom err (if (and ... 
...) (progn ... (format-string (if (or (not 
org-element--cache-diagnostics-ring) (not ...)) format-string (prog1 (concat 
... format-string \"\\nBacktrace:\\n  \" ...) (setq 
org-element--cache-diagnostics-ring nil) (if (and (boundp 'org-batch-test) 
org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) 
(display-warning 'org-element-cache (concat \"org-element--cache: \" 
format-string (org-element-cache-reset) (org-element--parse-to pom)))
  (if cached-only (if (and (org-element--cache-active-p) (or (not 
org-element--cache-sync-requests) (< pom (aref (car 
org-element--cache-sync-requests) 1 (progn (org-element--cache-find pom))) 
(condition-case err (org-element--parse-to pom) (error (let* ((format-string 
(format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (buffer-name ...) pom err (if ... ...))) 
(format-string (if (or ... ...) format-string (prog1 ... ... (if (and 
(boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat 
\"org-element--cache: \" format-string)) (display-warning 'org-element-cache 
(concat \"org-element--cache: \" format-string (org-element-cache-reset) 
(org-element--parse-to pom
  (setq element (if cached-only (if (and (org-element--cache-active-p) (or (not 
org-element--cache-sync-requests) (< pom (aref (car 
org-element--cache-sync-requests) 1 (progn (org-element--cache-find pom))) 
(condition-case err (org-element--parse-to pom) (error (let* ((format-string 
(format \"Org parser error in %s::%S. Resetting.\\n The error was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" ... pom err ...)) (format-string (if ... 
format-string ...))) (if (and (boundp ...) org-batch-test) (error \"%s\" 
(concat \"org-element--cache: \" format-string)) (display-warning 
'org-element-cache (concat \"org-element--cache: \" format-string 
(org-element-cache-reset) (org-element--parse-to pom)
  (let (element) (if (org-element--cache-active-p) (progn (if (not 
(save-current-buffer (set-buffer (or ... ...)) org-element--cache)) 
(org-element-cache-reset) (if cached-only nil (org-element--cache-sync