lisp/term/internal.el

   1 ;;; internal.el --- support for PC internal terminal -*- coding: raw-text; -*-
   2
   3 ;; Copyright (C) 1993, 1994, 1998, 1999, 2001 Free Software Foundation, Inc.
   4
   5 ;; Author: Morten Welinder <terra@diku.dk>
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation; either version 2, or (at your option)
  12 ;; any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22 ;; Boston, MA 02111-1307, USA.
  23
  24 ;;; Commentary:
  25
  26 ;;; Code:
  27
  28 ;; ---------------------------------------------------------------------------
  29 ;; keyboard setup -- that's simple!
  30 (set-input-mode nil nil 0)
  31 (define-key function-key-map [backspace] "\177") ; Normal behaviour for BS
  32 (define-key function-key-map [delete] "\C-d")    ; ... and Delete
  33 (define-key function-key-map [tab] [?\t])
  34 (define-key function-key-map [linefeed] [?\n])
  35 (define-key function-key-map [clear] [11])
  36 (define-key function-key-map [return] [13])
  37 (define-key function-key-map [escape] [?\e])
  38 (define-key function-key-map [M-backspace] [?\M-\d])
  39 (define-key function-key-map [M-delete] [?\M-d])
  40 (define-key function-key-map [M-tab] [?\M-\t])
  41 (define-key function-key-map [M-linefeed] [?\M-\n])
  42 (define-key function-key-map [M-clear] [?\M-\013])
  43 (define-key function-key-map [M-return] [?\M-\015])
  44 (define-key function-key-map [M-escape] [?\M-\e])
  45 (put 'backspace 'ascii-character 127)
  46 (put 'delete 'ascii-character 127)
  47 (put 'tab 'ascii-character ?\t)
  48 (put 'linefeed 'ascii-character ?\n)
  49 (put 'clear 'ascii-character 12)
  50 (put 'return 'ascii-character 13)
  51 (put 'escape 'ascii-character ?\e)
  52
  53 ;; ----------------------------------------------------------------------
  54 ;;   DOS display setup
  55 ;;   =================
  56 ;;
  57 ;;   DOS can only support a single font.  On most systems (with the
  58 ;;   possible exception of Far Eastern DOS versions), this means that
  59 ;;   two character sets are available at any given time: the ASCII
  60 ;;   charset, and a single national charset, usually mapped to codes
  61 ;;   above 128 (i.e., with 8th bit set).  Which national charset is
  62 ;;   supported depends on the codepage loaded by the system when it
  63 ;;   boots; usually, this codepage cannot be changed without
  64 ;;   rebooting.
  65 ;;
  66 ;;   Since each codepage can usually display character of a single
  67 ;;   MULE charset, Emacs can display a single MULE charset with the
  68 ;;   glyphs of the current codepage.  The mapping from DOS codepages
  69 ;;   to MULE charsets is established by the charset property of the
  70 ;;   cpNNN-decode-table variables in codepage.el, which also
  71 ;;   defines translation tables for each such pair, and a bunch of
  72 ;;   functions to generate coding systems that use those translation
  73 ;;   tables to convert codepage-encoded text to the appropriate MULE
  74 ;;   charset and back.  When Emacs starts on DOS, it automatically
  75 ;;   sets its default coding systems for file I/O and terminal output
  76 ;;   according to the currend DOS codepage, given by the
  77 ;;   `dos-codepage' variable.
  78 ;;
  79 ;;   This leaves us with the problem of displaying character sets
  80 ;;   other than the one which maps directly into the current codepage.
  81 ;;   The following functions and variables handle this nuisance by
  82 ;;   defining a display table where each character that doesn't have a
  83 ;;   glyph in some codepage is mapped to a string which represents it.
  84 ;;   For example, a small c with cedilla is mapped to the string
  85 ;;   "{,c}" (the braces serve as a sign that this is a single
  86 ;;   character).  A nice feature of the display tables is that Emacs
  87 ;;   knows that the string represents a single character, and thus
  88 ;;   cursor motion works as you'd expect: a single `C-f' moves past
  89 ;;   the entire string which represents a single character.
  90 ;; ----------------------------------------------------------------------
  91
  92 (defvar IT-character-translations
  93   '(
  94     (latin-iso8859-1
  95      . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)"
  96         "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
  97         "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2"
  98         "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C"
  99         "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N"
 100         "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^"
 101         "\"U" "Y'" "-P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao"
 102         "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i"
 103         "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u"
 104         "u'" "u^" "\"u" "y'" "-p" "\"y"]
 105      )
 106     (latin-iso8859-2
 107      . [255 "A;" "'(" "/L" "$$" "L<" "S'" "SE" "\"" "S<"
 108         ",S" "T<" "Z'" "--" "Z<" "Z^." "^o" "a;" "';" "/l"
 109         "'" "l<" "s'" "'<" "'," "s<" ",s" "t<" "z'" "'"
 110         "z<" "z^." "R'" "A'" "A^" "A(" "\"A" "L'" "C'" ",C"
 111         "C<" "E'" "E;" "E:" "E<" "I'" "I^" "D<" "/D" "N'"
 112         "N<" "O'" "O^" "O''" "\"O" "*x" "R<" "U^0" "U'" "U''"
 113         "\"U" "Y'" ",T" "ss" "r'" "a'" "a^" "a(" "\"a" "l'"
 114         "c'" ",c" "c<" "e'" "e;" "\"e" "e<" "i'" "i^" "d<"
 115         "/d" "n'" "n<" "o'" "o^" "o''" "\"o" "-:" "r<" "u^0"
 116         "u'" "u''" "\"u" "y'" ",t" "'."]
 117      )
 118     (latin-iso8859-3
 119      . [255 "/H" "'(" "Pd" "$$" " " "H^" "SE" "\"" "I^."
 120         ",S" "G(" "J^" "--" " " "Z^." "^o" "/h" "^2" "^3"
 121         "'" "u" "h^" "." "'," "i^." ",s" "g(" "j^" "1/2"
 122         " " "z^." "`A" "A'" "A^" " " "\"A" "C^." "C^" ",C"
 123         "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" " " "~N"
 124         "`O" "O'" "O^" "G^." "\"O" "*x" "G^" "`U" "U'" "U^"
 125         "\"U" "U(" "S^" "ss" "`a" "a'" "a^" " " "\"a" "c^."
 126         "c^" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i"
 127         " " "~n" "`o" "o'" "o^" "g^." "\"o" "-:" "g^" "`u"
 128         "u'" "u^" "\"u" "u(" "s^" "^."]
 129      )
 130     (latin-iso8859-4
 131      . [255 "A;" "kk" ",R" "$$" "?I" ",L" "SE" "\"" "S<"
 132         "E-" ",G" "/T" "--" "Z<" "'-" "^o" "a;" "';" ",r"
 133         "'" "~i" ",l" "'<" "'," "s<" "e-" ",g" "/t" "NG"
 134         "z<" "ng" "A-" "A'" "A^" "~A" "\"A" "Ao" "AE" "I;"
 135         "C<" "E'" "E;" "\"E" "E^." "I'" "I^" "I-" "/D" ",N"
 136         "O-" ",K" "O^" "~O" "\"O" "*x" "/O" "U;" "U'" "U^"
 137         "\"U" "~U" "U-" "ss" "a-" "a'" "a^" "~a" "\"a" "ao"
 138         "ae" "i;" "c<" "e'" "e;" "\"e" "e^." "i'" "i^" "i-"
 139         "/d" ",n" "o-" ",k" "o^" "~o" "\"o" "-:" "/o" "u;"
 140         "u'" "u^" "\"u" "~u" "u-" "^."]
 141      )
 142     (cyrillic-iso8859-5
 143      . [255 "\"E" "Dj" "Gj" "IE" "Dz" "Ii" "Ji" "JE" "Lj"
 144         "Nj" "Ts" "Kj" 240 "V%" "Dzh"  65  "B="  66 226
 145         68  69  "Z%"  51  85 "J="  75 "L="  77  72
 146         79  "P="  80  67  84  89 232  88 "C=" "C%"
 147         "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "Yu" "Ya" 97  98
 148         "v=" "g=" 103 101 "z%" "z=" 117 "j=" 107 "l="
 149         "m=" "n=" 111 110 112 99 "t=" 121 "f=" 120
 150         "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "yu" "ya"
 151         "N0" "\"e" "dj" "gj" "ie" "dz" "ii" "ji" "je" "lj"
 152         "nj" "ts" "kj"  21 "v%" "dzh"]
 153      )
 154     (arabic-iso8859-6
 155      . [255 nil nil nil "$$" nil nil nil nil nil
 156         nil nil ",+" "--" nil nil nil nil nil nil
 157         nil nil nil nil nil nil nil ";+" nil nil
 158         nil "?+" nil "H'" "aM" "aH" "wH" "ah" "yH"
 159         "a+" "b+" "tm" "t+" "tk" "g+" "hk" "x+" "d+" "dk"
 160         "r+" "z+" "s+" "sn" "c+" "dd" "tj" "zH" "e+" "i+"
 161         nil nil nil nil nil "++" "f+" "q+" "k+" "l+"
 162         "m+" "n+" "h+" "w+" "j+" "y+" ":+" "\"+" "=+" "/+"
 163         "'+" "1+" "3+" "0+" nil nil nil nil nil nil
 164         nil nil nil nil nil nil nil]
 165      )
 166     (greek-iso8859-7
 167      . [255 "9'" "'9" "Pd" nil nil "|" "SE" "\"" "(c)"
 168         nil "<<" "~" "--" nil "-M" "^o" "+-" "^2" "^3"
 169         "'" "'%" "'A" "^." "'E" "'H" "'I" ">>" "'O" "1/2"
 170         "'Y" "W%" "i3" 65 66 "G*" "D*" 69 90 72
 171         "TH" 73 74 "L*" 77 78 "C*" 79 "P*" 80
 172         nil "S*" 84 89 "F*" 88 "Q*" "W*" "\"I" "\"Y"
 173         "a%" "e%" "y%" "i%" "u3" "a*" "b*" "g*" "d*" "e*"
 174         "z*" "y*" "h*" "i*" 107 "l*" "m*" "n*" "c*" 111
 175         "p*" "r*" "*s" "s*" "t*" 117 "f*" "x*" "q*" "w*"
 176         "\"i" "\"u" "'o" "'u" "'w" nil]
 177      )
 178     (hebrew-iso8859-8
 179      . [255 nil "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)"
 180         "*x" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
 181         "'" "u" ".P" "^." "'," "^1" "-:" ">>" "1/4" "1/2"
 182         "3/4" nil nil nil nil nil nil nil nil nil
 183         nil nil nil nil nil nil nil nil nil nil
 184         nil nil nil nil nil nil nil nil nil nil
 185         nil nil nil "=2" "A+" "B+" "G+" "D+" "H+" "W+"
 186         "Z+" "X+" "Tj" "J+" "K%" "K+" "L+" "M%" "M+" "N%"
 187         "N+" "S+" "E+" "P%" "P+" "Zj" "ZJ" "Q+" "R+" "Sh"
 188         "T+" nil nil nil nil nil]
 189      )
 190     (latin-iso8859-9
 191      . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)"
 192         "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
 193         "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2"
 194         "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C"
 195         "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "G(" "~N"
 196         "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^"
 197         "\"U" "I^." ",S" "ss" "`a" "a'" "a^" "~a" "\"a" "ao"
 198         "ae" ",c" "`e" "e'" "e<" "\"e" "e^." "i'" "i^" "i-"
 199         "g(" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u"
 200         "u'" "u^" "\"u" "i." ",s" "\"y"]
 201      )
 202     (latin-iso8859-14
 203      . [255 "B`" "b`" "Pd" "C`" "c`" "D`" "SE" "`W" "(c)"
 204         "W'" "d`" "`Y" "--" "(R)" "\"Y" "F`" "f`" "G`" "g`"
 205         "M`" "m`" ".P" "P`" "`w" "p`" "w'" "S`" "`y" "\"W"
 206         "\"w" "s`" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C"
 207         "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "W^" "~N"
 208         "`O" "O'" "O^" "~O" "\"O" "T`" "/O" "`U" "U'" "U^"
 209         "\"U" "Y'" "Y^" "ss" "`a" "a'" "a^" "~a" "\"a" "ao"
 210         "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i"
 211         "w^" "~n" "`o" "o'" "o^" "~o" "\"o" "t`" "/o" "`u"
 212         "u'" "u^" "\"u" "y'" "y^" "\"y"]
 213     )
 214     (latin-iso8859-15
 215      . [255 "!I" "|c" "Pd" "E=" "Ye" "S<" "SE" "s<" "(c)"
 216         "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
 217         "Z<" "u" ".P" "^." "z<" "^1" "_o" ">>" "OE" "oe"
 218         "\"Y" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C"
 219         "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N"
 220         "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^"
 221         "\"U" "Y'" "|P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao"
 222         "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i"
 223         "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u"
 224         "u'" "u^" "\"u" "y'" "|p" "\"y"]
 225      )
 226     )
 227   "An alist of MULE ISO-8859 character sets and the strings that
 228 should be used to represent the characters from each set on a DOS
 229 terminal which does not have corresponding glyphs built into the
 230 installed codepage.")
 231
 232 (defun IT-display-table-setup (codepage &optional table)
 233   "Set up display table TABLE for a DOS terminal which supports
 234 glyphs built into the codepage CODEPAGE.
 235
 236 If TABLE is nil or omitted, `standard-display-table' is used."
 237   (let* ((surrogates IT-character-translations)
 238          (disp-tab (or table standard-display-table))
 239          (built-in-set (cp-charset-for-codepage codepage))
 240          (offset (cp-offset-for-codepage codepage))
 241          (cp-decoder
 242           (symbol-value (intern-soft (format "%s-decode-table" codepage))))
 243          (cp-decoder-len (length cp-decoder))
 244          (c offset)
 245          association chset)
 246     ;; Undo the effects of previous call (where they may have used
 247     ;; a different codepage) by reverting the display table for the
 248     ;; built-in charset to its pristine shape.
 249     (while (< c 256)
 250       (aset disp-tab (make-char built-in-set c) nil)
 251       (setq c (1+ c)))
 252     (while surrogates
 253       (setq association (car surrogates))
 254       (setq chset (car association))
 255       (let* ((vector (cdr association))
 256              (veclen (length vector))
 257              (i 0)
 258              glyph)
 259         (while (< i veclen)
 260           (setq glyph (aref vector i))
 261           (if (and glyph
 262                    (or (not (equal chset built-in-set))
 263                        (>= i cp-decoder-len)
 264                        (null (aref cp-decoder i))))
 265               (aset disp-tab (make-char chset (+ i (logand offset 127)))
 266                     (vconcat
 267                      (if (numberp glyph)
 268                          (char-to-string glyph)
 269                        (if (> (length glyph) 1) (concat "{" glyph "}")
 270                          glyph)))))
 271           (setq i (1+ i))))
 272       (setq surrogates (cdr surrogates)))))
 273
 274 (defvar IT-unicode-translations
 275   '(
 276     (mule-unicode-0100-24ff             ; charset
 277      256                                ; base
 278      256 563                            ; first, last
 279      [ "A-" "a-" "A(" "a(" "A;" "a;" "C'" "c'" "C>" "c>" ; Latin Extended-A
 280        "C." "c." "C<" "c<" "D<" "d<" "D/" "d/" "E-" "e-"
 281        "E(" "e(" "E." "e." "E;" "e;" "E<" "e<" "G>" "g>"
 282        "G(" "g(" "G." "g." "G," "g," "H>" "h>" "H/" "h/"
 283        "I~" "i~" "I-" "i-" "I(" "i(" "I;" "i;" "I." "i."
 284        "IJ" "ij" "J>" "j>" "K," "k," "kk" "L'" "l'" "L,"
 285        "l," "L<" "l<" "L." "l." "L/" "l/" "N'" "n'" "N,"
 286        "n," "N<" "n<" "'n" "NG" "ng" "O-" "o-" "O(" "o("
 287        "O\"" "o\"" "OE" "oe" "R'" "r'" "R," "r," "R<" "r<"
 288        "S'" "s'" "S>" "s>" "S," "s," "S<" "s<" "T," "t,"
 289        "T<" "t<" "T/" "t/" "U~" "u~" "U-" "u-" "U(" "u("
 290        "U0" "u0" "U\"" "u\"" "U;" "u;" "W>" "w>" "Y>" "y>"
 291        "Y:" "Z'" "z'" "Z." "z." "Z<" "z<" "s1"                ; 017f
 292        "b/" "B2" "=B" "=b" "B6" "b6" "!C" "C2" "c2" "-D" ;Lat. Extended-B
 293        "D2" "=D" "=d" "!d" "!E" "-E" "Eps" "F2" "f2" "G2"
 294        "V0" "hv" "io" "-I" "K2" "k2" "-l"  "la-" "!M" "2N"
 295        "n_" "-O" "O9" "o9" "OI" "oi" "P2" "p2" "'R" "!S"
 296        "!s" "Esh" "!esh" "t~" "T2" "t2" "T~" "U9" "u9" "Ups"
 297        "V2" "Y2" "y2" "Z/" "z/" "ED" "!ED" "!ed" "ed;" "2/"
 298        "5-" "_5-" "ts" "wn" "|_" "||" "|=" "!_" "DZ<" "Dz<"
 299        "dz<" "LJ3" "Lj3" "lj3" "NJ3" "Nj3" "nj3" "A<" "a<" "I<"
 300        "i<" "O<" "o<" "U<" "u<" "U:-" "u:-" "U:'" "u:'" "U:<"
 301        "u:<" "U:!" "u:!" "e1" "A:-" "a:-" "A.-" "a.-" "AE-" "ae-"
 302        "G/" "g/" "G<" "g<" "K<" "k<" "O;" "o;" "O1" "o1"
 303        "EZ" "ez" "j<" "DZ3" "Dz3" "dz3" "G'" "g'" "Hv" "Wn"
 304        "N`" "n`" "AA'" "aa'" "AE'" "ae'" "O/'" "o/'" "A!!" "a!!"
 305        "A)" "a)" "E!!" "e!!" "E)" "e)" "I!!" "i!!" "I)" "i)"
 306        "O!!" "o!!" "O)" "o)" "R!!" "r!!" "R)" "r)" "U!!" "u!!"
 307        "U)" "u)" ",S" ",s" ",T" ",t" "'3" "'3_" "H<" "h<"
 308        nil nil "8" "8_" "Z2" "z2" "A." "a." "E," "e,"
 309        "O:-" "o:-" "O~-" "o~-" "O." "o." "O.-" "o.-" "Y-" "y-"] ; 0x233
 310
 311      )
 312
 313     (mule-unicode-0100-24ff             ; charset
 314      256                                ; base
 315      884 1123                           ; first, last
 316      [ "'" "," nil nil nil nil "j3" nil nil nil        ; Greek
 317        "?;" nil nil nil nil nil "'*" "'%" "A%" ".*"
 318        "E%" "Y%" "I%" nil "O%" nil "U%" "W%" "i3" "A*"
 319        "B*" "G*" "D*" "E*" "Z*" "H*" "Th*" "I*" "K*" "L*"
 320        "M*" "N*" "C*" "O*" "P*" "R*" nil "S*" "T*" "U*"
 321        "F*" "X*" "Q*" "W*" "J*" "V*" "a%" "e%" "y%" "i%"
 322        "u3" "a*" "b*" "g*" "d*" "e*" "z*" "h*" "th*" "i*"
 323        "k*" "l*" "m*" "n*" "c*" "o*" "p*" "r*" "*s" "s*"
 324        "t*" "u*" "f*" "x*" "q*" "w*" "j*" "v*" "o%" "u%"
 325        "w%" nil "b3" "th%" "U2*" "'U2*" "U:2*" "ph*" "pi*" "ka*"
 326        nil nil "Sti" "sti" "Dig" "dig" "Kop" "kop" "Sam" "sam"
 327        "She" "she" "Fei" "fei" "Khe" "khe" "Hor" "hor" "Gan" "gan"
 328        "Shi" "shi" "Dei" "dei" "ka*" "rh*" "ls*" "yo*" nil nil
 329        nil nil nil nil nil nil nil nil nil nil
 330        "IE'" "E:" "D%" "G%" "IE" "DS" "II" "YI" "J%" "LJ" ; Cyrillic
 331        "NJ" "Ts"  "KJ" "`I=" "V%" "DZ" 65 "B=" 66 "G="
 332        68 69 "Z%" 51 85 "J=" 75 "L=" 77 72
 333        79 "P=" 80 67 84 89 "F=" 88 "C=" "C%"
 334        "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "JU" "JA" 97 "b="
 335        98 "g=" 103 101 "z%" "z=" 117 "j=" 107 "l="
 336        109 "n=" 111 "p=" 112 99 "t=" 121 "f=" 120
 337        "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "ju" "ja"
 338        "ie'" "e:" "d%" "g%" "ie" "ds" "ii" "yi" "j%" "lj"
 339        "nj" "ts" "kj" "v%" "`i=" "dz" "OM=" "om=" "Y3" "y3"] ; 0x463
 340      )
 341
 342     (mule-unicode-0100-24ff             ; charset
 343      256                                ; base
 344      1488 1645                          ; first, last
 345      [ "A+" "B+" "G+" "D+" "H+" "W+" "Z+" "X+" "Tj" "J+" ; Hebrew
 346        "K%" "K+" "L+" "M%" "M+" "N%" "N+" "S+" "E+" "P%"
 347        "P+" "Zj" "ZJ" "Q+" "R+" "Sh" "T+" nil nil nil
 348        nil nil "WW+" "WJ+" "JJ+" "'+" "\"+" nil nil nil
 349        nil nil nil nil nil nil nil nil nil nil
 350        nil nil nil nil nil nil nil nil nil nil
 351        ",+" nil nil nil nil nil nil nil nil nil          ; Arabic
 352        nil nil nil nil nil ";+" nil nil nil "?+"
 353        nil "H'" "aM" "aH" "wH" "ah" "yH" "a+" "b+" "tm"
 354        "t+" "tk" "g+" "hk" "x+" "d+" "dk" "r+" "z+" "s+"
 355        "sn" "c+" "dd" "tj" "zH" "e+" "i+" nil nil nil
 356        nil nil "++" "f+" "q+" "k+" "l+" "m+" "n+" "h+"
 357        "w+" "j+" "y+" ":+" "\"+" "=+" "/+" "'+" "1+" "3+"
 358        "0+" nil nil nil nil nil nil nil nil nil
 359        nil nil nil nil "0a" "1a" "2a" "3a" "4a" "5a"
 360        "6a" "7a" "8a" "9a" "a%" "a." "a," "a*" ]
 361      )
 362
 363     (mule-unicode-0100-24ff             ; charset
 364      256                                ; base
 365      7680 9450                          ; first, last
 366      [ "A-0" "a-0" "B." "b." "B-." "b-." "B_" "b_" "C,'" "c,'" ; Lat Ext Add
 367        "D." "d." "D-." "d-." "D_" "d_" "D," "d," "D->" "d->"
 368        "E-!" "e-!" "E-'" "e-'" "E->" "e->" "E-?" "e-?" "E,(" "e,("
 369        "F." "f." "G-" "g-" "H." "h." "H-." "h-." "H:" "h:"
 370        "H," "h," "H-(" "h-(" "I-?" "i-?" "I:'" "i:'" "K'" "k'"
 371        "K-." "k-." "K_" "k_" "L-." "l-." "_L-." "_l-." "L_" "l_"
 372        "L->" "l->" "M'" "m'" "M." "m." "M-." "m-." "N." "n."
 373        "N-." "n-." "N_" "n_" "N->" "n->" "O?'" "o?'" "O?:" "o?:"
 374        "O-!" "o-!" "O-'" "o-'" "P'" "p'" "P." "p." "R." "r."
 375        "R-." "r-." "_R-." "_r-." "R_" "r_" "S." "s." "S-." "s-."
 376        "S'." "s'." "S<." "s<." ".S-." ".s-." "T." "t." "T-." "t-."
 377        "T_" "t_" "T->" "t->" "U_:" "u_:" "U-?" "u-?" "U->" "u->"
 378        "U?'" "u?'" "U-:" "u-:" "V?" "v?" "V-." "v-." "W!" "w!"
 379        "W'" "w'" "W:" "w:" "W." "w." "W-." "w-." "X."  "x."
 380        "X:" "x:" "Y." "y." "Z>" "z>" "Z-." "z-." "Z_" "z_"
 381        "h_" "t:" "w0" "y0" "a))" "s1." nil nil nil nil
 382        "A-." "a-." "A2" "a2" "A>'" "a>'" "A>!" "a>!" "A>2" "a>2"
 383        "A>~" "a>~" ".A>" ".a>" "A('" "a('" "A(!" "a(!" "A(2" "a(2"
 384        "A(~" "a(~" ".A(" ".a(" "E-." "e-." "E2" "e2" "E~" "e~"
 385        "E>'" "e>'" "E>!" "e>!" "E>2" "e>2" "E>~" "e>~" ".E>" ".e>"
 386        "I2" "i2" "I-." "i-." "O-." "o-." "O2" "o2" "O>'" "o>'"
 387        "O>!" "o>!" "O>2" "o>2" "O>~" "o>~" ".O>" ".o>" "O9'" "o9'"
 388        "O9!" "o9!" "O92" "o92" "O9~" "o9~" ".O9" ".o9" "U-." "u-."
 389        "U2" "u2" "U9'" "u9'" "U9!" "u9!" "U92" "u92" "U9~" "u9~"
 390        ".U9" ".u9" "Y!" "y!" "Y-." "y-." "Y2" "y2" "Y~" "y~"
 391        nil nil nil nil nil nil "a*," "a*;" nil nil ; Greek Ext (0x1f00)
 392        nil nil nil nil "A*," "A*;" nil nil nil nil
 393        nil nil "e*," "e*;" nil nil nil nil nil nil
 394        "E*," "E*;" nil nil nil nil nil nil "y*," "y*;"
 395        nil nil nil nil nil nil "Y*," "Y*;" nil nil
 396        nil nil nil nil "i*," "i*;" nil nil nil nil
 397        nil nil "I*," "I*;" nil nil nil nil nil nil
 398        "o*," "o*;" nil nil nil nil nil nil "O*," "O*;"
 399        nil nil nil nil nil nil "u*," "u*;" nil nil
 400        nil nil nil nil nil "U*;" nil nil nil nil
 401        nil nil "w*," "w*;" nil nil nil nil nil nil
 402        "W*," "W*;" nil nil nil nil nil nil "a*!" "a*'"
 403        "e*!" "e*'" "y*!" "y*'" "i*!" "i*'" "o*!" "o*'" "u*!" "u*'"
 404        "w*!" "w*'" nil nil nil nil nil nil nil nil
 405        nil nil nil nil nil nil nil nil nil nil
 406        nil nil nil nil nil nil nil nil nil nil
 407        nil nil nil nil nil nil nil nil nil nil
 408        nil nil nil nil nil nil nil nil nil nil
 409        nil nil "a*(" "a*-" nil "a*j" nil nil "a*~" nil
 410        "A*(" "A*-" "A*!" "A*'" "A*J" ")*" "J3" ",," "?*" "?:"
 411        nil "y*j" nil nil "y*?" nil "E*!"  "E*'" "Y*!" "Y*'"
 412        "Y*J" ",!" ",'" "?," "i*(" "i*-" nil nil nil nil
 413        "i*?" nil "I*(" "I*-" "I*!" "I*'" nil ";!" ";'" "?;"
 414        "u*(" "u*-" nil nil "r*," "r*;" "u*?" nil "U*(" "U*-"
 415        "U*!" "U*'" "R*;" "!:" ":'" "!*" nil nil nil "w*j"
 416        nil nil "w*?" nil "O*!" "O*'" "W*!" "W*'" "W*J" "/*"
 417        ";;" nil nil nil "1N" "1M" "3M" "4M" "6M" nil          ; Gen Punct
 418        nil "1T" "1H" nil nil nil "LRM" "RLM" "-1" nil
 419        nil "--" "---" "===" "!2" "=2" "6`" "'9" ".9" "9'"
 420        "``" "''" ":9" "9``" "/-" "/=" "sb" "3b" nil ".."
 421        "..." ".-" "LSep" "PSep" "LR[" "RL[" "PDF" "LRO" "RLO" 255
 422        "%o" "%oo" "'" "''" "\"'" "`" "``" "```" ".^" "<,"
 423        ",>" ":X" "!!" "?!" "'-" nil nil nil nil "-b"
 424        "/f" nil nil nil nil nil nil nil nil nil
 425        nil nil nil nil nil nil nil nil nil nil
 426        nil nil nil nil nil nil nil nil nil nil
 427        nil nil nil nil nil nil nil nil nil nil
 428        nil nil nil nil "^0" nil nil nil "^4" "^5"
 429        "^6" "^7" "^8" "^9" "^+" "^-" "^=" "^(" "^)" "^n"
 430        "_0" "_1" "_2" "_3" "_4" "_5" "_6" "_7" "_8" "_9"
 431        "_+" "_-" "_=" "_(" "_)" nil nil nil nil nil
 432        nil nil nil nil nil nil nil nil nil nil
 433        nil nil nil nil nil "Ff" "Li" nil nil "Pt"
 434        nil "W=" "NIS" nil "E=" nil nil nil nil nil
 435        nil nil nil nil nil nil nil nil nil nil
 436        nil nil nil nil nil nil nil nil nil nil
 437        nil nil nil nil nil nil nil nil nil nil
 438        nil nil nil nil nil nil nil nil nil nil
 439        nil nil nil nil nil nil nil nil nil nil
 440        nil nil nil nil nil nil nil nil nil nil
 441        nil nil nil nil nil nil nil nil nil nil
 442        nil nil nil nil nil nil nil nil "a/c" "a/s"
 443        nil "oC" nil "c/o" "c/u" "=e" nil "oF" nil nil
 444        nil nil "-h" "=h" nil nil nil nil nil nil
 445        "N0" "PO" nil nil nil nil "Re" nil "Rx" nil
 446        "SM" "TEL" "TM" nil nil nil "Om" nil nil nil
 447        "oK" "AO" nil nil "Est" nil nil nil nil nil
 448        nil "Aleph" "Bet" "Gimel" "Dalet" "=i=" nil nil nil nil
 449        nil nil nil nil nil nil nil nil nil nil
 450        nil nil nil nil nil nil nil nil nil nil
 451        nil "1/3" "2/3" "1/5" "2/5" "3/5" "4/5" "1/6" "5/6" "1/8"
 452        "3/8" "5/8" "7/8" "1/" ".I" "II" "III" "IV" ".V" "VI"
 453        "VII" "VIII" "IX" "X" "XI" "XII" ".L" ".C" ".D" ".M"
 454        ".i" "ii" "iii" "iv" ".v" "vi" "vii" "viii" "ix" ".x"
 455        "xi" ".l" ".c" ".d" ".m" "CD" "DD" "CoD" "CI" nil
 456        nil nil nil nil nil nil nil nil nil nil
 457        nil "<-" "|^" "->" "|v" "<->" "v|^" "^\\" "/^" "\\v"
 458        "v/" "<-/" "/->" "<~" "~>" "<<-" "|^^" "->>" "|vv" "<-<"
 459        ">->" "<-|" "_|^" "|->" "-|v" "_v|^" "<-?" "?->" "<-o" "o->"
 460        "<~>" "<-/>" nil nil nil nil nil nil nil nil
 461        nil nil nil nil nil nil nil nil nil nil
 462        nil nil nil nil nil nil nil nil nil nil
 463        nil nil nil "<=/" "<=/>" "/=>" "<=" "||^" "=>" "||v"
 464        "<=>" "v||^" "^\\\\" "//^" "\\\\v" "v//" "<-=" "=->" nil nil
 465        nil nil "<.." ":^" "..>" ":v" nil nil "<::" "::^"
 466        "::>" "::v" nil nil nil nil nil nil nil nil
 467        nil nil nil nil nil nil nil nil nil nil
 468        nil nil nil nil "FA" "C." "dP" "TE" "~TE" "/0"
 469        "DE" "NB" "(-" "~(-" "e-" "-)" "~-)" "-e" "QED" "*P"
 470        nil "+Z" "--" "-+" ".+" "./" ".\\" "*-" "Ob" "Sb"
 471        "SQR" "CBR" nil "0(" "00" "-L" "-V" nil nil ".|"
 472        "~.|" "||" "/||" "AND" "OR" "(U" ")U" "In" "DI" nil
 473        "Io" nil nil nil nil nil ".:" ":." ":R" "::"
 474        ".-." "-:" ":-:" ":~:" "?~" "~?" "??" nil nil "/~"
 475        "-~" "~-" "/~-" "~=" "~/=" "/~=" "~~" "/~~" nil nil
 476        "=?" ")(" "v^" "^_" ".=" "=;" ".=." nil ":=" "=:"
 477        nil "=o" "=)" "=^" "=v" "*=" "=<>" "=df" nil "?="
 478        "!=" "-=" "!-=" "==" "=<" ">=" nil nil nil nil
 479        "<<" ">>" "()" "/)(" "!<" "!>" nil nil nil nil
 480        nil nil nil nil nil nil "<'" "`>" "=<'" "`>="
 481        "~<'" "`>~" "/<'" "/`>" "(C" ")C" "/(C" "/)C" "(_" ")_"
 482        "/(_" "/)_" nil nil nil nil nil nil nil nil
 483        nil nil nil "0+" "0-" "0x" "0/" "0." "0o" "0*"
 484        "0=" "0_" nil nil nil nil "|T" "T|" "-T" "_T"
 485        nil nil nil nil nil nil nil nil nil nil
 486        nil nil nil nil nil nil nil nil nil "-,-"
 487        nil "XOR" "NAND" "NOR" nil nil nil nil nil nil
 488        nil nil nil nil nil nil nil nil nil nil
 489        nil nil nil nil nil nil nil nil "<." ".>"
 490        "<<<" ">>>" nil nil nil nil nil nil nil nil
 491        nil nil nil nil nil nil nil nil nil nil
 492        nil nil ":3" "..." nil nil nil nil nil nil
 493        nil nil nil nil nil nil nil nil nil nil
 494        nil nil "Eh" nil  nil nil nil nil "<7" ">7"
 495        "7<" "7>" nil nil nil nil "~I" nil "(A" nil
 496        nil "TR" nil "=||" "88" nil nil nil nil nil
 497        nil nil "Iu" "Il" nil nil "-^-" "-`-" "D->" nil
 498        nil "</" "/>" "<-D" nil nil nil nil nil nil
 499        nil nil nil nil nil nil nil nil nil nil
 500        nil nil nil nil nil nil nil nil nil nil
 501        nil nil nil nil nil nil nil nil nil nil
 502        nil nil nil nil nil nil nil nil nil nil
 503        nil nil nil nil nil nil nil nil nil nil
 504        nil nil nil nil nil nil nil nil nil nil
 505        nil nil nil nil nil nil nil nil nil nil
 506        nil nil nil nil nil nil nil nil nil nil
 507        nil nil nil nil nil nil nil nil nil nil
 508        nil nil nil nil nil nil nil nil nil nil
 509        nil nil nil nil nil nil nil nil nil nil
 510        nil nil nil nil nil nil nil nil nil nil
 511        nil nil nil nil nil nil nil nil nil nil
 512        nil nil nil nil nil nil nil nil nil nil
 513        nil nil nil nil nil nil nil nil nil nil
 514        nil nil nil nil nil nil nil nil nil nil
 515        nil nil nil nil nil nil nil nil nil nil
 516        nil nil nil nil nil nil nil nil nil nil
 517        nil nil nil nil nil nil nil nil nil nil
 518        nil nil nil nil nil nil nil nil nil nil
 519        nil nil nil nil nil nil "NUL" "SOH" "STX" "ETX"
 520        "EOT" "ENQ" "ACK" "BEL" "BS" "HT" "LF" "VT" "FF" "CR"
 521        "SS" "SI" "DLE" "DC1" "DC2" "DC3" "DC4" "NAK" "SYN" "ETB"
 522        "CAN" "EM" "SUB" "ESC" "FS" "GS" "RS" "US" "SP" "DEL"
 523        "b/" ",_," "NL" nil "?^" nil nil nil nil nil
 524        nil nil nil nil nil nil nil nil nil nil
 525        nil nil nil nil nil nil nil nil nil nil
 526        nil nil nil nil nil nil nil nil nil nil
 527        nil nil nil nil nil nil nil nil nil nil
 528        nil nil nil nil nil nil nil nil nil nil
 529        nil nil "1-o" "2-o" "3-o" "4-o" "5-o" "6-o" "7-o" "8-o"
 530        "9-o" "10-o" "11-o" "12-o" "13-o" "14-o" "15-o" "16-o" "17-o" "18-o"
 531        "19-o" "20-o" "(1)" "(2)" "(3)" "(4)" "(5)" "(6)" "(7)" "(8)"
 532        "(9)" "(10)" "(11)" "(12)" "(13)" "(14)" "(15)" "(16)" "(17)" "(18)"
 533        "(19)" "(20)" "1." "2." "3." "4." "5." "6." "7." "8."
 534        "9." "10." "11." "12." "13." "14." "15." "16." "17." "18."
 535        "19." "20." "(a)" "(b)" "(c)" "(d)" "(e)" "(f)" "(g)" "(h)"
 536        "(i)" "(j)" "(k)" "(l)" "(m)" "(n)" "(o)" "(p)" "(q)" "(r)"
 537        "(s)" "(t)" "(u)" "(v)" "(w)" "(x)" "(y)" "(z)" "A-o" "B-o"
 538        "C-o" "D-o" "E-o" "F-o" "G-o" "H-o" "I-o" "J-o" "K-o" "L-o"
 539        "M-o" "N-o" "O-o" "P-o" "Q-o" "R-o" "S-o" "T-o" "U-o" "V-o"
 540        "W-o" "X-o" "Y-o" "Z-o" "a-o" "b-o" "c-o" "d-o" "e-o" "f-o"
 541        "g-o" "h-o" "i-o" "j-o" "k-o" "l-o" "m-o" "n-o" "o-o" "p-o"
 542        "q-o" "r-o" "s-o" "t-o" "u-o" "v-o" "w-o" "x-o" "y-o" "z-o"
 543        "0-o" ]
 544      )
 545     )
 546
 547   "A list of mule-unicode-* character sets and the strings that
 548 should be used to represent the characters from each set on a DOS
 549 terminal which does not have corresponding glyphs built into the
 550 installed codepage.")
 551
 552 (defun IT-setup-unicode-display (&optional table)
 553   "Set up display table TABLE for displaying mule-unicode-* characters
 554 on a DOS terminal.  If TABLE is nil or omitted, `standard-display-table'
 555 is used."
 556   (interactive)
 557   (let ((disp-tab (or table standard-display-table))
 558         (tail IT-unicode-translations)
 559         translation)
 560     (while tail
 561       (setq translation (car tail) tail (cdr tail))
 562       (let* ((chset (car translation))
 563              (base (nth 1 translation))
 564              (first (nth 2 translation))
 565              (last (nth 3 translation))
 566              (table (nth 4 translation))
 567              (i 0)
 568              (this (- first base))
 569              glyph)
 570         (while (<= i (- last first))
 571           (setq glyph (aref table i))
 572           (if glyph
 573               (aset disp-tab (make-char chset
 574                                         (+ (/ this 96) 32)
 575                                         (+ (% this 96) 32))
 576                     (vconcat
 577                      (if (numberp glyph)
 578                          (char-to-string glyph)
 579                        (if (> (length glyph) 1) (concat "{" glyph "}")
 580                          glyph)))))
 581           (setq i (1+ i) this (1+ this)))))))
 582
 583 (defun dos-cpNNN-setup (codepage)
 584   "Set up the MULE environment using the DOS codepage CODEPAGE.
 585
 586 This function creates the coding system cpNNN (where NNN is the value
 587 of the argument CODEPAGE), and then uses this coding system to set up
 588 display tables, and the language environment options as appropriate."
 589   (let* ((cp (format "cp%s" codepage))
 590          (charset (cp-charset-for-codepage cp))
 591          (offset (cp-offset-for-codepage cp)))
 592     (cp-make-coding-systems-for-codepage cp charset offset)
 593     ;; This is done by set-language-environment.
 594     ;;(setq nonascii-translation-table
 595     ;;     (symbol-value (intern (concat cp "-nonascii-translation-table"))))
 596     (set-language-environment (cp-language-for-codepage cp))
 597     (set-default-coding-systems (intern (concat cp "-dos")))
 598     (set-selection-coding-system (intern (concat cp "-dos")))
 599     (set-terminal-coding-system
 600      (setq default-terminal-coding-system (intern (concat cp
 601                                                           "-unix"))))
 602     (IT-display-table-setup cp)
 603     (prefer-coding-system (intern (concat cp "-dos")))
 604     (if default-enable-multibyte-characters
 605         ;; We want this in multibyte version only, since unibyte version
 606         ;; should not convert non-ASCII characters at all.
 607         (setq unibyte-display-via-language-environment t)
 608       ;; Let the unibyte version behave as Emacs 19 did.  In particular,
 609       ;; let it use and display native codepage-specific glyphs for
 610       ;; non-ASCII characters.  For this to work correctly, we need to
 611       ;; establish the correspondence between lower-case letters and their
 612       ;; upper-case brethren, as appropriate for the codepage in use.  The
 613       ;; code below makes this happen.
 614       ;; (In the multibyte mode, the appropriate tables are prepared
 615       ;; elsewhere, since multibyte Emacs uses normal MULE character sets,
 616       ;; which are supported on all platforms.)
 617       (let* ((i 128)
 618              (modify (function
 619                       (lambda (ch sy)
 620                         (modify-syntax-entry ch sy text-mode-syntax-table)
 621                         (if (boundp 'tex-mode-syntax-table)
 622                             (modify-syntax-entry ch sy tex-mode-syntax-table))
 623                         (modify-syntax-entry ch sy (standard-syntax-table))
 624                         )))
 625              (table (standard-case-table))
 626              ;; The following are strings of letters, first lower then
 627              ;; upper case.  This will look funny on terminals which
 628              ;; display other code pages.  In particular, what is
 629              ;; displayed as blanks or triangles are not what they
 630              ;; look like at all!  (Use `C-x =' to see what they
 631              ;; really are.)
 632              (chars
 633               (cond
 634                ((= codepage 850)
 635                 "‡€�š‚�ƒ¶„Ž…·†�ÆÇ µˆÒ‰ÓŠÔ‹ØŒ×�Þ¡Ö‘’“â”™•ã¢à›�–ê£é—ë˜Yìí¡I£é¤¥ÐÑçè")
 636                ((= codepage 865)
 637                 "‡€�š‚�ƒA„Ž…A†�ˆE‰EŠE‹IŒI�I‘’“O”™•O–U£U˜Y›� A¡I¢O£U¤¥")
 638                ;; default is 437
 639                (t "‡€�š‚�ƒA„Ž…A†�ˆE‰EŠE‹IŒI�I‘’“O”™•O–U£U˜Y A¡I¢O£U¤¥"))))
 640
 641         (while (< i 256)
 642           (funcall modify i "_")
 643           (setq i (1+ i)))
 644
 645         (setq i 0)
 646         (while (< i (length chars))
 647           (let ((ch1 (aref chars i))
 648                 (ch2 (aref chars (1+ i))))
 649             (if (> ch2 127)
 650                 (set-case-syntax-pair ch2 ch1 table))
 651             (setq i (+ i 2))))
 652         (save-excursion
 653           (mapcar (lambda (b) (set-buffer b) (set-case-table table))
 654                   (buffer-list)))
 655         (set-standard-case-table table)))
 656     ;; Some codepages have sporadic support for Latin-1, Greek, and
 657     ;; symbol glyphs, which don't belong to their native character
 658     ;; set.  It's a nuisance to have all those glyphs here, for all
 659     ;; the codepages (for starters, I don't even have references for
 660     ;; all the codepages).  So I provide a hook for those who want to
 661     ;; squeeze every bit of support out of their terminal/font.
 662     (run-hooks 'dos-codepage-setup-hook)
 663     ))
 664
 665 (defvar cjk-codepages-alist
 666   '((932 "Japanese" japanese-shift-jis)
 667     (950 "Chinese-BIG5" cn-big5)
 668     (936 "Chinese-GB" cn-gb-2312)
 669     (949 "Korean" euc-kr))
 670   "An alist of Far-Eastern codepages and the names of the associated
 671 language and supported coding system.")
 672
 673 (defun dos-codepage-setup ()
 674   "Set up the MULE environment as appropriate for the installed DOS codepage.
 675
 676 This function sets coding systems, display tables, and the language
 677 environment options as appropriate for the current value of `dos-codepage'.
 678
 679 This function is automatically run at startup via the `term-setup-hook'
 680 list.  You can (and should) also run it whenever the value of
 681 `dos-codepage' changes."
 682   (interactive)
 683   (let* ((desc (cdr (assq dos-codepage cjk-codepages-alist)))
 684          (lang (car desc))
 685          (coding (car (cdr desc)))
 686          coding-dos coding-unix)
 687     (if (null desc)
 688         (dos-cpNNN-setup dos-codepage)
 689       ;; We've got one of the Far-Eastern codepages which support
 690       ;; MULE native coding systems directly.
 691       (setq coding-dos (intern (format "%s-dos" coding))
 692             coding-unix (intern (format "%s-unix" coding)))
 693       (set-language-environment lang)
 694       (set-selection-coding-system coding-dos)
 695       (setq file-name-coding-system coding-unix)
 696       (set-terminal-coding-system
 697        (setq default-terminal-coding-system coding-unix))
 698       ;; Assume they support non-ASCII Latin characters like the IBM
 699       ;; codepage 437 does.
 700       (IT-display-table-setup "cp437")
 701       (prefer-coding-system coding-dos)
 702       (if default-enable-multibyte-characters
 703           (setq unibyte-display-via-language-environment t))
 704       )))
 705
 706 ;; We want to delay the terminal and other codepage-related setup
 707 ;; until after the terminal is set and user's .emacs is processed,
 708 ;; because people might define their `dos-codepage-setup-hook' there.
 709 (add-hook 'term-setup-hook 'dos-codepage-setup)
 710
 711 ;; In multibyte mode, we want unibyte buffers to be displayed using
 712 ;; the terminal coding system, so that they display correctly on the
 713 ;; DOS terminal; in unibyte mode we want to see all 8-bit characters
 714 ;; verbatim.  In both cases, we want the entire range of 8-bit
 715 ;; characters to arrive at our display code verbatim.
 716 (standard-display-8bit 127 255)
 717
 718 ;;; internal.el ends here