Character.st
changeset 20698 6838c575c1c6
parent 20111 5ae345836020
child 20706 009b8269bd08
--- a/Character.st	Sun Oct 30 14:34:05 2016 +0100
+++ b/Character.st	Sun Oct 30 16:29:21 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -601,7 +599,6 @@
     "
 ! !
 
-
 !Character methodsFor:'Compatibility-Dolphin'!
 
 isAlphaNumeric
@@ -649,8 +646,6 @@
       or:[ (asciivalue == 247 ) ]]]]]
 ! !
 
-
-
 !Character methodsFor:'accessing'!
 
 codePoint
@@ -1499,7 +1494,7 @@
     ^ s contents
 
     "
-     'ä' utf8Encoded 
+     'ä' utf8Encoded 
      'a' utf8Encoded 
     "
 ! !
@@ -1761,7 +1756,9 @@
 !Character methodsFor:'queries'!
 
 bitsPerCharacter
-    "return the number of bits I require for storage"
+    "return the number of bits I require for storage.
+     (i.e. am I an Ascii/ISO8859-1 Character or will I need more
+     bits for storage."
 
     asciivalue <= 16rFF ifTrue:[^ 8].
     asciivalue <= 16rFFFF ifTrue:[^ 16].
@@ -2638,9 +2635,9 @@
 
     "
      $e asNonDiacritical
-     $é asNonDiacritical
-     $ä asNonDiacritical
-     $Ã¥ asNonDiacritical
+     $é asNonDiacritical
+     $ä asNonDiacritical
+     $å asNonDiacritical
     "
 !