2517 |
(if (and table (symbolp table)) |
(if (and table (symbolp table)) |
2518 |
(setq table (get table 'translation-table))) |
(setq table (get table 'translation-table))) |
2519 |
(unless (char-table-p table) |
(unless (char-table-p table) |
2520 |
(setq table (coding-system-get cs 'translation-table-for-input))) |
(setq table (coding-system-get cs 'translation-table-for-input)) |
2521 |
|
(if (and table (symbolp table)) |
2522 |
|
(setq table (get table 'translation-table)))) |
2523 |
(when (char-table-p table) |
(when (char-table-p table) |
2524 |
(if buffer |
(if buffer |
2525 |
(with-current-buffer buffer |
(with-current-buffer buffer |