From: Andreas Schwab Date: Mon, 9 Dec 2002 15:55:32 +0000 (+0000) Subject: Fix last change. X-Git-Tag: ttn-vms-21-2-B4~12074 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=034d21fe42133b76792464f182977f5216f1172b;p=emacs.git Fix last change. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 95aef8d1ae8..982ea716689 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-12-09 Andreas Schwab + + * international/ucs-tables.el: Fix last change. + 2002-12-09 Kenichi Handa * international/titdic-cnv.el (titdic-convert): Process the diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index d7eae5ed459..e26364e468a 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el @@ -2416,14 +2416,15 @@ 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)))) + (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