commented out Documentation definitions in notpresent mode. It was not enough to do this in the import list in Lang, since the import list parsing seems to be done without preprocessing.

src/abstract/Lang.gf

@@ -9,7 +9,7 @@ abstract Lang =
   Grammar, 
   Lexicon
   ,Construction  --- could be compiled here, but not in concretes, as they call Syntax and Grammar
-  ,Documentation
+  ,Documentation  --# notpresent
   ,Markup - [stringMark]
   ** {
   flags startcat=Phr ;

src/finnish/DocumentationFinFunctor.gf

@@ -12,12 +12,14 @@ incomplete concrete DocumentationFinFunctor of Documentation = CatFin ** open
   HTML
 in {
 
-
 lincat
   Inflection = {t : Str; s1,s2 : Str} ;
   Document = {s : Str} ;
   Tag = {s : Str} ;
 
+{-
+-} --# notpresent
+
 oper
   heading : N -> Str = \n -> (nounHeading n).s ;
 
@@ -129,7 +131,8 @@ lin
 
 oper 
   verbExample : CatFin.Cl -> Str = \cl -> (S.mkUtt cl).s ;
-
+{-
+-} --# notpresent
   inflVerb : CatFin.V -> Str = \verb0 ->
      let 
        verb = sverb2verbSep verb0 ;
@@ -290,4 +293,7 @@ lin
   MkDocument b i e = ss (i.s1 ++ paragraph b.s ++ i.s2 ++ paragraph e.s) ;  -- explanation appended in a new paragraph
   MkTag i = ss (i.t) ;
 
+{- --# notpresent
+-} 
+
 }

src/finnish/LangFin.gf

@@ -4,7 +4,7 @@ concrete LangFin of Lang =
   GrammarFin, 
   LexiconFin
   , ConstructionFin
-  , DocumentationFin
+  , DocumentationFin --# notpresent
   ** {
 
 flags startcat = Phr ; unlexer = text ; lexer = finnish ;

src/french/DocumentationFreFunctor.gf

@@ -18,6 +18,9 @@ lincat
   Document = {s : Str} ;
   Tag = {s : Str} ;
   
+{-
+-} --# notpresent
+
 oper
    heading : N -> Str = \n -> (nounHeading n).s ;
    
@@ -209,4 +212,7 @@ oper
           tr (th (heading present_Parameter) ++ td (vfin VGer))
           ) ; 
 
+{- --# notpresent
+-} 
+
 }

src/swedish/DocumentationSwe.gf

@@ -9,6 +9,10 @@ lincat
   Document = {s : Str} ;
   Tag = {s : Str} ;
 
+{-
+-} --# notpresent
+
+
 lin
   InflectionN, InflectionN2, InflectionN3 = \noun -> {
     t  = "s" ;
@@ -230,4 +234,8 @@ oper
     ) ;
     
   pp : Str -> Str = \s -> "<"+s+">";
+
+{- --# notpresent
+-}
+
 }

src/swedish/DocumentationSweFunctor.gf

@@ -18,6 +18,10 @@ in {
 lincat
   Inflection = {s : Str} ;
   Document = {s : Str} ;
+
+{-
+-} --# notpresent
+
   
 oper
    tdf : Str -> Str = \s -> td (intag "i" s) ;
@@ -121,4 +125,7 @@ oper
        ))
      } ;
 
+{- --# notpresent
+-} 
+
 }