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

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

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index 0ee7fc940283ec831658e9d7eee8ab2bde103dc7..f952b7817a436c2545188ffd881b2559e10077aa 100644 (file)
--- 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)
        (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
        (when (char-table-p table)
          (if buffer
              (with-current-buffer buffer