# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1113615089 0
# Node ID 4b5610d9b02e2784e1083b7716ffc5f60604e584
# Parent  b6b7474dd68b124cbe3291165fb4994050a67731
(cp-make-coding-system): Set
`translation-table-for-input' property value to the symbol
ucs-mule-to-mule-unicode, not to that value.
(pt154): Escape guillemet by `\'.

diff -r b6b7474dd68b -r 4b5610d9b02e lisp/international/code-pages.el
--- a/lisp/international/code-pages.el	Sat Apr 16 00:38:31 2005 +0000
+++ b/lisp/international/code-pages.el	Sat Apr 16 01:31:29 2005 +0000
@@ -189,7 +189,7 @@
 	      ;; For Quail translation.  Fixme: this should really be
 	      ;; a separate table that only translates the coding
 	      ;; system's safe-chars.
-	      (cons 'translation-table-for-input ,ucs-mule-to-mule-unicode)))
+	      (cons 'translation-table-for-input 'ucs-mule-to-mule-unicode)))
        (push (list ',name
 		   nil			; charset list
 		   ',decoder
@@ -4475,7 +4475,7 @@
  pt154
  [?Җ ?Ғ ?Ӯ ?ғ ?„ ?… ?Ҷ ?Ү ?Ҳ ?ү ?Ҡ ?Ӣ ?Ң ?Қ ?Һ ?Ҹ ?җ ?‘ ?’ ?“ ?” ?• ?–
   ?— ?ҳ ?ҷ ?ҡ ?ӣ ?ң ?қ ?һ ?ҹ ?  ?Ў ?ў ?Ј ?Ө ?Ҙ ?Ұ ?§ ?Ё ?© ?Ә ?\« ?¬ ?ӯ
-  ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д
+  ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?\» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д
   ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч ?Ш ?Щ ?Ъ ?Ы
   ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о ?п ?р ?с ?т
   ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])