Mercurial > emacs

comparison lisp/term/internal.el @ 24261:3183582345f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dos-codepage-setup): Set selection coding system to cpNNN-dos.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 04 Feb 1999 15:57:23 +0000
parents 93161ca8b2e5
children 54fa245dc776
comparison
equal deleted inserted replaced
24260:bd3ce96bc7eb 24261:3183582345f0
266 ;; This is done by set-language-environment. 266 ;; This is done by set-language-environment.
267 ;;(setq nonascii-translation-table 267 ;;(setq nonascii-translation-table
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"))))
274 (IT-display-table-setup cp) 275 (IT-display-table-setup cp)
275 (prefer-coding-system (intern (concat cp "-dos"))) 276 (prefer-coding-system (intern (concat cp "-dos")))