Index: emacs/lisp/international/ucs-tables.el
diff -c emacs/lisp/international/ucs-tables.el:1.39
emacs/lisp/international/ucs-tables.el:1.40
*** emacs/lisp/international/ucs-tables.el:1.39 Fri May 13 06:03:46 2005
--- emacs/lisp/international/ucs-tables.el Fri May 27 11:21:36 2005
***************
*** 2517,2523 ****
(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)))
(when (char-table-p table)
(if buffer
(with-current-buffer buffer
--- 2517,2525 ----
(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))
! (if (and table (symbolp table))
! (setq table (get table 'translation-table))))
(when (char-table-p table)
(if buffer
(with-current-buffer buffer
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
