[nongnu] elpa/org-present 8ee4008b83 19/47: detect last slide and go to top of slide before narrow, so we do not

[ELPA Syncer]

branch: elpa/org-present
commit 8ee4008b83ac18b3f9d7d869d223c85a39553994
Author: Richard Lister <ric@burton-2.home>
Commit: Richard Lister <ric@burton-2.home>

    detect last slide and go to top of slide before narrow, so we do not
    narrow on a subheading
---
 org-present.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/org-present.el b/org-present.el
index 878fec0bfe..9398ffb34f 100644
--- a/org-present.el
+++ b/org-present.el
@@ -91,10 +91,13 @@
   "Jump to next top-level heading."
   (interactive)
   (widen)
-  (if (org-current-level)
+  (if (org-current-level) ;inside any heading
       (progn
         (org-present-top)
-        (org-get-next-sibling))
+        (or
+         (org-get-next-sibling) ;next top-level heading
+         (org-present-top)))    ;if that was last, go back to top before narrow
+    ;; else handle title page before first heading
     (outline-next-heading))
   (org-present-narrow))