branch: externals/org
commit 40ae6286ed3e7b103f5dbbd1a370dba094906f4f
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-element: Move cache log message to more logical place
* lisp/org-element.el (org-element--cache-sync):
(org-element--cache-process-request): Move record about finished cache
processing to after we remove the processed request.
---
lisp/org-element.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/org-element.el b/lisp/org-element.el
index f6f6904de8..93f4f4f9bc 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -6563,7 +6563,11 @@ The buffer is: %s\n Current command: %S\n Backtrace:\n%S"
;; unused.
(setf (org-element--request-end next)
(org-element--request-end request)))
(setq org-element--cache-sync-requests
- (cdr org-element--cache-sync-requests)))))
+ (cdr org-element--cache-sync-requests))
+ (org-element--cache-log-message
+ "org-element-cache: Finished process. The cache size is %S.
The remaining sync requests: %S"
+ org-element--cache-size
+ (let ((print-level 2)) (prin1-to-string
org-element--cache-sync-requests))))))
;; If more requests are awaiting, set idle timer accordingly.
;; Otherwise, reset keys.
(if org-element--cache-sync-requests
@@ -6946,11 +6950,7 @@ If this warning appears regularly, please report the
warning text to Org mode ma
(avl-tree--node-right node)
(pop stack)))))))
;; We reached end of tree: synchronization complete.
- t))
- (org-element--cache-log-message
- "org-element-cache: Finished process. The cache size is %S. The remaining
sync requests: %S"
- org-element--cache-size
- (let ((print-level 2)) (prin1-to-string
org-element--cache-sync-requests)))))
+ t))))
(defun org-element--headline-parent-deferred (headline)
"Parse parent for HEADLINE."
