# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1115319879 0
# Node ID c186a2b77f86a514aa767aea2dc723d60df76574
# Parent  2922c607db05cbf55f59529e27dcdd375316b0d4
(cperl-init-faces): Use font-lock-negation-char-face.

diff -r 2922c607db05 -r c186a2b77f86 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Thu May 05 19:03:32 2005 +0000
+++ b/lisp/progmodes/cperl-mode.el	Thu May 05 19:04:39 2005 +0000
@@ -4751,7 +4751,10 @@
 		  (t '("^[ \t{}]*\\(my\\|local\\our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
 		       3 font-lock-variable-name-face)))
 	    '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
-	      4 font-lock-variable-name-face)))
+	      4 font-lock-variable-name-face)
+	    ;; Avoid s!!, qq!! etc. when not fontifying syntaxically
+	    '("\\(?:^\\|[^smywqrx]\\)\\(!\\)" 1 font-lock-negation-char-face)
+	    '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
 	  (setq
 	   t-font-lock-keywords-1
 	   (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock