X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/a1b01eb3d3e7cfe59bfd6b1e35d5485a97d39359..a3b8176f5cc90a02b5b3aaa669cc7c7e6758a9d7:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index dbc1677..bd29385 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2141,16 +2141,29 @@ doesn't match any of the regular expressions in
   ;; Miscellaneous fiddling.
   (modify-syntax-entry ?$ "\\")
   (modify-syntax-entry ?$ "\\" font-lock-syntax-table)
+  (modify-syntax-entry ?: "." font-lock-syntax-table)
   (mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
 
   ;; Now define fontification things.
   (make-local-variable 'font-lock-keywords)
   (let ((perl-keywords
-	 (mdw-regexps "and" "break" "cmp" "continue" "do" "else" "elsif" "eq"
-		      "for" "foreach" "ge" "given" "gt" "goto" "if"
-		      "last" "le" "lt" "local" "my" "ne" "next" "or"
-		      "our" "package" "redo" "require" "return" "sub"
-		      "undef" "unless" "until" "use" "when" "while")))
+	 (mdw-regexps "and"
+		      "break"
+		      "cmp" "continue"
+		      "default" "do"
+		      "else" "elsif" "eq"
+		      "for" "foreach"
+		      "ge" "given" "gt" "goto"
+		      "if"
+		      "last" "le" "local" "lt"
+		      "my"
+		      "ne" "next"
+		      "or" "our"
+		      "package"
+		      "redo" "require" "return"
+		      "sub"
+		      "undef" "unless" "until" "use"
+		      "when" "while")))
 
     (setq font-lock-keywords
 	  (list