mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-14 17:48:15 +02:00
IDE: auto start completion only in pascal
git-svn-id: trunk@42804 -
This commit is contained in:
parent
487deb802a
commit
80b7afb789
@ -10180,6 +10180,9 @@ procedure TSourceEditorManager.OnSourceCompletionTimer(Sender: TObject);
|
|||||||
Result := false;
|
Result := false;
|
||||||
SrcEdit := ActiveEditor;
|
SrcEdit := ActiveEditor;
|
||||||
if SrcEdit = nil then exit;
|
if SrcEdit = nil then exit;
|
||||||
|
if not (SrcEdit.FEditor.Highlighter is TSynPasSyn) then
|
||||||
|
exit; // only start completion automatically for pascal sources
|
||||||
|
|
||||||
Line := SrcEdit.FEditor.LineText;
|
Line := SrcEdit.FEditor.LineText;
|
||||||
LogCaret := SrcEdit.FEditor.LogicalCaretXY;
|
LogCaret := SrcEdit.FEditor.LogicalCaretXY;
|
||||||
//DebugLn(['CheckStartIdentCompletion Line="',Line,'" LogCaret=',dbgs(LogCaret)]);
|
//DebugLn(['CheckStartIdentCompletion Line="',Line,'" LogCaret=',dbgs(LogCaret)]);
|
||||||
|
Loading…
Reference in New Issue
Block a user