Mercurial > emacs
comparison lisp/term/internal.el @ 24162:93161ca8b2e5
(dos-codepage-setup): Call prefer-coding-system
to set the appropriate cpNNN-dos coding system as the
highest-priority coding system.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 24 Jan 1999 14:13:32 +0000 |
| parents | 73c3dcc21ced |
| children | 3183582345f0 |
comparison
equal
deleted
inserted
replaced
| 24161:782215de9b98 | 24162:93161ca8b2e5 |
|---|---|
| 270 (set-default-coding-systems (intern (concat cp "-dos"))) | 270 (set-default-coding-systems (intern (concat cp "-dos"))) |
| 271 (set-terminal-coding-system | 271 (set-terminal-coding-system |
| 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 |
| 278 ;; the codepages (for starters, I don't even have references for | 279 ;; the codepages (for starters, I don't even have references for |
| 279 ;; all the codepages). So I provide a hook for those who want to | 280 ;; all the codepages). So I provide a hook for those who want to |