Fix last change.

2 files changed, 12 insertions, 7 deletions

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  <schwab@suse.de>
+
+        * international/ucs-tables.el: Fix last change.
+
 2002-12-09  Kenichi Handa  <handa@m17n.org>
 
         * 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