--- a/Tools__LintHighlighter.st Fri Aug 05 14:58:30 2011 +0200
+++ b/Tools__LintHighlighter.st Fri Aug 05 15:06:38 2011 +0200
@@ -142,8 +142,10 @@
formattingMethod ifTrue:[
| interval |
interval := rule result selectionIntervalFor: string.
- text emphasisFrom: interval first to: interval last
- add: emphasis.
+ interval notNil ifTrue:[
+ text emphasisFrom: interval first to: interval last
+ add: emphasis.
+ ]
].
] ifFalse:[
| searches |
@@ -172,9 +174,9 @@
!LintHighlighter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.1 2011-08-05 11:13:08 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.2 2011-08-05 13:06:38 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.1 2011-08-05 11:13:08 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.2 2011-08-05 13:06:38 vrany Exp $'
! !