# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1117192896 0
# Node ID bd02ca99bb046e503da3013298cc48dd11cab7c5
# Parent  9b285ff39db28ed0c4266e9591e1d68bba3ff193
(ucs-set-table-for-input): If
translation-table-for-input of a coding system is a symbol, get
its translation-table property.

diff -r 9b285ff39db2 -r bd02ca99bb04 lisp/international/ucs-tables.el
--- a/lisp/international/ucs-tables.el	Fri May 27 11:20:16 2005 +0000
+++ b/lisp/international/ucs-tables.el	Fri May 27 11:21:36 2005 +0000
@@ -2517,7 +2517,9 @@
 	(if (and table (symbolp table))
 	    (setq table (get table 'translation-table)))
 	(unless (char-table-p table)
-	  (setq table (coding-system-get cs 'translation-table-for-input)))
+	  (setq table (coding-system-get cs 'translation-table-for-input))
+	  (if (and table (symbolp table))
+	      (setq table (get table 'translation-table))))
 	(when (char-table-p table)
 	  (if buffer
 	      (with-current-buffer buffer