branch: elpa/raku-mode
commit 8fd6683e06f89095b1d3eb8549ada21176f9e5f2
Author: Hinrik Örn Sigurðsson <[email protected]>
Commit: Hinrik Örn Sigurðsson <[email protected]>
defvar -> defconst
---
perl6-detect.el | 2 +-
perl6-font-lock.el | 6 +++---
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/perl6-detect.el b/perl6-detect.el
index 3a5ce9cbbc..abafb5ef42 100644
--- a/perl6-detect.el
+++ b/perl6-detect.el
@@ -16,7 +16,7 @@
(add-to-list 'auto-mode-alist '("\\.p[lm]?6\\'" . perl6-mode))
;;;###autoload
-(defvar perl6-magic-pattern
+(defconst perl6-magic-pattern
(rx line-start
(0+ space)
(or (and "use" (0+ space) "v6")
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index 334971cf2a..06f9648bdf 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -165,7 +165,7 @@
(t
(rx-to-string (car sexps) t))))))
-(defvar perl6-mode-syntax-table
+(defconst perl6-mode-syntax-table
(let ((table (make-syntax-table)))
;; single-line comments
(modify-syntax-entry ?# "<" table)
@@ -187,7 +187,7 @@
table)
"The top level syntax table for Perl 6.")
-(defvar perl6-bracket-syntax-table
+(defconst perl6-bracket-syntax-table
(let ((table (make-syntax-table perl6-mode-syntax-table)))
(modify-syntax-entry ?< "(>" table)
(modify-syntax-entry ?> ")<" table)
@@ -300,7 +300,7 @@ Takes STATE, the parse state."
(in-string 'perl6-string)
(in-comment 'perl6-comment))))
-(defvar perl6-font-lock-keywords
+(defconst perl6-font-lock-keywords
`(
(,(perl6-rx (group (1+ (char "@$%&")))
(group (opt (char ".^*?=!~")))
