--- a/SyntaxHighlighter.st	Sat Oct 21 15:25:24 2017 +0200
+++ b/SyntaxHighlighter.st	Sat Oct 21 15:25:57 2017 +0200
@@ -175,12 +175,11 @@
     foldConstants := false.
 "/    parserFlags allowDollarInIdentifier:true.
 
-    preferences := UserPreferences current.
-
+    self preferences:(UserPreferences current).
     fullSelectorCheck := preferences fullSelectorCheck.
 
     "Created: / 31-03-1998 / 15:12:55 / cg"
-    "Modified: / 08-02-2017 / 00:31:32 / cg"
+    "Modified: / 21-10-2017 / 14:20:27 / cg"
 ! !
 
 !SyntaxHighlighter methodsFor:'syntax detection'!
@@ -360,29 +359,6 @@
     "Modified: / 31.3.1998 / 18:02:14 / cg"
 !
 
-markCommentFrom:pos1 to:pos2
-    self 
-        markFrom:pos1 to:pos2 
-        withEmphasis:(preferences commentEmphasis) 
-        color:(preferences commentColor)
-        font:(preferences commentFont)
-
-    "
-     UserPreferences current commentEmphasis
-    "
-    "Modified: / 31.3.1998 / 18:01:55 / cg"
-!
-
-markConstantFrom:pos1 to:pos2
-    self 
-        markFrom:pos1 to:pos2 
-        withEmphasis:(preferences constantEmphasis) 
-        color:(preferences constantColor)
-
-    "Modified: / 31.3.1998 / 18:01:44 / cg"
-    "Created: / 31.3.1998 / 18:09:22 / cg"
-!
-
 markGlobalClassIdentifierFrom:pos1 to:pos2
     self 
         markFrom:pos1 to:pos2