--- a/CharacterArray.st	Mon Aug 31 12:01:25 2020 +0100
+++ b/CharacterArray.st	Thu Nov 12 12:02:05 2020 +0000
@@ -6687,6 +6687,7 @@
     "Modified (comment): / 14-07-2020 / 20:15:36 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'padded copying'!
 
 centerPaddedTo:newSize
@@ -7467,6 +7468,13 @@
     ^ Character space
 !
 
+emphasisAtPoint:aPoint on:aGCOrView
+    "return the emphasis at a given point, or nil if there is none"
+
+    <resource: #obsolete>
+    ^ self emphasisAtX:aPoint x on:aGCOrView
+!
+
 encoding
     "return the strings encoding, as a symbol.
      Here, by default, we assume unicode-encoding.