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

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") "no" "yes")
(org-element--format-element element) (org-element--format-element element)
(org-element--format-element real-element) (org-element--format-element real-element)
(org-element--cache-find (1- (org-element-property :begin real-element))) (org-element--format-element (org-element--cache-find (1- (org-element-property :begin real-element))))
(car (org-element--cache-find (org-element-property :begin real-element) 'both)) (org-element--format-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 (cdr (org-element--cache-find (org-element-property :begin real-element) 'both))))
(org-element-cache-reset)))))) (org-element-cache-reset))))))
;;; Cache persistence ;;; Cache persistence