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.
This commit is contained in:
Eli Zaretskii
parent
db7a4b661b
commit
ff58641318
2 changed files with 74 additions and 352 deletions
|
|
@ -1,5 +1,17 @@
|
|||
2008-09-30 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
* term/internal.el: 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.
|
||||
|
||||
* files.el (locate-dominating-file): Wrap directory-files with
|
||||
condition-case, instead of calling file-directory-p, which stats
|
||||
the directory one more time.
|
||||
|
|
|
|||
|
|
@ -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 @@ If TABLE is nil or omitted, `standard-display-table' is used."
|
|||
|
||||
)
|
||||
|
||||
(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 @@ If TABLE is nil or omitted, `standard-display-table' is used."
|
|||
"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 @@ If TABLE is nil or omitted, `standard-display-table' is used."
|
|||
"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 @@ If TABLE is nil or omitted, `standard-display-table' is used."
|
|||
)
|
||||
)
|
||||
|
||||
"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.
|
||||
|
||||
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")))
|
||||
(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)
|
||||
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>匸聣<EFBFBD>仫𥹉礻龭渕＞<EFBFBD>𣏾<EFBFBD>𨰻Ｒ<EFBFBD>佲<EFBFBD>𤩱暚擨！<EFBFBD>丰倳賥")
|
||||
((= codepage 865)
|
||||
"<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𠄌<EFBFBD>𥄫𡃇䬠𪆵<EFBFBD>幈<EFBFBD>笧𨯅Σ暚<EFBFBD>鼦！㏕Σ丰")
|
||||
;; default is 437
|
||||
(t "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𠄌<EFBFBD>𥄫𡃇䬠𪆵<EFBFBD>幈<EFBFBD>笧𨯅Σ暚鼦！㏕Σ丰"))))
|
||||
|
||||
(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)))
|
||||
;; 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
|
||||
;; 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.")
|
||||
(defvar dos-codepage)
|
||||
|
||||
(defun dos-codepage-setup ()
|
||||
"Set up the MULE environment as appropriate for the installed DOS codepage.
|
||||
"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 is automatically run at startup via the `term-setup-hook'
|
||||
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* ((desc (cdr (assq dos-codepage cjk-codepages-alist)))
|
||||
(lang (car desc))
|
||||
(coding (car (cdr desc)))
|
||||
(let* ((coding (format "cp%s" dos-codepage))
|
||||
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))
|
||||
)))
|
||||
(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 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 provide a hook for those who want to
|
||||
;; squeeze every bit of support out of their terminal/font.
|
||||
(run-hooks 'dos-codepage-setup-hook)
|
||||
))
|
||||
|
||||
;; arch-tag: eea04c06-7311-4b5a-b531-3c1be1b070af
|
||||
;;; internal.el ends here
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue