[nongnu] elpa/dslide 45e93c645a 223/230: respect customize header option on slide narrow

[ELPA Syncer]

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

    respect customize header option on slide narrow
---
 dslide.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/dslide.el b/dslide.el
index 1e507abab9..b8dda149fe 100644
--- a/dslide.el
+++ b/dslide.el
@@ -1585,8 +1585,11 @@ restriction, meaning no progress was made.")
                    (not (oref obj inline)))
           (dslide-animation-setup begin end))
         (run-hooks 'dslide-narrow-hook)
-        (let ((dslide-header (oref obj header)))
-          (dslide--make-header (null (oref obj breadcrumbs))))
+        ;; TODO option precedence.  Actions will need to initialize to the
+        ;; global value and then refine with explicit per-slide options.
+        (when dslide-header
+          (let ((dslide-header (oref obj header)))
+            (dslide--make-header (null (oref obj breadcrumbs)))))
         (mapc
          (lambda (w) (set-window-point w (point-min))) ; reset the scroll
          (get-buffer-window-list (current-buffer) nil t))