[nongnu] elpa/dslide 5d1c50be3d 225/230: Add default to the header face specification

[ELPA Syncer]

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

    Add default to the header face specification
    
    This should override the faces of the contents that the header is attached 
to.
---
 dslide.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/dslide.el b/dslide.el
index a4755d3cfe..e3b2f4c80c 100644
--- a/dslide.el
+++ b/dslide.el
@@ -222,9 +222,6 @@ will be added to the face list, meaning it the original 
face's
 properties remain unless shadowed."
   :type 'face)
 
-(defface dslide-header-overlay-face '((t :inherit default))
-  "Face for `dslide--header-overlay'.")
-
 (defcustom dslide-breadcrumb-separator " 🢒 "
   "Delimiter for breadcrumbs or nil to turn off breadcrumbs."
   :type '(choice (const :tag "Don't display breadcrumbs" nil)
@@ -2259,7 +2256,7 @@ assumes the buffer is restricted and that there is a 
first tree."
         (overlay-put
          dslide--header-overlay 'before-string
          (concat (dslide--margin-lines dslide-margin-title-above)
-                 (propertize title 'face 'org-document-title)
+                 (propertize title 'face '(org-document-title default))
                  (dslide--margin-lines dslide-margin-title-below)
                  (when (and  dslide-header-date date)
                    (dslide--info-face (concat date "  ")))
@@ -2278,7 +2275,7 @@ assumes the buffer is restricted and that there is a 
first tree."
                    (dslide--margin-lines dslide-margin-content)))))
 
 (defun dslide--info-face (s)
-  (propertize s 'face 'org-document-info))
+  (propertize s 'face '(org-document-info default)))
 
 (defun dslide--margin-lines (lines)
   (dslide--info-face
@@ -2876,7 +2873,6 @@ video or custom actions."
     (let ((dslide-start-function #'dslide-display-slides))
       (dslide-mode 1))))
 
-;; TODO
 ;;;###autoload
 (defun dslide-deck-develop ()
   "Show both the base and slide buffer."