Mercurial > emacs
changeset 53263:a8d654e3dbcb
(ucs-set-table-for-input): If
translation-table-for-encode is a symbol, get its
translation-table property.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 24 Dec 2003 02:09:40 +0000 |
| parents | b18fd10266de |
| children | 90e1935c666c |
| files | lisp/international/ucs-tables.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)