Mercurial > emacs
changeset 98416:a0f0ccc831a1
Remove coding: cookie and no-byte-compile flag.
(IT-character-translations, cjk-codepages-alist): Remove variables.
(IT-display-table-setup, dos-cpNNN-setup): Remove functions.
(IT-unicode-translations): Remove charset and base elements. Add translations
for Latin-1 characters.
(IT-setup-unicode-display): Accept a CODING argument. Don't use base and
chset elements of IT-unicode-translations. Don't wrap translation in "{...}".
Set up translations only for characters for which unencodable-char-position
returns non-nil.
(dos-codepage-setup): Don't use special-case codepages in cjk-codepages-alist.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 30 Sep 2008 16:17:08 +0000 |
| parents | c3d8410a0701 |
| children | 245092d4bc9b |
| files | lisp/term/internal.el |
| diffstat | 1 files changed, 63 insertions(+), 353 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/internal.el Tue Sep 30 15:54:46 2008 +0000 +++ b/lisp/term/internal.el Tue Sep 30 16:17:08 2008 +0000 @@ -1,4 +1,4 @@ -;;; internal.el --- support for PC internal terminal -*- coding: raw-text; no-byte-compile: t -*- +;;; internal.el --- support for PC internal terminal ;; Copyright (C) 1993, 1994, 1998, 1999, 2001, 2002, 2003, 2004, ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. @@ -82,16 +82,10 @@ ;; ;; Since each codepage can usually display character of a single ;; MULE charset, Emacs can display a single MULE charset with the -;; glyphs of the current codepage. The mapping from DOS codepages -;; to MULE charsets is established by the charset property of the -;; cpNNN-decode-table variables in codepage.el, which also -;; defines translation tables for each such pair, and a bunch of -;; functions to generate coding systems that use those translation -;; tables to convert codepage-encoded text to the appropriate MULE -;; charset and back. When Emacs starts on DOS, it automatically -;; sets its default coding systems for file I/O and terminal output -;; according to the currend DOS codepage, given by the -;; `dos-codepage' variable. +;; glyphs of the current codepage. When Emacs starts on DOS, it +;; automatically sets its default coding systems for file I/O and +;; terminal output according to the currend DOS codepage, given by +;; the `dos-codepage' variable. ;; ;; This leaves us with the problem of displaying character sets ;; other than the one which maps directly into the current codepage. @@ -99,204 +93,26 @@ ;; defining a display table where each character that doesn't have a ;; glyph in some codepage is mapped to a string which represents it. ;; For example, a small c with cedilla is mapped to the string -;; "{,c}" (the braces serve as a sign that this is a single -;; character). A nice feature of the display tables is that Emacs +;; ",c". A nice feature of the display tables is that Emacs ;; knows that the string represents a single character, and thus ;; cursor motion works as you'd expect: a single `C-f' moves past ;; the entire string which represents a single character. ;; ---------------------------------------------------------------------- -(defvar IT-character-translations - '( - (latin-iso8859-1 - . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" - "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" - "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" - "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" - "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N" - "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" - "\"U" "Y'" "-P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" - "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" - "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" - "u'" "u^" "\"u" "y'" "-p" "\"y"] - ) - (latin-iso8859-2 - . [255 "A;" "'(" "/L" "$$" "L<" "S'" "SE" "\"" "S<" - ",S" "T<" "Z'" "--" "Z<" "Z^." "^o" "a;" "';" "/l" - "'" "l<" "s'" "'<" "'," "s<" ",s" "t<" "z'" "'" - "z<" "z^." "R'" "A'" "A^" "A(" "\"A" "L'" "C'" ",C" - "C<" "E'" "E;" "E:" "E<" "I'" "I^" "D<" "/D" "N'" - "N<" "O'" "O^" "O''" "\"O" "*x" "R<" "U^0" "U'" "U''" - "\"U" "Y'" ",T" "ss" "r'" "a'" "a^" "a(" "\"a" "l'" - "c'" ",c" "c<" "e'" "e;" "\"e" "e<" "i'" "i^" "d<" - "/d" "n'" "n<" "o'" "o^" "o''" "\"o" "-:" "r<" "u^0" - "u'" "u''" "\"u" "y'" ",t" "'."] - ) - (latin-iso8859-3 - . [255 "/H" "'(" "Pd" "$$" " " "H^" "SE" "\"" "I^." - ",S" "G(" "J^" "--" " " "Z^." "^o" "/h" "^2" "^3" - "'" "u" "h^" "." "'," "i^." ",s" "g(" "j^" "1/2" - " " "z^." "`A" "A'" "A^" " " "\"A" "C^." "C^" ",C" - "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" " " "~N" - "`O" "O'" "O^" "G^." "\"O" "*x" "G^" "`U" "U'" "U^" - "\"U" "U(" "S^" "ss" "`a" "a'" "a^" " " "\"a" "c^." - "c^" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" - " " "~n" "`o" "o'" "o^" "g^." "\"o" "-:" "g^" "`u" - "u'" "u^" "\"u" "u(" "s^" "^."] - ) - (latin-iso8859-4 - . [255 "A;" "kk" ",R" "$$" "?I" ",L" "SE" "\"" "S<" - "E-" ",G" "/T" "--" "Z<" "'-" "^o" "a;" "';" ",r" - "'" "~i" ",l" "'<" "'," "s<" "e-" ",g" "/t" "NG" - "z<" "ng" "A-" "A'" "A^" "~A" "\"A" "Ao" "AE" "I;" - "C<" "E'" "E;" "\"E" "E^." "I'" "I^" "I-" "/D" ",N" - "O-" ",K" "O^" "~O" "\"O" "*x" "/O" "U;" "U'" "U^" - "\"U" "~U" "U-" "ss" "a-" "a'" "a^" "~a" "\"a" "ao" - "ae" "i;" "c<" "e'" "e;" "\"e" "e^." "i'" "i^" "i-" - "/d" ",n" "o-" ",k" "o^" "~o" "\"o" "-:" "/o" "u;" - "u'" "u^" "\"u" "~u" "u-" "^."] - ) - (cyrillic-iso8859-5 - . [255 "\"E" "Dj" "Gj" "IE" "Dz" "Ii" "Ji" "JE" "Lj" - "Nj" "Ts" "Kj" 240 "V%" "Dzh" 65 "B=" 66 226 - 68 69 "Z%" 51 85 "J=" 75 "L=" 77 72 - 79 "P=" 80 67 84 89 232 88 "C=" "C%" - "S%" "Sc" "=\"" "Y=" "%\"" "Ee" "Yu" "Ya" 97 98 - "v=" "g=" 103 101 "z%" "z=" 117 "j=" 107 "l=" - "m=" "n=" 111 110 112 99 "t=" 121 "f=" 120 - "c=" "c%" "s%" "sc" "='" "y=" "%'" "ee" "yu" "ya" - "N0" "\"e" "dj" "gj" "ie" "dz" "ii" "ji" "je" "lj" - "nj" "ts" "kj" 21 "v%" "dzh"] - ) - (arabic-iso8859-6 - . [255 nil nil nil "$$" nil nil nil nil nil - nil nil ",+" "--" nil nil nil nil nil nil - nil nil nil nil nil nil nil ";+" nil nil - nil "?+" nil "H'" "aM" "aH" "wH" "ah" "yH" - "a+" "b+" "tm" "t+" "tk" "g+" "hk" "x+" "d+" "dk" - "r+" "z+" "s+" "sn" "c+" "dd" "tj" "zH" "e+" "i+" - nil nil nil nil nil "++" "f+" "q+" "k+" "l+" - "m+" "n+" "h+" "w+" "j+" "y+" ":+" "\"+" "=+" "/+" - "'+" "1+" "3+" "0+" nil nil nil nil nil nil - nil nil nil nil nil nil nil] - ) - (greek-iso8859-7 - . [255 "9'" "'9" "Pd" nil nil "|" "SE" "\"" "(c)" - nil "<<" "~" "--" nil "-M" "^o" "+-" "^2" "^3" - "'" "'%" "'A" "^." "'E" "'H" "'I" ">>" "'O" "1/2" - "'Y" "W%" "i3" 65 66 "G*" "D*" 69 90 72 - "TH" 73 74 "L*" 77 78 "C*" 79 "P*" 80 - nil "S*" 84 89 "F*" 88 "Q*" "W*" "\"I" "\"Y" - "a%" "e%" "y%" "i%" "u3" "a*" "b*" "g*" "d*" "e*" - "z*" "y*" "h*" "i*" 107 "l*" "m*" "n*" "c*" 111 - "p*" "r*" "*s" "s*" "t*" 117 "f*" "x*" "q*" "w*" - "\"i" "\"u" "'o" "'u" "'w" nil] - ) - ;; Note: some of the characters undefined according to ISO 8859-8 - ;; in the ranges 190..220 and 250..255 are replaced with SI 1311-1 - ;; points (Niqud) and bidi formatting characters - (hebrew-iso8859-8 - . [255 nil "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" - "*x" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" - "'" "u" ".P" "^." "'," "^1" "-:" ">>" "1/4" "1/2" - "3/4" nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'" - "-," "`." nil "\\." "(.)" "|'" "`-" "`=" "||" nil - nil "::" nil nil nil nil nil nil nil "LRO" - "RLO" "PDF" nil "=2" "A+" "B+" "G+" "D+" "H+" "W+" - "Z+" "X+" "Tj" "J+" "K%" "K+" "L+" "M%" "M+" "N%" - "N+" "S+" "E+" "P%" "P+" "Zj" "ZJ" "Q+" "R+" "Sh" - "T+" "LRE" "RLE" "LRM" "RLM" nil] - ) - (latin-iso8859-9 - . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" - "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" - "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" - "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" - "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "G(" "~N" - "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" - "\"U" "I^." ",S" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" - "ae" ",c" "`e" "e'" "e<" "\"e" "e^." "i'" "i^" "i-" - "g(" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" - "u'" "u^" "\"u" "i." ",s" "\"y"] - ) - (latin-iso8859-14 - . [255 "B`" "b`" "Pd" "C`" "c`" "D`" "SE" "`W" "(c)" - "W'" "d`" "`Y" "--" "(R)" "\"Y" "F`" "f`" "G`" "g`" - "M`" "m`" ".P" "P`" "`w" "p`" "w'" "S`" "`y" "\"W" - "\"w" "s`" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" - "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "W^" "~N" - "`O" "O'" "O^" "~O" "\"O" "T`" "/O" "`U" "U'" "U^" - "\"U" "Y'" "Y^" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" - "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" - "w^" "~n" "`o" "o'" "o^" "~o" "\"o" "t`" "/o" "`u" - "u'" "u^" "\"u" "y'" "y^" "\"y"] - ) - (latin-iso8859-15 - . [255 "!I" "|c" "Pd" "E=" "Ye" "S<" "SE" "s<" "(c)" - "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" - "Z<" "u" ".P" "^." "z<" "^1" "_o" ">>" "OE" "oe" - "\"Y" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" - "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N" - "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" - "\"U" "Y'" "|P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" - "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" - "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" - "u'" "u^" "\"u" "y'" "|p" "\"y"] - ) - ) - "An alist of MULE ISO-8859 character sets and the strings that -should be used to represent the characters from each set on a DOS -terminal which does not have corresponding glyphs built into the -installed codepage.") - -(defun IT-display-table-setup (codepage &optional table) - "Set up display table TABLE for a DOS terminal which supports -glyphs built into the codepage CODEPAGE. - -If TABLE is nil or omitted, `standard-display-table' is used." - (let* ((surrogates IT-character-translations) - (disp-tab (or table standard-display-table)) - (built-in-set (cp-charset-for-codepage codepage)) - (offset (cp-offset-for-codepage codepage)) - (cp-decoder - (symbol-value (intern-soft (format "%s-decode-table" codepage)))) - (cp-decoder-len (length cp-decoder)) - (c offset) - association chset) - ;; Undo the effects of previous call (where they may have used - ;; a different codepage) by reverting the display table for the - ;; built-in charset to its pristine shape. - (while (< c 256) - (aset disp-tab (make-char built-in-set c) nil) - (setq c (1+ c))) - (while surrogates - (setq association (car surrogates)) - (setq chset (car association)) - (let* ((vector (cdr association)) - (veclen (length vector)) - (i 0) - glyph) - (while (< i veclen) - (setq glyph (aref vector i)) - (or glyph (setq glyph dos-unsupported-char-glyph)) - (if (or (not (equal chset built-in-set)) - (>= i cp-decoder-len) - (null (aref cp-decoder i))) - (aset disp-tab (make-char chset (+ i (logand offset 127))) - (vconcat - (if (numberp glyph) - (char-to-string glyph) - (if (> (length glyph) 1) (concat "{" glyph "}") - glyph))))) - (setq i (1+ i)))) - (setq surrogates (cdr surrogates))))) - (defvar IT-unicode-translations '( - (mule-unicode-0100-24ff ; charset - 256 ; base - 256 563 ; first, last - [ "A-" "a-" "A(" "a(" "A;" "a;" "C'" "c'" "C>" "c>" ; Latin Extended-A + (160 563 ; first, last + [ 255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" ; Latin-1 + "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" + "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" + "3/4" "?I" "`A" "A'" "A^" "~A" "\"A" "Ao" "AE" ",C" + "`E" "E'" "E^" "\"E" "`I" "I'" "I^" "\"I" "-D" "~N" + "`O" "O'" "O^" "~O" "\"O" "*x" "/O" "`U" "U'" "U^" + "\"U" "Y'" "-P" "ss" "`a" "a'" "a^" "~a" "\"a" "ao" + "ae" ",c" "`e" "e'" "e^" "\"e" "`i" "i'" "i^" "\"i" + "-d" "~n" "`o" "o'" "o^" "~o" "\"o" "-:" "/o" "`u" + "u'" "u^" "\"u" "y'" "-p" "\"y" ; 255 + "A-" "a-" "A(" "a(" "A;" "a;" "C'" "c'" "C>" "c>" ; Latin Extended-A "C." "c." "C<" "c<" "D<" "d<" "D/" "d/" "E-" "e-" "E(" "e(" "E." "e." "E;" "e;" "E<" "e<" "G>" "g>" "G(" "g(" "G." "g." "G," "g," "H>" "h>" "H/" "h/" @@ -330,9 +146,7 @@ ) - (mule-unicode-0100-24ff ; charset - 256 ; base - 884 1123 ; first, last + (884 1123 ; first, last [ "'" "," nil nil nil nil "j3" nil nil nil ; Greek "?;" nil nil nil nil nil "'*" "'%" "A%" ".*" "E%" "Y%" "I%" nil "O%" nil "U%" "W%" "i3" "A*" @@ -359,9 +173,7 @@ "nj" "ts" "kj" "v%" "`i=" "dz" "OM=" "om=" "Y3" "y3"] ; 0x463 ) - (mule-unicode-0100-24ff ; charset - 256 ; base - 1454 1645 ; first, last + (1454 1645 ; first, last [ nil nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'" "-," "`." nil "\\." "(.)" "|'" "`-" nil "||" nil nil "::" nil nil nil nil nil nil nil nil @@ -384,9 +196,7 @@ "6a" "7a" "8a" "9a" "a%" "a." "a," "a*" ] ) - (mule-unicode-0100-24ff ; charset - 256 ; base - 7680 9450 ; first, last + (7680 9450 ; first, last [ "A-0" "a-0" "B." "b." "B-." "b-." "B_" "b_" "C,'" "c,'" ; Lat Ext Add "D." "d." "D-." "d-." "D_" "d_" "D," "d," "D->" "d->" "E-!" "e-!" "E-'" "e-'" "E->" "e->" "E-?" "e-?" "E,(" "e,(" @@ -568,170 +378,70 @@ ) ) - "A list of mule-unicode-* character sets and the strings that -should be used to represent the characters from each set on a DOS -terminal which does not have corresponding glyphs built into the -installed codepage.") + "A list of strings that should be used to represent Unicode +characters on a DOS terminal which does not have corresponding +glyphs built into the installed codepage.") -(defun IT-setup-unicode-display (&optional table) +(defun IT-setup-unicode-display (coding &optional table) "Set up display table TABLE for displaying mule-unicode-* characters -on a DOS terminal. If TABLE is nil or omitted, `standard-display-table' -is used." - (interactive) +on a DOS terminal whose codepage provides the coding-system CODING. +If TABLE is nil or omitted, `standard-display-table' is used." + (interactive "zCode page: ") (let ((disp-tab (or table standard-display-table)) (tail IT-unicode-translations) translation) (while tail (setq translation (car tail) tail (cdr tail)) - (let* ((chset (car translation)) - (base (nth 1 translation)) - (first (nth 2 translation)) - (last (nth 3 translation)) - (table (nth 4 translation)) + (let* ((first (car translation)) + (last (nth 1 translation)) + (table (nth 2 translation)) (i 0) - (this (- first base)) + (this first) glyph) (while (<= i (- last first)) (setq glyph (aref table i)) - (or glyph (setq glyph dos-unsupported-char-glyph)) - (aset disp-tab (make-char chset - (+ (/ this 96) 32) - (+ (% this 96) 32)) - (vconcat - (if (numberp glyph) - (char-to-string glyph) - (if (> (length glyph) 1) (concat "{" glyph "}") - glyph)))) + (when (and glyph + (unencodable-char-position 0 1 coding nil (string this))) + (aset disp-tab this + (vconcat (if (numberp glyph) + (string glyph) + glyph)))) (setq i (1+ i) this (1+ this))))))) -(defun dos-cpNNN-setup (codepage) - "Set up the MULE environment using the DOS codepage CODEPAGE. +(defvar dos-codepage) + +(defun dos-codepage-setup () + "Set up multilingual environment for the installed DOS codepage. + +This function sets coding systems, display tables, and the language +environment options as appropriate for the current value of `dos-codepage'. -This function creates the coding system cpNNN (where NNN is the value -of the argument CODEPAGE), and then uses this coding system to set up -display tables, and the language environment options as appropriate." - (let* ((cp (format "cp%s" codepage)) - (charset (cp-charset-for-codepage cp)) - (offset (cp-offset-for-codepage cp))) - (cp-make-coding-systems-for-codepage cp charset offset) - ;; This is done by set-language-environment. - ;;(setq nonascii-translation-table - ;; (symbol-value (intern (concat cp "-nonascii-translation-table")))) - (set-language-environment (cp-language-for-codepage cp)) - (set-default-coding-systems (intern (concat cp "-dos"))) - (set-selection-coding-system (intern (concat cp "-dos"))) +This function is automatically run at startup via the `after-init-hook' +list. You can (and should) also run it whenever the value of +`dos-codepage' changes." + (interactive) + (let* ((coding (format "cp%s" dos-codepage)) + coding-dos coding-unix) + (setq coding-dos (intern (format "%s-dos" coding)) + coding-unix (intern (format "%s-unix" coding))) + ;(set-language-environment lang) FIXME + (set-default-coding-systems coding-dos) + (set-selection-coding-system coding-dos) + (setq file-name-coding-system coding-unix) (set-terminal-coding-system - (setq default-terminal-coding-system (intern (concat cp - "-unix")))) - (IT-display-table-setup cp) - ;; It's time: too many input methods in leim/quail produce - ;; Unicode characters. Let the user see them. - (IT-setup-unicode-display) - (prefer-coding-system (intern (concat cp "-dos"))) - (if default-enable-multibyte-characters - ;; We want this in multibyte version only, since unibyte version - ;; should not convert non-ASCII characters at all. - (setq unibyte-display-via-language-environment t) - ;; Let the unibyte version behave as Emacs 19 did. In particular, - ;; let it use and display native codepage-specific glyphs for - ;; non-ASCII characters. For this to work correctly, we need to - ;; establish the correspondence between lower-case letters and their - ;; upper-case brethren, as appropriate for the codepage in use. The - ;; code below makes this happen. - ;; (In the multibyte mode, the appropriate tables are prepared - ;; elsewhere, since multibyte Emacs uses normal MULE character sets, - ;; which are supported on all platforms.) - (let* ((i 128) - (modify (function - (lambda (ch sy) - (modify-syntax-entry ch sy text-mode-syntax-table) - (if (boundp 'tex-mode-syntax-table) - (modify-syntax-entry ch sy tex-mode-syntax-table)) - (modify-syntax-entry ch sy (standard-syntax-table)) - ))) - (table (standard-case-table)) - ;; The following are strings of letters, first lower then - ;; upper case. This will look funny on terminals which - ;; display other code pages. In particular, what is - ;; displayed as blanks or triangles are not what they - ;; look like at all! (Use `C-x =' to see what they - ;; really are.) - (chars - (cond - ((= codepage 850) - "ķ ·ÆĮ ĩŌÓÔØŨÞĄÖâãĒāęĢéëYėíĄIĢéĪĨÐŅįč") - ((= codepage 865) - "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ") - ;; default is 437 - (t "A AEEEIIIOOUĢUY AĄIĒOĢUĪĨ")))) - - (while (< i 256) - (funcall modify i "_") - (setq i (1+ i))) - - (setq i 0) - (while (< i (length chars)) - (let ((ch1 (aref chars i)) - (ch2 (aref chars (1+ i)))) - (if (> ch2 127) - (set-case-syntax-pair ch2 ch1 table)) - (setq i (+ i 2)))) - (save-excursion - (mapcar (lambda (b) (set-buffer b) (set-case-table table)) - (buffer-list))) - (set-standard-case-table table))) + (setq default-terminal-coding-system coding-unix)) + (IT-setup-unicode-display coding-unix) + (prefer-coding-system coding-dos) + (and default-enable-multibyte-characters + (setq unibyte-display-via-language-environment t)) ;; Some codepages have sporadic support for Latin-1, Greek, and ;; symbol glyphs, which don't belong to their native character ;; set. It's a nuisance to have all those glyphs here, for all ;; the codepages (for starters, I don't even have references for - ;; all the codepages). So I provide a hook for those who want to + ;; all the codepages). So provide a hook for those who want to ;; squeeze every bit of support out of their terminal/font. (run-hooks 'dos-codepage-setup-hook) )) -(defvar cjk-codepages-alist - '((932 "Japanese" japanese-shift-jis) - (950 "Chinese-BIG5" cn-big5) - (936 "Chinese-GB" cn-gb-2312) - (949 "Korean" euc-kr)) - "An alist of Far-Eastern codepages and the names of the associated -language and supported coding system.") - -(defun dos-codepage-setup () - "Set up the MULE environment as appropriate for the installed DOS codepage. - -This function sets coding systems, display tables, and the language -environment options as appropriate for the current value of `dos-codepage'. - -This function is automatically run at startup via the `term-setup-hook' -list. You can (and should) also run it whenever the value of -`dos-codepage' changes." - (interactive) - (let* ((desc (cdr (assq dos-codepage cjk-codepages-alist))) - (lang (car desc)) - (coding (car (cdr desc))) - coding-dos coding-unix) - (if (null desc) - (ignore) ; (dos-cpNNN-setup dos-codepage)) FIXME - ;; We've got one of the Far-Eastern codepages which support - ;; MULE native coding systems directly. - (setq coding-dos (intern (format "%s-dos" coding)) - coding-unix (intern (format "%s-unix" coding))) - (set-language-environment lang) - (set-selection-coding-system coding-dos) - (setq file-name-coding-system coding-unix) - (set-terminal-coding-system - (setq default-terminal-coding-system coding-unix)) - ;; Assume they support non-ASCII Latin characters like the IBM - ;; codepage 437 does. - ;(IT-display-table-setup "cp437") - ;; It's time: too many input methods in leim/quail produce - ;; Unicode characters. Let the user see them. - ;(IT-setup-unicode-display) - (prefer-coding-system coding-dos) - (if default-enable-multibyte-characters - (setq unibyte-display-via-language-environment t)) - ))) - ;; arch-tag: eea04c06-7311-4b5a-b531-3c1be1b070af ;;; internal.el ends here