emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/raku-mode 9339de70ac 074/253: Highlight labels


From: ELPA Syncer
Subject: [nongnu] elpa/raku-mode 9339de70ac 074/253: Highlight labels
Date: Sat, 29 Jan 2022 08:28:43 -0500 (EST)

branch: elpa/raku-mode
commit 9339de70acc6c5d9e2a87657ba98a41d67ff8b43
Author: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik.sig@gmail.com>

    Highlight labels
---
 perl6-font-lock.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index c4aa0d684a..5d7325f902 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -102,6 +102,10 @@
   "Face for version literals in Perl 6."
   :group 'perl6-faces)
 
+(defface perl6-label '((t :inherit font-lock-constant-face))
+  "Face for block labels in Perl 6."
+  :group 'perl6-faces)
+
 (eval-when-compile
   (require 'rx)
 
@@ -495,6 +499,8 @@ GROUPS is allowed to reference optional match groups."
                   (2 . perl6-number-addition)))))
     (,(perl6-rx (symbol (or "Inf" "NaN")))
      0 'perl6-number)
+    (,(perl6-rx line-start (0+ space) (group identifier ":") (or space 
line-end))
+     1 'perl6-label)
     (,(perl6-rx (symbol identifier)) 0 'perl6-identifier)
     (,(perl6-rx operator-char) 0 'perl6-operator)
     (,(perl6-rx base-number)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]