... and off by default, given that it clashes badly with (at least) man pages.
Unified · Split
| @@ -802,6 +802,7 @@ let config_of c attrs = · 801 unmodified lines | ||
| 802 | 802 | { c with coarseprespos = bool_of_string v } |
| 803 | 803 | | "use-document-css" -> { c with usedoccss = bool_of_string v } |
| 804 | 804 | | "hint-charset" -> validatehcs v; { c with hcs = v } |
| 805 | + | "remap-htns" -> { c with remaphtns = bool_of_string v } | |
| 805 | 806 | | _ -> c |
| 806 | 807 | with exn -> |
| 807 | 808 | dolog "error processing attribute (`%S' = `%S'): %s" k v @@ exntos exn; |
| @@ -1276,6 +1277,7 @@ let add_attrs bb always dc c time = · 468 unmodified lines | ||
| 1276 | 1277 | ob "use-document-css" c.usedoccss dc.usedoccss; |
| 1277 | 1278 | os "dcf" c.dcf dc.dcf; |
| 1278 | 1279 | os "hint-charset" c.hcs dc.hcs; |
| 1280 | + ob "remap-htns" c.remaphtns dc.remaphtns; | |
| 1279 | 1281 | ;; |
| 1280 | 1282 | |
| 1281 | 1283 | let keymapsbuf always dc c = |
| @@ -131,6 +131,7 @@ s key Utils.E.s · 130 unmodified lines | ||
| 131 | 131 | P pax |
| 132 | 132 | g dcf dcf Utils.E.s |
| 133 | 133 | s hcs "{|aoeuidhtns|}" |
| 134 | +b remaphtns false | |
| 134 | 135 | |
| 135 | 136 | cat <<EOF |
| 136 | 137 | };; |
| @@ -634,7 +634,7 @@ let mapc code = · 633 unmodified lines | ||
| 634 | 634 | | n -> n |
| 635 | 635 | in |
| 636 | 636 | match state.mode with |
| 637 | − | View -> viewmapcode code | |
| 637 | + | View -> if conf.remaphtns then viewmapcode code else code | |
| 638 | 638 | | LinkNav _ | Textentry _ | Birdseye _ -> code |
| 639 | 639 | ;; |
| 640 | 640 | |