# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1042653012 0
# Node ID 7d1c850ef43a8048740365fe29170ed6fd9647d2
# Parent  cc4646701e9930af20cd1f3edfdd05f9cc30ad9b
Set up tables for 8859-6.

diff -r cc4646701e99 -r 7d1c850ef43a lisp/international/ucs-tables.el
--- a/lisp/international/ucs-tables.el	Wed Jan 15 17:49:32 2003 +0000
+++ b/lisp/international/ucs-tables.el	Wed Jan 15 17:50:12 2003 +0000
@@ -1111,7 +1111,7 @@
 
   ;; Derive tables that can be used as per-coding-system
   ;; `translation-table-for-encode's.
-  (dolist (n (list 15 14 9 8 7 5 4 3 2 1))
+  (dolist (n (list 15 14 9 8 7 6 5 4 3 2 1))
     (let* ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))
 	   (encode-translator (set (intern (format "ucs-8859-%d-encode-table"
 						   n))