diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-05-27 11:21:36 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-05-27 11:21:36 +0000 |
| commit | 514eb97bbf3ed6ed9bf799efd8fc63591678c1ff (patch) | |
| tree | d455f0587f4c3d70f8d13035998fcd6579eacac5 /lisp/international | |
| parent | 848613f8691dfab1b9e4de0b0a7a3254d9e00fb4 (diff) | |
| download | emacs-514eb97bbf3ed6ed9bf799efd8fc63591678c1ff.tar.gz | |
(ucs-set-table-for-input): If
translation-table-for-input of a coding system is a symbol, get
its translation-table property.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/ucs-tables.el | 4 |
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 |