Commit cf8f0b68 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(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.
parent 9198a323
2001-08-24 Eli Zaretskii <eliz@is.elta.co.il>
* term/internal.el (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.
2001-08-24 Simon Josefsson <jas@extundo.com>
 
* hl-line.el (hl-line-mode): Don't be a global mode.
......
......@@ -175,17 +175,20 @@
"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 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 nil
nil nil nil "=2" "A+" "B+" "G+" "D+" "H+" "W+"
"3/4" nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'"
"-," "`." nil "\\." "(.)" "|'" "`-" 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+" nil nil nil nil nil]
"T+" "LRE" "RLE" "LRM" "RLM" nil]
)
(latin-iso8859-9
. [255 "!I" "|c" "Pd" "$$" "Ye" "|" "SE" "\"" "(c)"
......@@ -258,10 +261,10 @@ If TABLE is nil or omitted, `standard-display-table' is used."
glyph)
(while (< i veclen)
(setq glyph (aref vector i))
(if (and glyph
(or (not (equal chset built-in-set))
(>= i cp-decoder-len)
(null (aref cp-decoder 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)
......@@ -341,8 +344,12 @@ If TABLE is nil or omitted, `standard-display-table' is used."
(mule-unicode-0100-24ff ; charset
256 ; base
1488 1645 ; first, last
[ "A+" "B+" "G+" "D+" "H+" "W+" "Z+" "X+" "Tj" "J+" ; Hebrew
1454 1645 ; first, last
[ nil nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'"
"-," "`." nil "\\." "(.)" "|'" "`-" nil "||" nil
nil "::" nil nil nil nil nil nil nil nil
nil nil nil nil
"A+" "B+" "G+" "D+" "H+" "W+" "Z+" "X+" "Tj" "J+" ; Hebrew
"K%" "K+" "L+" "M%" "M+" "N%" "N+" "S+" "E+" "P%"
"P+" "Zj" "ZJ" "Q+" "R+" "Sh" "T+" nil nil nil
nil nil "WW+" "WJ+" "JJ+" "'+" "\"+" nil nil nil
......@@ -569,15 +576,15 @@ is used."
glyph)
(while (<= i (- last first))
(setq glyph (aref table i))
(if 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)))))
(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))))
(setq i (1+ i) this (1+ this)))))))
(defun dos-cpNNN-setup (codepage)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment