Mercurial > emacs

diff lisp/international/ucs-tables.el @ 62796:bd02ca99bb04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ucs-set-table-for-input): If translation-table-for-input of a coding system is a symbol, get its translation-table property.
author Kenichi Handa <handa@m17n.org>
date Fri, 27 May 2005 11:21:36 +0000
parents c36561fe0657
children f6bd5d0552dd
line wrap: on
line diff
--- a/lisp/international/ucs-tables.el	Fri May 27 11:20:16 2005 +0000
+++ b/lisp/international/ucs-tables.el	Fri May 27 11:21:36 2005 +0000
@@ -2517,7 +2517,9 @@
 	(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