[Emacs-diffs] master f9dfad9: Fix font-lock in perl-mode

[Eli Zaretskii]

branch: master
commit f9dfad9358b2af36d1496c525585f761c130f095
Author: Evgeni Kolev <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Fix font-lock in perl-mode
    
    * lisp/progmodes/perl-mode.el (perl-font-lock-keywords-1): Prevent
    the regexp from matching keywords if they start with a Perl sigil.
    (Bug#30549)
---
 lisp/progmodes/perl-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index 9948078..c1d94ac 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -165,7 +165,7 @@
     ;; Fontify function and package names in declarations.
     ("\\<\\(package\\|sub\\)\\>[ \t]*\\(\\sw+\\)?"
      (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
-    ("\\<\\(import\\|no\\|require\\|use\\)\\>[ \t]*\\(\\sw+\\)?"
+    ("\\(^\\|address@hidden&\\]\\)\\<\\(import\\|no\\|require\\|use\\)\\>[ 
\t]*\\(\\sw+\\)?"
      (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)))
   "Subdued level highlighting for Perl mode.")