# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1039449323 0
# Node ID 7fbdce538f4ab11078d676259806370a665d913c
# Parent  4a69081f2ff4b0a6ddecab9eba4f98e9cbba5851
Fix last change.

diff -r 4a69081f2ff4 -r 7fbdce538f4a lisp/international/ucs-tables.el
--- a/lisp/international/ucs-tables.el	Mon Dec 09 10:44:25 2002 +0000
+++ b/lisp/international/ucs-tables.el	Mon Dec 09 15:55:23 2002 +0000
@@ -2416,14 +2416,15 @@
 	 (?(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