From: Kenichi Handa Date: Fri, 27 May 2005 11:21:36 +0000 (+0000) Subject: (ucs-set-table-for-input): If X-Git-Tag: emacs-pretest-22.0.90~9500 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=514eb97bbf3ed6ed9bf799efd8fc63591678c1ff;p=emacs.git (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 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