[elpa] externals/modus-operandi-theme e536a59 55/99: Tweak Org block begin/end for "rainbow blocks"

[Stefan Monnier]

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

    Tweak Org block begin/end for "rainbow blocks"
---
 modus-operandi-theme.el | 6 +++---
 modus-vivendi-theme.el  | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 084b4d6..223c841 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -570,14 +570,14 @@ distinct than the background of the block.
 The latter pair should be more subtle than the background of the
 block, as it is used when source blocks are cast on a
 coloured/accented backdrop."
-  (if (or modus-operandi-theme-distinct-org-blocks
-          modus-operandi-theme-rainbow-org-src-blocks)
+  (if modus-operandi-theme-distinct-org-blocks
       (append
        (and (>= emacs-major-version 27) '(:extend t))
        (if modus-operandi-theme-rainbow-org-src-blocks
            (list :background bgaccent :foreground fgaccent)
          (list :background bg :foreground fg)))
-    (list :background bg :foreground fg)))
+    (list :background bg :foreground fg
+          (and (>= emacs-major-version 27) '(:extend nil)))))
 
 (defun modus-operandi-theme-modeline-box (col3d col &optional btn int)
   "Control the box properties of the mode line.
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index bfc4224..59ff171 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -570,14 +570,14 @@ distinct than the background of the block.
 The latter pair should be more subtle than the background of the
 block, as it is used when source blocks are cast on a
 coloured/accented backdrop."
-  (if (or modus-vivendi-theme-distinct-org-blocks
-          modus-vivendi-theme-rainbow-org-src-blocks)
+  (if modus-vivendi-theme-distinct-org-blocks
       (append
        (and (>= emacs-major-version 27) '(:extend t))
        (if modus-vivendi-theme-rainbow-org-src-blocks
            (list :background bgaccent :foreground fgaccent)
          (list :background bg :foreground fg)))
-    (list :background bg :foreground fg)))
+    (list :background bg :foreground fg
+          (and (>= emacs-major-version 27) '(:extend nil)))))
 
 (defun modus-vivendi-theme-modeline-box (col3d col &optional btn int)
   "Control the box properties of the mode line.