`org-element-cache-map' misses elements at end of buffer

[Morgan Smith <Morgan.J.Smith@outlook.com>]

[-- Attachment #1: Type: text/plain, Size: 588 bytes --]

Hello!

I may or may not have been trying to rewrite `org-clock-sum' for like
the 5th time.

Anyways I was wanting to parse a file using `org-element-cache-map' that
looked roughly like this:

========
* clock
:LOGBOOK:
CLOCK: [2024-03-24 Sun 15:18]--[2024-03-24 Sun 15:39] =>  0:21
:END:
=======

However I couldn't get the clock element this way.  After much trail and
error I found that simply adding another heading on the end allowed me
to get the clock element!

I've attached a test so you can reproduce the problem.  In the test it
is a paragraph element that is not showing up.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-failing-test.patch --]
[-- Type: text/x-patch, Size: 1212 bytes --]

From 9deff2111b73bb2ceb9127db5d88486affa04f0b Mon Sep 17 00:00:00 2001
From: Morgan Smith <Morgan.J.Smith@outlook.com>
Date: Thu, 18 Apr 2024 09:18:51 -0400
Subject: [PATCH] failing test

---
 testing/lisp/test-org-element.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 8b2cf1642..313556f49 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -4983,6 +4983,19 @@ Text
 
 \f
 ;;; Test Cache.
+(ert-deftest test-org-element/cache-map ()
+  "Test `org-element-cache-map'."
+  (org-test-with-temp-text "* headline\n:DRAWER:\nparagraph\n:END:\n* headline 2"
+    (should
+     (equal
+      '(org-data headline section drawer paragraph headline)
+      (org-element-cache-map #'car :granularity 'element))))
+  (org-test-with-temp-text "* headline\n:DRAWER:\nparagraph\n:END:"
+    (should
+     (equal
+      ;; This fails because paragraph isn't found!
+      '(org-data headline section drawer paragraph)
+      (org-element-cache-map #'car :granularity 'element)))))
 
 (ert-deftest test-org-element/cache ()
   "Test basic expectations and common pitfalls for cache."
-- 
2.41.0