- (document-property
- pr 'backend grob-description )))
- (propdocs (map docfunc props))
- )
-
- (string-append
- desc
- "\n\n"
- (description-list->texi propdocs))
-
+ (property->texi
+ 'backend pr grob-description)))
+ (iprops (filter (lambda (x) (object-property x 'backend-internal) ) props))
+ (uprops (filter (lambda (x) (not (object-property x 'backend-internal)) ) props))
+ (user-propdocs (map docfunc uprops))
+ (internal-propdocs (map docfunc iprops)))
+
+ (string-append
+ desc
+
+ (if (pair? uprops)
+ (string-append
+ "\n\n@unnumberedsubsubsec User settable properties:\n"
+ (description-list->texi user-propdocs))
+ "")
+
+ (if (pair? iprops)
+ (string-append
+ "\n\n@unnumberedsubsubsec Internal properties: \n"
+ (description-list->texi internal-propdocs)
+ )
+ "")
+ )