1 files changed, 3 insertions, 30 deletions
diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index c0b227ae..2769e4d4 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -1064,34 +1064,7 @@ begin
   prevval  := Text;
   if FDeadKeyChar> -1 then
   begin
-    case FDeadKeyChar of
-      keyDeadDiaeresis:
-        case AText of
-          'a':
-            AText:= 'â';
-          'e':
-            AText:= 'ë';
-          'i':
-            AText:= 'ï';
-          'o':
-            AText:= 'ö';
-          'u':
-            AText:= 'ü';
-        end;
-      keyDeadCircumflex:
-        case AText of
-          'a':
-            AText:= 'â';
-          'e':
-            AText:= 'ê';
-          'i':
-            AText:= 'î';
-          'o':
-            AText:= 'ô';
-          'u':
-            AText:= 'û';
-        end;
-    end;
+    AText:= UseDeadKey(AText, FDeadKeyChar);
     FDeadKeyChar:= -1;
   end;
   s        := AText;
@@ -1142,8 +1115,8 @@ begin
   Consumed := True;
   hasChanged := False;
 
-  if (keycode= 58536) or (keycode= 58462) then
-    FDeadKeyChar:= keycode;
+  if FDeadKeyChar = -1 then
+    FDeadKeyChar:= ReadDeadKey(keycode);
 
   case CheckClipBoardKey(keycode, shiftstate) of
     ckCopy: