[elpa] externals/modus-operandi-theme 677116a 05/54: Make "section headings" customisation `:extend t'

[Stefan Monnier]

branch: externals/modus-operandi-theme
commit 677116a7da11522864fa0aeca98ef028e8a0dbf3
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make "section headings" customisation `:extend t'
    
    This is for versions of Emacs that are >= 27.  The face's attributes,
    such as the background colour, will now extend to the end of the window
    rather than stop at the last character.  Such was the standard behaviour
    in prior Emacs releases.
    
    The idea for this change was recommended in issue 40:
    https://gitlab.com/protesilaos/modus-themes/-/issues/40
---
 modus-operandi-theme.el | 4 +++-
 modus-vivendi-theme.el  | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 0d6c4ec..14ad5c5 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -446,7 +446,9 @@ RAINBOW is the saturated one."
   "Conditionally extend heading styles.
 Apply BG to background and FG to overline."
   (if modus-operandi-theme-section-headings
-      (list :background bg :overline fg)
+      (append
+       (and (>= emacs-major-version 27) '(:extend t))
+       (list :background bg :overline fg))
     (list :background nil :overline nil)))
 
 (defun modus-operandi-theme-org-todo-block (bgbox fgbox fg)
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 19875f8..2b297c3 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -446,7 +446,9 @@ RAINBOW is the saturated one."
   "Conditionally extend heading styles.
 Apply BG to background and FG to overline."
   (if modus-vivendi-theme-section-headings
-      (list :background bg :overline fg)
+      (append
+       (and (>= emacs-major-version 27) '(:extend t))
+       (list :background bg :overline fg))
     (list :background nil :overline nil)))
 
 (defun modus-vivendi-theme-org-todo-block (bgbox fgbox fg)