Add latin-jisx0201 characters. Fix

translation-table-for-input for lao, thai, tibetan.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de1e4efaf0d0de9f49c26931b04aa5da4181e452..ed2a7af64a6ee96b2a46a3c0b03c4df8ba2e3e0f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-08  Dave Love  <fx@gnu.org>
+
+       * international/ucs-tables.el: Add latin-jisx0201 characters.  Fix
+       translation-table-for-input for lao, thai, tibetan.
+
 2002-12-08  Andreas Schwab  <schwab@suse.de>
 
        * files.el (insert-directory): Insert free space only when
@@ -284,8 +289,9 @@
 
 2002-12-02  Fran\e,Ag\e(Bois Pinard  <pinard@iro.umontreal.ca>
 
-       * (makefile-font-lock-keywords): Highlight more make keywords:
-       defined, endef, override, export, unexport and vpath.
+       * progmodes/make-mode.el (makefile-font-lock-keywords): Highlight
+       more make keywords:  defined, endef, override, export, unexport
+       and vpath.
 
 2002-12-02  Dave Love  <fx@gnu.org>
 

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index 6380e7addbfa3d0a1c27803783e6c8f95045badc..d7eae5ed4590964b0c6ee1d955635700bc83ab9d 100644 (file)
--- a/lisp/international/ucs-tables.el
+++ b/lisp/international/ucs-tables.el
@@ -2416,12 +2416,19 @@ Interactively, prompts for a hex string giving the code."
         (?\e(1x\e(B . ?\e$,1Dx\e(B)
         (?\e(1y\e(B . ?\e$,1Dy\e(B)
         (?\e(1|\e(B . ?\e$,1D|\e(B)
-        (?\e(1}\e(B . ?\e$,1D}\e(B))))
+        (?\e(1}\e(B . ?\e$,1D}\e(B))
+       
+       (other
+       ;; latin-jisx0201 is mostly decoded to ascii, with these
+       ;; exceptions, so we don't bother with tables for the whole
+       ;; thing.
+       (?\e(J\\e(B . ?\e,A%\e(B)
+       (?\e(J~\e(B . ?\e$,1s>\e(B))))
   (let ((table (make-char-table 'safe-chars))
        safe-charsets)
     (dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa
                  katakana-jisx0201 thai-tis620 tibetan-iso-8bit
-                 indian-is13194 ethiopic))
+                 indian-is13194 ethiopic other))
       ;; These tables could be used as translation-table-for-encode by
       ;; the relevant coding systems.
       (let ((encode-translator
@@ -2447,7 +2454,8 @@ Interactively, prompts for a hex string giving the code."
                                  'translation-table-for-input
                                  encode-translator))
              ((memq cs '(lao thai-tis620 tibetan-iso-8bit))
-              (coding-system-put cs 'translation-table-for-input cs)))))
+              (coding-system-put cs 'translation-table-for-input
+                                 encode-translator)))))
     (dolist (c safe-charsets)
       (aset table (make-char c) t))))