From: Dave Love <fx@gnu.org>
Date: Sun, 8 Dec 2002 18:59:46 +0000 (+0000)
Subject: Add latin-jisx0201 characters.  Fix
X-Git-Tag: ttn-vms-21-2-B4~12085
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad7c69e78798a4531742e7ed98770fbe5ffb45fc;p=emacs.git

Add latin-jisx0201 characters.  Fix
translation-table-for-input for lao, thai, tibetan.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de1e4efaf0d..ed2a7af64a6 100644
--- 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,Ag(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 6380e7addbf..d7eae5ed459 100644
--- 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."
 	 (?(1x(B . ?$,1Dx(B)
 	 (?(1y(B . ?$,1Dy(B)
 	 (?(1|(B . ?$,1D|(B)
-	 (?(1}(B . ?$,1D}(B))))
+	 (?(1}(B . ?$,1D}(B))
+       
+       (other
+	;; latin-jisx0201 is mostly decoded to ascii, with these
+	;; exceptions, so we don't bother with tables for the whole
+	;; thing.
+	(?(J\(B . ?,A%(B)
+	(?(J~(B . ?$,1s>(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))))