[nongnu] elpa/dslide 55803bc16a 224/230: Respect custom header option when narrowing to contents view

[ELPA Syncer]

branch: elpa/dslide
commit 55803bc16a729a1a8ed1e785405feac3cb53878e
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    Respect custom header option when narrowing to contents view
---
 dslide.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/dslide.el b/dslide.el
index b8dda149fe..a4755d3cfe 100644
--- a/dslide.el
+++ b/dslide.el
@@ -2794,14 +2794,15 @@ each slide show from the contents view."
   (goto-char (org-element-property :begin (dslide--root-heading-at-point)))
   (recenter)
 
+  (if-let ((first (dslide--document-first-heading)))
+      (narrow-to-region (org-element-property :begin first)
+                        (point-max))
+    ;; No first heading.  Just header.  Empty contents.
+    (narrow-to-region (point-max)
+                      (point-max)))
+  (run-hooks 'dslide-narrow-hook)
+
   (when dslide-header
-    (if-let ((first (dslide--document-first-heading)))
-        (narrow-to-region (org-element-property :begin first)
-                          (point-max))
-      ;; No first heading.  Just header.  Empty contents.
-      (narrow-to-region (point-max)
-                        (point-max)))
-    (run-hooks 'dslide-narrow-hook)
     (dslide--make-header t))
 
   (when dslide-contents-selection-highlight