From cf8f0b68f277d60d8c14d5023510edb97dfcaf38 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 25 Aug 2001 12:31:18 +0000 Subject: [PATCH] (IT-character-translations) : 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. --- lisp/ChangeLog | 9 +++++++++ lisp/term/internal.el | 47 +++++++++++++++++++++++++++-------------------- 2 files changed, 36 insertions(+), 20 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 226aea94726..a69502f41e3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2001-08-24 Eli Zaretskii + + * term/internal.el (IT-character-translations) : + 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 * hl-line.el (hl-line-mode): Don't be a global mode. diff --git a/lisp/term/internal.el b/lisp/term/internal.el index adf0583b1ba..2c7076264cd 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el @@ -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) -- 2.11.4.GIT