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