branch: externals/org
commit 4edfb69f86857bd6712d7375eb00b160d7f2324d
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
* lisp/org-element.el (org-element--cache-for-removal): Add more logging
Log cache warning value when updating robust cached elements.
---
lisp/org-element.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/org-element.el b/lisp/org-element.el
index 7ea73637c4..476413c405 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -7043,7 +7043,8 @@ known element in cache (it may start after END)."
'(:contents-end :end :robust-end)
'(:contents-end :end)))
(org-element--cache-log-message
- "Shifting end positions of robust parent: %S"
+ "Shifting end positions of robust parent (warning %S): %S"
+ org-element--cache-change-warning
(org-element--format-element up)))
(unless (or
;; UP is non-robust. Yet, if UP is headline, flagging
@@ -7065,7 +7066,8 @@ known element in cache (it may start after END)."
(org-element-headline-parser
nil 'fast))))))
(when (org-element-type-p current 'headline)
(org-element--cache-log-message
- "Found non-robust headline that can be updated
individually: %S"
+ "Found non-robust headline that can be updated
individually (warning %S): %S"
+ org-element--cache-change-warning
(org-element--format-element current))
(org-element-set up current
org-element--cache-element-properties)
t)))
