aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii1999-02-04 15:57:23 +0000
committerEli Zaretskii1999-02-04 15:57:23 +0000
commit4de8f97e38a16a904820166af6899e1c1bca5dcf (patch)
tree010d84ded074724c6518b68d3c9f5bec83834e5e /lisp
parent5033894e975e0eee9fc18aab79ab3887291d6428 (diff)
downloademacs-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.el1
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"))))