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

ide: fix crash

Browse Source 
git-svn-id: trunk@23820 -
This commit is contained in:
paul 2010-03-02 02:15:08 +00:00
parent 6f4027077c
commit 4ed49c2cde
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/editoroptions.pp
View File

@ -3923,7 +3923,7 @@ begin
while (j >= 0) and not (SimilarEdit.Plugin[j] is TSynPluginTemplateEdit) do
dec(j);
end;
if j>=0 then begin
if (SimilarEdit <> nil) and (j >= 0) then begin
TSynPluginTemplateEdit(ASynEdit.Plugin[i]).Keystrokes.Assign(
TSynPluginTemplateEdit(SimilarEdit.Plugin[j]).KeyStrokes);
TSynPluginTemplateEdit(ASynEdit.Plugin[i]).KeystrokesOffCell.Assign(