X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/d2f85967f21282d9fd873a23b11ffd205491cbad..18312fb500978de0160ba7f10bf245ec0f89c45a:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 3a461d6..bd29385 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -52,6 +52,11 @@ This may be at the expense of cool features.")
 	   (debug 0))
   `',(make-regexp list))
 
+(defun mdw-wrong ()
+  "This is not the key sequence you're looking for."
+  (interactive)
+  (error "wrong button"))
+
 ;; Some error trapping.
 ;;
 ;; If individual bits of this file go tits-up, we don't particularly want
@@ -2136,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