mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-30 08:09:04 +00:00
(perl-font-lock-keywords-2):
Accept qualified variable and function names.
This commit is contained in:
parent
0302b80e53
commit
44ebeb1b6e
@ -207,11 +207,11 @@ The expansion is entirely correct because it uses the C preprocessor."
|
||||
'("\\<\\(local\\|my\\)\\>" . font-lock-type-face)
|
||||
;;
|
||||
;; Fontify function, variable and file name references.
|
||||
'("&\\(\\sw+\\)" 1 font-lock-function-name-face)
|
||||
'("&\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-function-name-face)
|
||||
;; Additionally underline non-scalar variables. Maybe this is a bad idea.
|
||||
;;'("[$@%*][#{]?\\(\\sw+\\)" 1 font-lock-variable-name-face)
|
||||
'("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
|
||||
'("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
|
||||
'("[$*]{?\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-variable-name-face)
|
||||
'("\\([@%]\\|\\$#\\)\\(\\sw+\\(::\\sw+\\)*\\)"
|
||||
(2 (cons font-lock-variable-name-face '(underline))))
|
||||
'("<\\(\\sw+\\)>" 1 font-lock-constant-face)
|
||||
;;
|
||||
|
Loading…
Reference in New Issue
Block a user