Mercurial > emacs

comparison lisp/term/internal.el @ 38947:0d25e59f6139

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(IT-character-translations) <hebrew-iso8859-8>: Replace some of the undefined characters with emulations of bidi formatting characters and Niqud as per SI 1311-1. (IT-unicode-translations): Ditto. (IT-display-table-setup, IT-setup-unicode-display): Fill characters without translations with dos-unsupported-char-glyph.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 25 Aug 2001 12:30:28 +0000
parents 87e8d03a2dab
children e4db08d8d79e
comparison
equal deleted inserted replaced
38946:9a1045bcf43c 38947:0d25e59f6139
173 "a%" "e%" "y%" "i%" "u3" "a*" "b*" "g*" "d*" "e*" 173 "a%" "e%" "y%" "i%" "u3" "a*" "b*" "g*" "d*" "e*"
174 "z*" "y*" "h*" "i*" 107 "l*" "m*" "n*" "c*" 111 174 "z*" "y*" "h*" "i*" 107 "l*" "m*" "n*" "c*" 111
175 "p*" "r*" "*s" "s*" "t*" 117 "f*" "x*" "q*" "w*" 175 "p*" "r*" "*s" "s*" "t*" 117 "f*" "x*" "q*" "w*"
176 "\"i" "\"u" "'o" "'u" "'w" nil] 176 "\"i" "\"u" "'o" "'u" "'w" nil]
177 ) 177 )
178 ;; Note: some of the characters undefined according to ISO 8859-8
179 ;; in the ranges 190..220 and 250..255 are replaced with SI 1311-1
180 ;; points (Niqud) and bidi formatting characters
178 (hebrew-iso8859-8 181 (hebrew-iso8859-8
179 . [255 nil "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" 182 . [255 nil "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)"
180 "*x" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" 183 "*x" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
181 "'" "u" ".P" "^." "'," "^1" "-:" ">>" "1/4" "1/2" 184 "'" "u" ".P" "^." "'," "^1" "-:" ">>" "1/4" "1/2"
182 "3/4" nil nil nil nil nil nil nil nil nil 185 "3/4" nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'"
183 nil nil nil nil nil nil nil nil nil nil 186 "-," "`." nil "\\." "(.)" "|'" "`-" nil "||" nil
184 nil nil nil nil nil nil nil nil nil nil 187 nil "::" nil nil nil nil nil nil nil "LRO"
185 nil nil nil "=2" "A+" "B+" "G+" "D+" "H+" "W+" 188 "RLO" "PDF" nil "=2" "A+" "B+" "G+" "D+" "H+" "W+"
186 "Z+" "X+" "Tj" "J+" "K%" "K+" "L+" "M%" "M+" "N%" 189 "Z+" "X+" "Tj" "J+" "K%" "K+" "L+" "M%" "M+" "N%"
187 "N+" "S+" "E+" "P%" "P+" "Zj" "ZJ" "Q+" "R+" "Sh" 190 "N+" "S+" "E+" "P%" "P+" "Zj" "ZJ" "Q+" "R+" "Sh"
188 "T+" nil nil nil nil nil] 191 "T+" "LRE" "RLE" "LRM" "RLM" nil]
189 ) 192 )
190 (latin-iso8859-9 193 (latin-iso8859-9
191 . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)" 194 . [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)"
192 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3" 195 "_a" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
193 "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2" 196 "'" "u" ".P" "^." "'," "^1" "_o" ">>" "1/4" "1/2"
256 (veclen (length vector)) 259 (veclen (length vector))
257 (i 0) 260 (i 0)
258 glyph) 261 glyph)
259 (while (< i veclen) 262 (while (< i veclen)
260 (setq glyph (aref vector i)) 263 (setq glyph (aref vector i))
261 (if (and glyph 264 (or glyph (setq glyph dos-unsupported-char-glyph))
262 (or (not (equal chset built-in-set)) 265 (if (or (not (equal chset built-in-set))
263 (>= i cp-decoder-len) 266 (>= i cp-decoder-len)
264 (null (aref cp-decoder i)))) 267 (null (aref cp-decoder i)))
265 (aset disp-tab (make-char chset (+ i (logand offset 127))) 268 (aset disp-tab (make-char chset (+ i (logand offset 127)))
266 (vconcat 269 (vconcat
267 (if (numberp glyph) 270 (if (numberp glyph)
268 (char-to-string glyph) 271 (char-to-string glyph)
269 (if (> (length glyph) 1) (concat "{" glyph "}") 272 (if (> (length glyph) 1) (concat "{" glyph "}")
339 "nj" "ts" "kj" "v%" "`i=" "dz" "OM=" "om=" "Y3" "y3"] ; 0x463 342 "nj" "ts" "kj" "v%" "`i=" "dz" "OM=" "om=" "Y3" "y3"] ; 0x463
340 ) 343 )
341 344
342 (mule-unicode-0100-24ff ; charset 345 (mule-unicode-0100-24ff ; charset
343 256 ; base 346 256 ; base
344 1488 1645 ; first, last 347 1454 1645 ; first, last
345 [ "A+" "B+" "G+" "D+" "H+" "W+" "Z+" "X+" "Tj" "J+" ; Hebrew 348 [ nil nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'"
349 "-," "`." nil "\\." "(.)" "|'" "`-" nil "||" nil
350 nil "::" nil nil nil nil nil nil nil nil
351 nil nil nil nil
352 "A+" "B+" "G+" "D+" "H+" "W+" "Z+" "X+" "Tj" "J+" ; Hebrew
346 "K%" "K+" "L+" "M%" "M+" "N%" "N+" "S+" "E+" "P%" 353 "K%" "K+" "L+" "M%" "M+" "N%" "N+" "S+" "E+" "P%"
347 "P+" "Zj" "ZJ" "Q+" "R+" "Sh" "T+" nil nil nil 354 "P+" "Zj" "ZJ" "Q+" "R+" "Sh" "T+" nil nil nil
348 nil nil "WW+" "WJ+" "JJ+" "'+" "\"+" nil nil nil 355 nil nil "WW+" "WJ+" "JJ+" "'+" "\"+" nil nil nil
349 nil nil nil nil nil nil nil nil nil nil 356 nil nil nil nil nil nil nil nil nil nil
350 nil nil nil nil nil nil nil nil nil nil 357 nil nil nil nil nil nil nil nil nil nil
567 (i 0) 574 (i 0)
568 (this (- first base)) 575 (this (- first base))
569 glyph) 576 glyph)
570 (while (<= i (- last first)) 577 (while (<= i (- last first))
571 (setq glyph (aref table i)) 578 (setq glyph (aref table i))
572 (if glyph 579 (or glyph (setq glyph dos-unsupported-char-glyph))
573 (aset disp-tab (make-char chset 580 (aset disp-tab (make-char chset
574 (+ (/ this 96) 32) 581 (+ (/ this 96) 32)
575 (+ (% this 96) 32)) 582 (+ (% this 96) 32))
576 (vconcat 583 (vconcat
577 (if (numberp glyph) 584 (if (numberp glyph)
578 (char-to-string glyph) 585 (char-to-string glyph)
579 (if (> (length glyph) 1) (concat "{" glyph "}") 586 (if (> (length glyph) 1) (concat "{" glyph "}")
580 glyph))))) 587 glyph))))
581 (setq i (1+ i) this (1+ this))))))) 588 (setq i (1+ i) this (1+ this)))))))
582 589
583 (defun dos-cpNNN-setup (codepage) 590 (defun dos-cpNNN-setup (codepage)
584 "Set up the MULE environment using the DOS codepage CODEPAGE. 591 "Set up the MULE environment using the DOS codepage CODEPAGE.
585 592