From 347020eeb7a844589288309afc9dc1bbb7ecda3a Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Fri, 1 Dec 2000 23:02:12 +0000
Subject: Patch from Steffen for treating % as an operator more often.

---
 src/LexPerl.cxx | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index 1f86267fe..59d909b45 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -262,12 +262,14 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
 				styler.ColourTo(i - 1, state);
 				if (isalpha(chNext) || chNext == '#' || chNext == '$' || chNext == '_') {
 					state = SCE_PL_HASH;
-				} else if (chNext != '{' && chNext != '[') {
+				// } else if (chNext != '{' && chNext != '[') {
+				} else if (chNext == '{') {
 					styler.ColourTo(i, SCE_PL_HASH);
-					i++;
-					ch = ' ';
+					// i++;
+					// ch = ' ';
 				} else {
-					styler.ColourTo(i, SCE_PL_HASH);
+					// styler.ColourTo(i, SCE_PL_HASH);
+					styler.ColourTo(i, SCE_PL_OPERATOR);
 				}
 			} else if (ch == '*') {
 				styler.ColourTo(i - 1, state);
-- 
cgit v1.2.3