# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1072231780 0
# Node ID a8d654e3dbcbdf7615b0e01c3920cfd085ed0706
# Parent  b18fd10266de2e28b87829a49b0093dfbd22aa60
(ucs-set-table-for-input): If
translation-table-for-encode is a symbol, get its
translation-table property.

diff -r b18fd10266de -r a8d654e3dbcb lisp/international/ucs-tables.el
--- a/lisp/international/ucs-tables.el	Wed Dec 24 02:08:54 2003 +0000
+++ b/lisp/international/ucs-tables.el	Wed Dec 24 02:09:40 2003 +0000
@@ -2507,6 +2507,8 @@
 		     (coding-system-base default-buffer-file-coding-system))))
       (when cs
 	(setq table (coding-system-get cs 'translation-table-for-encode))
+	(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)))
 	(when (char-table-p table)