From 8594de74216b61cb3a9d7000a9d000fbacdc6486 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 9 Dec 2012 14:47:15 +0000
Subject: [PATCH] SynEdit: fix forwarding result in LogicPosAddChars
 (introduced in r 39483) Issue #0023454

git-svn-id: trunk@39488 -
---
 components/synedit/lazsynedittext.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/synedit/lazsynedittext.pas b/components/synedit/lazsynedittext.pas
index e48d6e292e..deaf5db997 100644
--- a/components/synedit/lazsynedittext.pas
+++ b/components/synedit/lazsynedittext.pas
@@ -891,8 +891,8 @@ function TSynEditStrings.LogicPosAddChars(const ALine: String; ALogicalPos, ACou
   AllowPastEOL: Boolean): Integer;
 begin
   if AllowPastEOL
-  then LogicPosAddChars(ALine, ALogicalPos, ACount, [lpAllowPastEol])
-  else LogicPosAddChars(ALine, ALogicalPos, ACount, []);
+  then Result := LogicPosAddChars(ALine, ALogicalPos, ACount, [lpAllowPastEol])
+  else Result := LogicPosAddChars(ALine, ALogicalPos, ACount, []);
 end;
 
 function TSynEditStrings.LogicPosAdjustToChar(const ALine: String; ALogicalPos: integer;
@@ -905,7 +905,7 @@ begin
   else f := [];
   if ANext
   then f := f + [lpAdjustToNext];
-  LogicPosAdjustToChar(ALine, ALogicalPos, f);
+  Result := LogicPosAdjustToChar(ALine, ALogicalPos, f);
 end;
 
 function TSynEditStrings.GetPhysicalCharWidths(Index: Integer): TPhysicalCharWidths;