(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index ff37dddad7797a6d45fb6b075bd5c03e1ffa5389..8b8364d3c2cb5dfd4e6702adaa78eb35c86446e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-04-16  Kenichi Handa  <handa@m17n.org>
+
+       * international/code-pages.el (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 `\'.
+
 2005-04-15  Luc Teirlinck  <teirllm@auburn.edu>
 
        * loadup.el: Load tooltip if x-show-tip is fboundp.

diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el
index 112f9ac83d2059b009248c5d666a1e4d907eae0e..7cd92e58aa5a5917510b549d920f53fea9b2b06e 100644 (file)
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -189,7 +189,7 @@ Return an updated `non-iso-charset-alist'."
              ;; 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 @@ Return an updated `non-iso-charset-alist'."
  pt154
  [?Җ ?Ғ ?Ӯ ?ғ ?„ ?… ?Ҷ ?Ү ?Ҳ ?ү ?Ҡ ?Ӣ ?Ң ?Қ ?Һ ?Ҹ ?җ ?‘ ?’ ?“ ?” ?• ?–
   ?— ?ҳ ?ҷ ?ҡ ?ӣ ?ң ?қ ?һ ?ҹ ?  ?Ў ?ў ?Ј ?Ө ?Ҙ ?Ұ ?§ ?Ё ?© ?Ә ?\« ?¬ ?ӯ
-  ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д
+  ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?\» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д
   ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч ?Ш ?Щ ?Ъ ?Ы
   ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о ?п ?р ?с ?т
   ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])