(ucs-set-table-for-input): If

translation-table-for-input of a coding system is a symbol, get
its translation-table property.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index 0ee7fc94028..f952b7817a4 100644
--- a/lisp/international/ucs-tables.el
+++ b/lisp/international/ucs-tables.el
@@ -2517,7 +2517,9 @@ This function is automatically called directly at the end of `get-buffer-create'
         (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