607 |
(setq default-terminal-coding-system (intern (concat cp |
(setq default-terminal-coding-system (intern (concat cp |
608 |
"-unix")))) |
"-unix")))) |
609 |
(IT-display-table-setup cp) |
(IT-display-table-setup cp) |
610 |
|
;; It's time: too many input methods in leim/quail produce |
611 |
|
;; Unicode characters. Let the user see them. |
612 |
|
(IT-setup-unicode-display) |
613 |
(prefer-coding-system (intern (concat cp "-dos"))) |
(prefer-coding-system (intern (concat cp "-dos"))) |
614 |
(if default-enable-multibyte-characters |
(if default-enable-multibyte-characters |
615 |
;; We want this in multibyte version only, since unibyte version |
;; We want this in multibyte version only, since unibyte version |
708 |
;; Assume they support non-ASCII Latin characters like the IBM |
;; Assume they support non-ASCII Latin characters like the IBM |
709 |
;; codepage 437 does. |
;; codepage 437 does. |
710 |
(IT-display-table-setup "cp437") |
(IT-display-table-setup "cp437") |
711 |
|
;; It's time: too many input methods in leim/quail produce |
712 |
|
;; Unicode characters. Let the user see them. |
713 |
|
(IT-setup-unicode-display) |
714 |
(prefer-coding-system coding-dos) |
(prefer-coding-system coding-dos) |
715 |
(if default-enable-multibyte-characters |
(if default-enable-multibyte-characters |
716 |
(setq unibyte-display-via-language-environment t)) |
(setq unibyte-display-via-language-environment t)) |
720 |
;; until after the terminal is set and user's .emacs is processed, |
;; until after the terminal is set and user's .emacs is processed, |
721 |
;; because people might define their `dos-codepage-setup-hook' there. |
;; because people might define their `dos-codepage-setup-hook' there. |
722 |
(add-hook 'term-setup-hook 'dos-codepage-setup) |
(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) |
|
723 |
|
|
724 |
;; In multibyte mode, we want unibyte buffers to be displayed using |
;; In multibyte mode, we want unibyte buffers to be displayed using |
725 |
;; the terminal coding system, so that they display correctly on the |
;; the terminal coding system, so that they display correctly on the |