Mercurial > emacs
comparison lisp/term/internal.el @ 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 | a336dd383ca1 |
| children | 33d53d287ee4 |
comparison
equal
deleted
inserted
replaced
| 42299:4bc3e5620674 | 42300:be77d8bfb8ed |
|---|---|
| 605 (set-selection-coding-system (intern (concat cp "-dos"))) | 605 (set-selection-coding-system (intern (concat cp "-dos"))) |
| 606 (set-terminal-coding-system | 606 (set-terminal-coding-system |
| 607 (setq default-terminal-coding-system (intern (concat cp | 607 (setq default-terminal-coding-system (intern (concat cp |
| 608 "-unix")))) | 608 "-unix")))) |
| 609 (IT-display-table-setup cp) | 609 (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) | |
| 610 (prefer-coding-system (intern (concat cp "-dos"))) | 613 (prefer-coding-system (intern (concat cp "-dos"))) |
| 611 (if default-enable-multibyte-characters | 614 (if default-enable-multibyte-characters |
| 612 ;; We want this in multibyte version only, since unibyte version | 615 ;; We want this in multibyte version only, since unibyte version |
| 613 ;; should not convert non-ASCII characters at all. | 616 ;; should not convert non-ASCII characters at all. |
| 614 (setq unibyte-display-via-language-environment t) | 617 (setq unibyte-display-via-language-environment t) |
| 703 (set-terminal-coding-system | 706 (set-terminal-coding-system |
| 704 (setq default-terminal-coding-system coding-unix)) | 707 (setq default-terminal-coding-system coding-unix)) |
| 705 ;; Assume they support non-ASCII Latin characters like the IBM | 708 ;; Assume they support non-ASCII Latin characters like the IBM |
| 706 ;; codepage 437 does. | 709 ;; codepage 437 does. |
| 707 (IT-display-table-setup "cp437") | 710 (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) | |
| 708 (prefer-coding-system coding-dos) | 714 (prefer-coding-system coding-dos) |
| 709 (if default-enable-multibyte-characters | 715 (if default-enable-multibyte-characters |
| 710 (setq unibyte-display-via-language-environment t)) | 716 (setq unibyte-display-via-language-environment t)) |
| 711 ))) | 717 ))) |
| 712 | 718 |
| 713 ;; We want to delay the terminal and other codepage-related setup | 719 ;; We want to delay the terminal and other codepage-related setup |
| 714 ;; until after the terminal is set and user's .emacs is processed, | 720 ;; until after the terminal is set and user's .emacs is processed, |
| 715 ;; because people might define their `dos-codepage-setup-hook' there. | 721 ;; because people might define their `dos-codepage-setup-hook' there. |
| 716 (add-hook 'term-setup-hook 'dos-codepage-setup) | 722 (add-hook 'term-setup-hook 'dos-codepage-setup) |
| 717 ;; It's time: too many input methods in leim/quail produce | |
| 718 ;; Unicode characters. Let the user see them. | |
| 719 (add-hook 'term-setup-hook 'IT-setup-unicode-display t) | |
| 720 | 723 |
| 721 ;; In multibyte mode, we want unibyte buffers to be displayed using | 724 ;; In multibyte mode, we want unibyte buffers to be displayed using |
| 722 ;; the terminal coding system, so that they display correctly on the | 725 ;; the terminal coding system, so that they display correctly on the |
| 723 ;; DOS terminal; in unibyte mode we want to see all 8-bit characters | 726 ;; DOS terminal; in unibyte mode we want to see all 8-bit characters |
| 724 ;; verbatim. In both cases, we want the entire range of 8-bit | 727 ;; verbatim. In both cases, we want the entire range of 8-bit |