[elpa] externals/org-modern f0532357fe 32/65: Handle upper case block keywords

[ELPA Syncer]

branch: externals/org-modern
commit f0532357fe71c5a4a702f3744b7db7232a6cca03
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Handle upper case block keywords
---
 example.org   | 4 ++--
 org-modern.el | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/example.org b/example.org
index 5bbf1e4fb9..0244b81b34 100644
--- a/example.org
+++ b/example.org
@@ -47,9 +47,9 @@ TIMESTAMP: [2022-02-21 Mon 13:00]
 #+results:
 : pi x / 180 - 2.85779606768e-8 pi^3 x^3
 
-#+begin_src C
+#+BEGIN_SRC C
   printf("a|b\nc|d\n");
-#+end_src
+#+END_SRC
 
 #+results:
 | a | b |
diff --git a/org-modern.el b/org-modern.el
index 5860d8561c..96d54ea1c3 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -457,12 +457,12 @@ Set to nil to disable the indicator."
       (when org-modern-table
         '(("^[ \t]*\\(|.*|\\)[ \t]*$" (0 (org-modern--table)))))
       (when org-modern-block
-        '(("^[ \t]*#\\+begin_\\S-" (0 (org-modern--block)))
-          ("^\\([ \t]*#\\+begin_\\)\\(\\S-+\\).*"
+        '(("^[ \t]*#\\+\\(?:begin\\|BEGIN\\)_\\S-" (0 (org-modern--block)))
+          ("^\\([ \t]*#\\+\\(?:begin\\|BEGIN\\)_\\)\\(\\S-+\\).*"
            (0 '(face nil line-prefix #("│" 0 1 (display (left-fringe 
org-modern--top org-block-begin-line)))))
            (1 '(face nil display (space :width (3))))
            (2 'org-modern-block-keyword append))
-          ("^\\([ \t]*#\\+end_\\)\\(\\S-+\\).*"
+          ("^\\([ \t]*#\\+\\(?:end\\|END\\)_\\)\\(\\S-+\\).*"
            (0 '(face nil line-prefix #("│" 0 1 (display (left-fringe 
org-modern--bottom org-block-end-line)))))
            (1 '(face nil display (space :width (3))))
            (2 'org-modern-block-keyword append))))