From 2d48b95137ccf65325ca9ed183c384710fa01b1a Mon Sep 17 00:00:00 2001
From: "Andrew V. Samoilov" <sav@bcs.zp.ua>
Date: Tue, 5 Oct 2004 05:56:03 +0000
Subject: [PATCH]         * syntax/perl.syntax: Fix highlight the hashes.      
   * syntax/diff.syntax: highlight comments (lines begin with #),         and
 garbage in diff files.

---
 ChangeLog          | 8 +++++++-
 syntax/diff.syntax | 4 +++-
 syntax/perl.syntax | 5 +++--
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 30afa911d..fd2e1bc68 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,10 @@
-2004-09-17 Dmitry Alexeyev <dmi_a@qnx.org.ru>
+2004-10-05 Gergely Sza'sz,,,  <szaszg@hu.inter.net> 
+
+	* syntax/perl.syntax: Fix highlight the hashes.
+	* syntax/diff.syntax: highlight comments (lines begin with #),
+	and garbage in diff files.
+
+2004-09-17 Dmitry Alexeyev  <dmi_a@qnx.org.ru>
 
 	* mc.qpg.in: New file. Description for QNX 6.x packager.
 
diff --git a/syntax/diff.syntax b/syntax/diff.syntax
index cf0553709..32d2e06a7 100644
--- a/syntax/diff.syntax
+++ b/syntax/diff.syntax
@@ -1,6 +1,6 @@
 # Highlighting for various diffs including those generated by CVS
 # Comments to Pavel Roskin <pavel_roskin@geocities.com>
-context default
+context default gray
     keyword linestart @@*@@ cyan
     keyword linestart Index:\s brown
     keyword linestart \s black white
@@ -9,6 +9,7 @@ context default
     keyword linestart ---*---- cyan
 context exclusive linestart @@*@@ \n brightcyan
 context exclusive linestart Index:\s \n black white
+context exclusive linestart \s \n lightgray blue
 context linestart diff \n white red
 context linestart ---\s \n brightmagenta
 context linestart \+\+\+\s \n brightmagenta
@@ -27,3 +28,4 @@ context linestart Common\s \n yellow black
 context linestart File\s \n yellow black
 context linestart Files\s \n yellow black
 context linestart Binary\s \n yellow black
+context linestart # \n brightcyan
diff --git a/syntax/perl.syntax b/syntax/perl.syntax
index 4cd547db7..ed6151b31 100644
--- a/syntax/perl.syntax
+++ b/syntax/perl.syntax
@@ -69,7 +69,6 @@ context default
     keyword - yellow
     keyword \* yellow
     keyword / yellow
-    keyword % yellow
     keyword = yellow
     keyword != yellow
     keyword == yellow
@@ -102,13 +101,15 @@ context default
     keyword whole STDARGV brightred
     keyword whole DATA brightred
 
-    keyword & brightmagenta
     keyword wholeright $+ brightgreen/PaleGreen
     keyword wholeright %+ brightcyan
     keyword wholeright @+ white
     keyword \\" brightred
     keyword \\' brightred
 
+    keyword % yellow
+    keyword & brightmagenta
+
     keyword whole and magenta
     keyword whole or magenta
     keyword whole not magenta