From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Thu, 5 May 2005 19:04:39 +0000 (+0000)
Subject: (cperl-init-faces): Use font-lock-negation-char-face.
X-Git-Tag: ttn-vms-21-2-B4~527
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb6121fce5d47678001a3eb32ea54e1ea1f38727;p=emacs.git

(cperl-init-faces): Use font-lock-negation-char-face.
---

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 4a701edcca2..35957457a9a 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -4751,7 +4751,10 @@ indentation and initial hashes.  Behaves usually outside of comment."
 		  (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