--- a/SyntaxHighlighter2.st	Mon Jun 24 13:11:03 2013 +0100
+++ b/SyntaxHighlighter2.st	Mon Jun 24 13:12:38 2013 +0100
@@ -65,8 +65,6 @@
 
 !SyntaxHighlighter2 class methodsFor:'highlighting'!
 
-
-
 formatClassDefinition:aString in:aClass elementsInto: elements
     "format (recolor) a class definition expression in a given class.
      Return the text containing font changes and color information."
@@ -212,9 +210,7 @@
     "Modified: / 22-08-2006 / 13:32:04 / cg"
     "Created: / 05-07-2011 / 10:39:21 / cg"
     "Modified: / 28-05-2013 / 22:45:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
- !
+! !
 
 !SyntaxHighlighter2 methodsFor:'accessing'!
 
@@ -559,8 +555,6 @@
     "Created: / 16-02-2012 / 21:56:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-
-
 expression
     | node savedLastSelectorElement |
 
@@ -580,8 +574,6 @@
     "Modified: / 16-02-2012 / 23:39:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-
-
 unaryExpressionFor:receiverArg
     "parse a unary-expression; return a node-tree, nil or #Error"
 
@@ -698,28 +690,6 @@
     "Created: / 17-03-2012 / 19:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-markGlobalClassIdentifierFrom:pos1 to:pos2
-
-    | name env cls |
-
-    super markGlobalClassIdentifierFrom:pos1 to:pos2.
-
-    name := token isString ifTrue:[token asSymbolIfInterned] ifFalse:[nil].
-    name notNil ifTrue:[
-        env := (classToCompileFor ? UndefinedObject) theNonMetaclass environment.
-        cls := env isNameSpace ifTrue:[env at: name] ifFalse:[nil].
-        cls isNil ifTrue:[
-            cls := Smalltalk at: name
-        ]
-    ].
-
-    elements add: ((SyntaxElementVariable from: pos1 to: pos2 type: #class value: cls) name:name)
-
-    "Created: / 14-02-2010 / 14:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-02-2010 / 10:53:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 18-11-2011 / 14:54:53 / cg"
-!
-
 markLocalIdentifierFrom:pos1 to:pos2
     | node el prevEl |
 
@@ -736,14 +706,6 @@
     "Created: / 16-02-2012 / 22:36:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-markMethodArgumentIdentifierFrom:pos1 to:pos2
-    super markMethodArgumentIdentifierFrom:pos1 to:pos2.
-    self rememberVariableElementFor:tokenName type:#MethodArg from:pos1 to:pos2 assigned:false
-
-    "Created: / 24-07-2010 / 09:25:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 21-08-2011 / 09:27:26 / cg"
-!
-
 markSelector:selectorString from:pos1 to:pos2 receiverNode:aReceiverNode
 
     | element selectorSymbol |
@@ -779,8 +741,6 @@
     "Modified: / 19-04-2012 / 09:53:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-
-
 markUnknownIdentifierFrom:pos1 to:pos2
 
     ignoreBadIdentifier == true ifTrue:[ ^ self ].
@@ -789,37 +749,6 @@
 
     "Created: / 31.3.1998 / 19:09:26 / cg"
     "Modified: / 31.3.1998 / 19:10:30 / cg"
-!
-
-markVariable:v from:pos1 to:pos2 assigned:assigned
-    super markVariable:v from:pos1 to:pos2 assigned:assigned.
-    (v type == #GlobalVariable) ifTrue:[^self].
-
-    self rememberVariableElementFor:v name type:v type from:pos1 to:pos2 assigned:assigned
-
-    "Created: / 25-06-2010 / 13:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 25-06-2010 / 14:23:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 21-08-2011 / 09:26:30 / cg"
-!
-
-rememberVariableElementFor:name type:typeSymbol from:pos1 to:pos2 
-    self rememberVariableElementFor:name type:typeSymbol from:pos1 to:pos2 assigned:true
-!
-
-rememberVariableElementFor:name type:typeSymbol from:pos1 to:pos2 assigned:assigned
-    |element prev|
-
-    prev := (lastVariableElements at:typeSymbol ifAbsentPut:[Dictionary new]) at:name ifAbsent:[nil].
-    (prev notNil and:[prev start == pos1]) ifTrue:[^ self].
-
-    element := (SyntaxElementVariable from: pos1 to: pos2 type:typeSymbol value: name assigned:assigned) name:name.
-
-    prev notNil ifTrue:[prev next:element].
-    (lastVariableElements at:typeSymbol) at:name put:element.
-
-    elements add: element.
-
-    "Created: / 21-08-2011 / 09:26:24 / cg"
 ! !
 
 !SyntaxHighlighter2 class methodsFor:'documentation'!