martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(ucs-set-table-for-input): If

Browse Source 
translation-table-for-input of a coding system is a symbol, get
its translation-table property.
This commit is contained in:
Kenichi Handa
2005-05-27 11:21:36 +00:00
parent 848613f869
commit 514eb97bbf
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/international/ucs-tables.el
View File

@@ -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