Apply fix submitted by Rika on discussion about issue #39366

packages/fcl-pdf/src/fpttf.pp

@@ -865,7 +865,7 @@ begin
     end;
   FcPatternDestroy(pat);
 end;
-
+{$define tfontmapper_find_implemented}
 {$endif}
 
 
@@ -1073,6 +1073,7 @@ begin
     reg.Free;
   end;
 end;
+{$define tfontmapper_find_implemented}
 {$endif}
 
 {$ifdef DARWIN}
@@ -1134,6 +1135,14 @@ begin
     enum.done;
   end;
 end;
+{$define tfontmapper_find_implemented}
+{$endif}
+
+{$ifndef tfontmapper_find_implemented}
+class function TFontMapper.find(const family, style: string; list: TStrings): boolean;
+begin
+  Result:=false;
+end;
 {$endif}
 
 initialization