Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95aef8d1ae8be4ad393713a5227ed88e7e5ddec5..982ea7166894eec3b2eb99a5dd6c379572a0b12f 100644 (file)
--- 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 d7eae5ed4590964b0c6ee1d955635700bc83ab9d..e26364e468a6e72c2e678011dc7ddc98dc516026 100644 (file)
--- 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."
         (?\e(1x\e(B . ?\e$,1Dx\e(B)
         (?\e(1y\e(B . ?\e$,1Dy\e(B)
         (?\e(1|\e(B . ?\e$,1D|\e(B)
-        (?\e(1}\e(B . ?\e$,1D}\e(B))
+        (?\e(1}\e(B . ?\e$,1D}\e(B)))
        
-       (other
-       ;; latin-jisx0201 is mostly decoded to ascii, with these
-       ;; exceptions, so we don't bother with tables for the whole
-       ;; thing.
-       (?\e(J\\e(B . ?\e,A%\e(B)
-       (?\e(J~\e(B . ?\e$,1s>\e(B))))
+      (other
+       '(
+        ;; latin-jisx0201 is mostly decoded to ascii, with these
+        ;; exceptions, so we don't bother with tables for the whole
+        ;; thing.
+        (?\e(J\\e(B . ?\e,A%\e(B)
+        (?\e(J~\e(B . ?\e$,1s>\e(B))))
   (let ((table (make-char-table 'safe-chars))
        safe-charsets)
     (dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa