view admin/charsets/kuten.awk @ 100698:2ff8670c7e9f

(tar-swap-data): New function. (tar-change-major-mode-hook): Use it instead of buffer-swap-text. (tar-mode-revert): Likewise. (tar-mode): Likewise. Don't set write-region-annotate-functions. (tar-data-swapped-p): Test buffer-swapped-with. (tar-write-region-annotate): Remove. (tar-header-block-tokenize): Add argument `coding' and use it instead of tar-file-name-coding-system. (tar-summarize-buffer): Pass tar-file-name-coding-system here.

/^[0-9]/ {
  ku=substr($1, 3, 2) + 32;
  ten=substr($1, 5, 2) + 32;
  printf "0x%02X%02X %s\n", ku, ten, $2;
}

# arch-tag: dade6b45-b4c5-42ab-9d49-d6bf23a710b6