paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 22:15:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added check

Browse Source 
git-svn-id: trunk@39875 -
This commit is contained in:
mattias 2013-01-17 17:40:43 +00:00
parent 55574e2a90
commit 1060abd924
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/main.pp
View File

@ -10305,6 +10305,7 @@ begin
GetCurrentUnit(SrcEdit,ActiveUnitInfo);
if (jfAddJumpPoint in Flags) and (ActiveUnitInfo <> nil) and (SrcEdit <> nil)
and (SrcEdit.EditorComponent<>nil)
then begin
if (NewSource<>ActiveUnitInfo.Source)
or (SrcEdit.EditorComponent.CaretX<>NewX)