From 5f400376f0092ad45c9792671ab55343f604a4bb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 16 Apr 2005 01:32:21 +0000 Subject: [PATCH] (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 `\'. --- lisp/ChangeLog | 7 +++++++ lisp/international/code-pages.el | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ff37dddad77..8b8364d3c2c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2005-04-16 Kenichi Handa + + * 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 * 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 112f9ac83d2..7cd92e58aa5 100644 --- 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 [?Җ ?Ғ ?Ӯ ?ғ ?„ ?… ?Ҷ ?Ү ?Ҳ ?ү ?Ҡ ?Ӣ ?Ң ?Қ ?Һ ?Ҹ ?җ ?‘ ?’ ?“ ?” ?• ?– ?— ?ҳ ?ҷ ?ҡ ?ӣ ?ң ?қ ?һ ?ҹ ?  ?Ў ?ў ?Ј ?Ө ?Ҙ ?Ұ ?§ ?Ё ?© ?Ә ?\« ?¬ ?ӯ - ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д + ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?\» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч ?Ш ?Щ ?Ъ ?Ы ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о ?п ?р ?с ?т ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я]) -- 2.39.2