From 462214cec342297af577cd4e4b0e37ce4fbf0a33 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 16 Aug 2017 10:41:48 +0200
Subject: [PATCH] editor, only handle first byte of UTF char, maybe related to
 #175

since we test for ascii value only
---
 src/ce_synmemo.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index ddda87a7..a056f7df 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -2369,15 +2369,15 @@ procedure TCESynMemo.completionCodeCompletion(var value: string;
 begin
   if (KeyChar[1] = ' ') then
   begin
-    value := sourceValue + KeyChar;
+    value := sourceValue + KeyChar[1];
   end
   else
   begin
     fLastCompletion := value;
     if KeyChar[1] in fCloseCompletionCharsWithSpace then
-      value += ' ' + KeyChar
+      value += ' ' + KeyChar[1]
     else if KeyChar[1] in fCloseCompletionChars then
-      value += KeyChar;
+      value += KeyChar[1];
   end;
 end;
 
@@ -3099,9 +3099,9 @@ end;
 
 procedure TCESynMemo.UTF8KeyPress(var Key: TUTF8Char);
 var
-  c: TUTF8Char;
+  c: AnsiChar;
 begin
-  c := Key;
+  c := Key[1];
   inherited;
   fCanDscan := true;
   case c of