(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 226aea947267854ef3db3e1be75cad463431dc5a..a69502f41e362cc9d5a6a73b1b5f7d69e84480b1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+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.

diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index adf0583b1ba6a1e2a16d396db5ee946b261018b1..2c7076264cd39a43dbd78b100d137c27fcc2c4da 100644 (file)
--- 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)