Unified · Split
| @@ -803,6 +803,7 @@ let config_of c attrs = · 802 unmodified lines | |||
| 803 | | "coarse-presentation-positioning" -> | 803 | | "coarse-presentation-positioning" -> |
| 804 | { c with coarseprespos = bool_of_string v } | 804 | { c with coarseprespos = bool_of_string v } |
| 805 | | "use-document-css" -> { c with usedoccss = bool_of_string v } | 805 | | "use-document-css" -> { c with usedoccss = bool_of_string v } |
| 806 | | "hint-charset" -> { c with hcs = v } | ||
| 806 | | _ -> c | 807 | | _ -> c |
| 807 | with exn -> | 808 | with exn -> |
| 808 | dolog "error processing attribute (`%S' = `%S'): %s" k v @@ exntos exn; | 809 | dolog "error processing attribute (`%S' = `%S'): %s" k v @@ exntos exn; |
| @@ -1278,6 +1279,7 @@ let add_attrs bb always dc c time = · 469 unmodified lines | |||
| 1278 | ob "coarse-presentation-positioning" c.coarseprespos dc.coarseprespos; | 1279 | ob "coarse-presentation-positioning" c.coarseprespos dc.coarseprespos; |
| 1279 | ob "use-document-css" c.usedoccss dc.usedoccss; | 1280 | ob "use-document-css" c.usedoccss dc.usedoccss; |
| 1280 | os "dcf" c.dcf dc.dcf; | 1281 | os "dcf" c.dcf dc.dcf; |
| 1282 | os "hint-charset" c.hcs dc.hcs; | ||
| 1281 | ;; | 1283 | ;; |
| 1282 | 1284 | ||
| 1283 | let keymapsbuf always dc c = | 1285 | let keymapsbuf always dc c = |