diff options
| author | Eli Zaretskii | 1999-02-04 15:57:23 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 1999-02-04 15:57:23 +0000 |
| commit | 4de8f97e38a16a904820166af6899e1c1bca5dcf (patch) | |
| tree | 010d84ded074724c6518b68d3c9f5bec83834e5e /lisp | |
| parent | 5033894e975e0eee9fc18aab79ab3887291d6428 (diff) | |
| download | emacs-4de8f97e38a16a904820166af6899e1c1bca5dcf.tar.gz emacs-4de8f97e38a16a904820166af6899e1c1bca5dcf.zip | |
(dos-codepage-setup): Set selection coding system to cpNNN-dos.
Diffstat (limited to 'lisp')
| -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 2b0806839cd..33843a12fc3 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el | |||
| @@ -268,6 +268,7 @@ list. You can (and should) also run it whenever the value of | |||
| 268 | ;; (symbol-value (intern (concat cp "-nonascii-translation-table")))) | 268 | ;; (symbol-value (intern (concat cp "-nonascii-translation-table")))) |
| 269 | (set-language-environment (cp-language-for-codepage cp)) | 269 | (set-language-environment (cp-language-for-codepage cp)) |
| 270 | (set-default-coding-systems (intern (concat cp "-dos"))) | 270 | (set-default-coding-systems (intern (concat cp "-dos"))) |
| 271 | (set-selection-coding-system (intern (concat cp "-dos"))) | ||
| 271 | (set-terminal-coding-system | 272 | (set-terminal-coding-system |
| 272 | (setq default-terminal-coding-system (intern (concat cp | 273 | (setq default-terminal-coding-system (intern (concat cp |
| 273 | "-unix")))) | 274 | "-unix")))) |