mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues 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