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

EditorMacroScript: Allow skipping self-test. --skip-tests=MacroScript

Browse Source
This commit is contained in:
Martin 2022-03-30 22:54:20 +02:00
parent 4e9d8b173f
commit fc11d80277
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/macroscript/registerems.pas
View File

@ -9,7 +9,7 @@ uses
// LCL // LCL
Dialogs, Dialogs,
// IdeIntf // IdeIntf
SrcEditorIntf, IDEOptionsIntf, IDEOptEditorIntf, SrcEditorIntf, IDEOptionsIntf, IDEOptEditorIntf, IDEUtils,
// MacroScript // MacroScript
EMScriptMacro, EMSSelfTest, EMSIdeOptions, EMSStrings; EMScriptMacro, EMSSelfTest, EMSIdeOptions, EMSStrings;
@ -29,6 +29,9 @@ begin
if not EMSSupported then {%H-}exit; if not EMSSupported then {%H-}exit;
if GetSkipCheckByKey('MacroScript') or GetSkipCheckByKey('All') then
exit;
conf := GetEMSConf; conf := GetEMSConf;
try try
conf.Load; conf.Load;