--- a/Tools__CodeHighlightingService.st	Wed Feb 01 12:29:41 2012 +0000
+++ b/Tools__CodeHighlightingService.st	Wed Feb 01 19:44:39 2012 +0000
@@ -292,6 +292,19 @@
                     "/ Certainly a kludge.
 
                     oldLine string = line string ifTrue:[
+                        | i |
+
+                        "JV@2012-02-01: Remove any emphasis on leading whitespace"
+                        "(presumably created by LintHighlighter)"
+                        i := line string indexOfNonSeparator.
+                        i > 1 ifTrue:[
+                            | e |
+
+                            (e := (line emphasisAt: i - 1)) notNil ifTrue:[
+                                line emphasisFrom: 1 to: i - 1 remove: e.
+                            ]
+                        ].
+
                         oldLine emphasis ~= line emphasis ifTrue:[
                             textView modifiedChannel removeDependent:self.
                             list at:lNr put:line.
@@ -335,12 +348,13 @@
     "Created: / 14-02-2010 / 16:10:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 21-08-2011 / 09:38:22 / cg"
     "Modified: / 30-01-2012 / 16:49:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-02-2012 / 19:18:00 / jv"
 ! !
 
 !CodeHighlightingService class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__CodeHighlightingService.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: Tools__CodeHighlightingService.st 7865 2012-02-01 19:44:39Z vranyj1 $'
 !
 
 version_CVS
@@ -348,5 +362,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeHighlightingService.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: Tools__CodeHighlightingService.st 7865 2012-02-01 19:44:39Z vranyj1 $'
 ! !