diff options
| author | Eli Zaretskii | 1999-01-24 14:13:32 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 1999-01-24 14:13:32 +0000 |
| commit | 3e9c24f68b5452cd86e3f4dd224e9d09490bc6a7 (patch) | |
| tree | 3eb8cf8cec4bb833f9c31c4778ffb5967dd98527 | |
| parent | dc1f8c72f4d09a5161cfb2b3bbfd4eb658947939 (diff) | |
| download | emacs-3e9c24f68b5452cd86e3f4dd224e9d09490bc6a7.tar.gz emacs-3e9c24f68b5452cd86e3f4dd224e9d09490bc6a7.zip | |
(dos-codepage-setup): Call prefer-coding-system
to set the appropriate cpNNN-dos coding system as the
highest-priority coding system.
| -rw-r--r-- | lisp/term/internal.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/term/internal.el b/lisp/term/internal.el index 0cfa3025f50..2b0806839cd 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el | |||
| @@ -272,6 +272,7 @@ list. You can (and should) also run it whenever the value of | |||
| 272 | (setq default-terminal-coding-system (intern (concat cp | 272 | (setq default-terminal-coding-system (intern (concat cp |
| 273 | "-unix")))) | 273 | "-unix")))) |
| 274 | (IT-display-table-setup cp) | 274 | (IT-display-table-setup cp) |
| 275 | (prefer-coding-system (intern (concat cp "-dos"))) | ||
| 275 | ;; Some codepages have sporadic support for Latin-1, Greek, and | 276 | ;; Some codepages have sporadic support for Latin-1, Greek, and |
| 276 | ;; symbol glyphs, which don't belong to their native character | 277 | ;; symbol glyphs, which don't belong to their native character |
| 277 | ;; set. It's a nuisance to have all those glyphs here, for all | 278 | ;; set. It's a nuisance to have all those glyphs here, for all |