diff --git a/ide/main.pp b/ide/main.pp
index 0f109edb46..d5e9998082 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -7497,7 +7497,8 @@ begin
 
     // handle versioninfo
     VersionInfo:=Project1.VersionInfo;
-    Result := VersionInfo.CompileRCFile(Project1.MainFilename,MainBuildBoss.GetTargetOS(true));
+    Result := VersionInfo.CompileRCFile(Project1.MainFilename,MainBuildBoss.
+                                        GetTargetOS(true));
     if Result <> mrOk then exit;
     for Count := 1 to VersionInfo.VersionInfoMessages.Count do
       MessagesView.AddMsg(Format(VersionInfo.VersionInfoMessages[Count - 1],
diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index efff4db4a7..9ed8baf4c4 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -5420,9 +5420,13 @@ begin
   and ((EditorOpts.DoNotWarnForFont='')
        or (EditorOpts.DoNotWarnForFont<>CurFont.Name))
   then begin
+    {$IFDEF HasMonoSpaceFonts}
     DummyResult:=QuestionDlg(lisUEFontWith,
       Format(lisUETheCurre, [#13, #13]),
       mtWarning, [mrIgnore, mrYesToAll, lisUEDoNotSho], 0);
+    {$ELSE}
+    DummyResult:=mrYesToAll;
+    {$ENDIF}
     if DummyResult=mrYesToAll then begin
       if EditorOpts.DoNotWarnForFont<>CurFont.Name then begin
         EditorOpts.DoNotWarnForFont:=CurFont.Name;