[nongnu] elpa/raku-mode 357a72be71 229/253: Fix syntax highlighting for code blocks in POD.

[ELPA Syncer]

branch: elpa/raku-mode
commit 357a72be712468aa76471a83612ab91b2a119c89
Author: Tim Van den Langenbergh <tmt_vdl@gmx.com>
Commit: Tim Van den Langenbergh <tmt_vdl@gmx.com>

    Fix syntax highlighting for code blocks in POD.
    
    We call the raku-syntax-propertize function again over the code blocks that 
we
    remove the comment markup from to ensure comment blocks in the code blocks 
are
    correctly highlighted.
---
 raku-font-lock.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/raku-font-lock.el b/raku-font-lock.el
index 6a5e95d0ef..b921411600 100644
--- a/raku-font-lock.el
+++ b/raku-font-lock.el
@@ -382,7 +382,8 @@ opening delimiter."
                          'syntax-table (string-to-syntax ">"))
       (put-text-property (1- code-end) code-end
                          'syntax-table (string-to-syntax "<"))
-      (remove-text-properties code-beg code-end '(syntax-multiline nil)))))
+      (remove-text-properties code-beg code-end '(syntax-multiline nil))
+      (raku-syntax-propertize code-beg code-end))))
 
 (defun raku-syntax-propertize-pod-inline-code (limit)
   "Add syntax properties to inline code blocks in POD."
@@ -399,7 +400,8 @@ opening delimiter."
                            'syntax-table (string-to-syntax ">"))
         (put-text-property (point) (1+ (point))
                            'syntax-table (string-to-syntax "<"))
-        (remove-text-properties code-beg (point) '(syntax-multiline nil))))))
+        (remove-text-properties code-beg (point) '(syntax-multiline nil))
+        (raku-syntax-propertize code-beg (point))))))
 
 (defun raku-syntax-propertize-pod (limit)
   "Add syntax properties to POD."
@@ -476,12 +478,12 @@ Takes arguments START and END which delimit the region to 
propertize."
                      (and identifier (group "::"))))
        (1 "_")
        (2 "_"))
-      ;; comments
-      ((rx "#")
-       (0 (ignore (raku-syntax-propertize-comment end))))
       ;; pod
       ((rx "=begin pod")
        (0 (ignore (raku-syntax-propertize-pod end))))
+      ;; comments
+      ((rx "#")
+       (0 (ignore (raku-syntax-propertize-comment end))))
       ;; postfix hyper operators
       ((raku-rx (or identifier "]" ")") (group (or "»" ">>")))
        (0 nil))