tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-element--cache-verify-element: Format all the elements in warning 

* lisp/org-element.el (org-element--cache-verify-element): Use
`org-element--format-element' to print all the elements.
This commit is contained in:
Ihor Radchenko 2023-01-14 12:24:13 +03:00
parent b34bdc8719
commit ddca762329
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-element.el
View File

@ -7208,9 +7208,9 @@ The element is: %S\n The real element is: %S\n Cache around :begin:\n%S\n%S\n%S"
"no" "yes")
(org-element--format-element element)
(org-element--format-element real-element)
(org-element--cache-find (1- (org-element-property :begin real-element)))
(car (org-element--cache-find (org-element-property :begin real-element) 'both))
(cdr (org-element--cache-find (org-element-property :begin real-element) 'both)))
(org-element--format-element (org-element--cache-find (1- (org-element-property :begin real-element))))
(org-element--format-element (car (org-element--cache-find (org-element-property :begin real-element) 'both)))
(org-element--format-element (cdr (org-element--cache-find (org-element-property :begin real-element) 'both))))
(org-element-cache-reset))))))
;;; Cache persistence