SyntaxHighlighter.st
changeset 1857 4d7e1edb44cd
parent 1802 e0b32dc71dac
child 1905 fba079d9d509
--- a/SyntaxHighlighter.st	Tue Aug 22 14:42:47 2006 +0200
+++ b/SyntaxHighlighter.st	Tue Aug 22 14:43:17 2006 +0200
@@ -139,13 +139,16 @@
     aString isNil ifTrue:[^ nil].
 
     Error handle:[:ex |
+        ex signal isHandled ifTrue:[
+            ex reject.    
+        ].
         ('SyntaxHighlighter [info]: error during highlight: ' , ex description) infoPrintCR.
         "/ ex suspendedContext fullPrintAll.
         ^ aString
     ] do:[
         highlighter := self for:(ReadStream on:aString string) in:aClass.
         preferencesOrNil notNil ifTrue:[highlighter preferences:preferencesOrNil].
-        highlighter ignoreErrors:true.
+        "/ highlighter ignoreErrors:true.
         highlighter ignoreWarnings:true.
         highlighter sourceText:(text := aString string asText).
         "/ use an array here - this can be changed much faster using #at:put:
@@ -187,7 +190,7 @@
         in:UndefinedObject
     "
 
-    "Modified: / 23.10.1998 / 22:48:45 / cg"
+    "Modified: / 22-08-2006 / 13:32:04 / cg"
 ! !
 
 !SyntaxHighlighter methodsFor:'accessing'!
@@ -700,5 +703,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.52 2006-08-08 21:38:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.53 2006-08-22 12:43:17 cg Exp $'
 ! !