Mercurial > emacs
changeset 42300:be77d8bfb8ed
(dos-cpNNN-setup, dos-codepage-setup):
Call IT-setup-unicode-display here instead of adding it to
dos-codepage-setup-hook, so that Unicode display tables are set
before dos-codepage-setup-hook runs.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 24 Dec 2001 16:52:50 +0000 |
| parents | 4bc3e5620674 |
| children | 2d1a5980a302 |
| files | lisp/term/internal.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/internal.el Mon Dec 24 16:39:39 2001 +0000 +++ b/lisp/term/internal.el Mon Dec 24 16:52:50 2001 +0000 @@ -607,6 +607,9 @@ (setq default-terminal-coding-system (intern (concat cp "-unix")))) (IT-display-table-setup cp) + ;; It's time: too many input methods in leim/quail produce + ;; Unicode characters. Let the user see them. + (IT-setup-unicode-display) (prefer-coding-system (intern (concat cp "-dos"))) (if default-enable-multibyte-characters ;; We want this in multibyte version only, since unibyte version @@ -705,6 +708,9 @@ ;; Assume they support non-ASCII Latin characters like the IBM ;; codepage 437 does. (IT-display-table-setup "cp437") + ;; It's time: too many input methods in leim/quail produce + ;; Unicode characters. Let the user see them. + (IT-setup-unicode-display) (prefer-coding-system coding-dos) (if default-enable-multibyte-characters (setq unibyte-display-via-language-environment t)) @@ -714,9 +720,6 @@ ;; until after the terminal is set and user's .emacs is processed, ;; because people might define their `dos-codepage-setup-hook' there. (add-hook 'term-setup-hook 'dos-codepage-setup) -;; It's time: too many input methods in leim/quail produce -;; Unicode characters. Let the user see them. -(add-hook 'term-setup-hook 'IT-setup-unicode-display t) ;; In multibyte mode, we want unibyte buffers to be displayed using ;; the terminal coding system, so that they display correctly on the