(require 'disp-table)
(defgroup iso-ascii nil
"Set up char tables for ISO 8859/1 on ASCII terminals."
:prefix "iso-ascii-"
:group 'i18n)
(defcustom iso-ascii-convenient nil
"*Non-nil means `iso-ascii' should aim for convenience, not precision."
:type 'boolean
:group 'iso-ascii)
(defvar iso-ascii-display-table (make-display-table)
"Display table used for ISO-ASCII mode.")
(defvar iso-ascii-standard-display-table nil
"Display table used when not in ISO-ASCII mode.")
(unless iso-ascii-standard-display-table
(setq iso-ascii-standard-display-table
standard-display-table))
(defun iso-ascii-display (code string &optional convenient-string)
(if iso-ascii-convenient
(setq string (or convenient-string string))
(setq string (concat "{" string "}")))
(aset iso-ascii-display-table code string)
(aset iso-ascii-display-table (make-char 'latin-iso8859-1 (- code 128))
string))
(iso-ascii-display 160 "_" " ") (iso-ascii-display 161 "!") (iso-ascii-display 162 "c") (iso-ascii-display 163 "GBP") (iso-ascii-display 164 "$") (iso-ascii-display 165 "JPY") (iso-ascii-display 166 "|") (iso-ascii-display 167 "S" "(S)") (iso-ascii-display 168 "\"") (iso-ascii-display 169 "C" "(C)") (iso-ascii-display 170 "_a") (iso-ascii-display 171 "<<") (iso-ascii-display 172 "~") (iso-ascii-display 173 "-") (iso-ascii-display 174 "R" "(R)") (iso-ascii-display 175 "=") (iso-ascii-display 176 "o") (iso-ascii-display 177 "+-") (iso-ascii-display 178 "2") (iso-ascii-display 179 "3") (iso-ascii-display 180 "'") (iso-ascii-display 181 "u") (iso-ascii-display 182 "P" "(P)") (iso-ascii-display 183 ".") (iso-ascii-display 184 ",") (iso-ascii-display 185 "1") (iso-ascii-display 186 "_o") (iso-ascii-display 187 ">>") (iso-ascii-display 188 "1/4") (iso-ascii-display 189 "1/2") (iso-ascii-display 190 "3/4") (iso-ascii-display 191 "?") (iso-ascii-display 192 "`A") (iso-ascii-display 193 "'A") (iso-ascii-display 194 "^A") (iso-ascii-display 195 "~A") (iso-ascii-display 196 "\"A") (iso-ascii-display 197 "AA") (iso-ascii-display 198 "AE") (iso-ascii-display 199 ",C") (iso-ascii-display 200 "`E") (iso-ascii-display 201 "'E") (iso-ascii-display 202 "^E") (iso-ascii-display 203 "\"E") (iso-ascii-display 204 "`I") (iso-ascii-display 205 "'I") (iso-ascii-display 206 "^I") (iso-ascii-display 207 "\"I") (iso-ascii-display 208 "-D") (iso-ascii-display 209 "~N") (iso-ascii-display 210 "`O") (iso-ascii-display 211 "'O") (iso-ascii-display 212 "^O") (iso-ascii-display 213 "~O") (iso-ascii-display 214 "\"O") (iso-ascii-display 215 "x") (iso-ascii-display 216 "/O") (iso-ascii-display 217 "`U") (iso-ascii-display 218 "'U") (iso-ascii-display 219 "^U") (iso-ascii-display 220 "\"U") (iso-ascii-display 221 "'Y") (iso-ascii-display 222 "TH") (iso-ascii-display 223 "ss") (iso-ascii-display 224 "`a") (iso-ascii-display 225 "'a") (iso-ascii-display 226 "^a") (iso-ascii-display 227 "~a") (iso-ascii-display 228 "\"a") (iso-ascii-display 229 "aa") (iso-ascii-display 230 "ae") (iso-ascii-display 231 ",c") (iso-ascii-display 232 "`e") (iso-ascii-display 233 "'e") (iso-ascii-display 234 "^e") (iso-ascii-display 235 "\"e") (iso-ascii-display 236 "`i") (iso-ascii-display 237 "'i") (iso-ascii-display 238 "^i") (iso-ascii-display 239 "\"i") (iso-ascii-display 240 "-d") (iso-ascii-display 241 "~n") (iso-ascii-display 242 "`o") (iso-ascii-display 243 "'o") (iso-ascii-display 244 "^o") (iso-ascii-display 245 "~o") (iso-ascii-display 246 "\"o") (iso-ascii-display 247 "/") (iso-ascii-display 248 "/o") (iso-ascii-display 249 "`u") (iso-ascii-display 250 "'u") (iso-ascii-display 251 "^u") (iso-ascii-display 252 "\"u") (iso-ascii-display 253 "'y") (iso-ascii-display 254 "th") (iso-ascii-display 255 "\"y")
(defun iso-ascii-mode (arg)
"Toggle ISO-ASCII mode."
(interactive "P")
(unless arg
(setq arg (eq standard-display-table iso-ascii-standard-display-table)))
(setq standard-display-table
(if arg
iso-ascii-display-table
iso-ascii-standard-display-table)))
(provide 'iso-ascii)