Unified · Split
| @@ -803,6 +803,7 @@ let config_of c attrs = · 802 unmodified lines | ||
| 803 | 803 | | "coarse-presentation-positioning" -> |
| 804 | 804 | { c with coarseprespos = bool_of_string v } |
| 805 | 805 | | "use-document-css" -> { c with usedoccss = bool_of_string v } |
| 806 | + | "hint-charset" -> { c with hcs = v } | |
| 806 | 807 | | _ -> c |
| 807 | 808 | with exn -> |
| 808 | 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 | 1279 | ob "coarse-presentation-positioning" c.coarseprespos dc.coarseprespos; |
| 1279 | 1280 | ob "use-document-css" c.usedoccss dc.usedoccss; |
| 1280 | 1281 | os "dcf" c.dcf dc.dcf; |
| 1282 | + os "hint-charset" c.hcs dc.hcs; | |
| 1281 | 1283 | ;; |
| 1282 | 1284 | |
| 1283 | 1285 | let keymapsbuf always dc c = |