[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,v
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,v |
Date: |
Wed, 01 Oct 2008 16:17:02 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Eli Zaretskii <eliz> 08/10/01 16:17:02
Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.339
retrieving revision 1.340
diff -u -b -r1.339 -r1.340
--- mule-cmds.el 1 Sep 2008 07:15:03 -0000 1.339
+++ mule-cmds.el 1 Oct 2008 16:17:02 -0000 1.340
@@ -344,10 +344,7 @@
(or (not coding-system)
(coding-system-get coding-system 'ascii-compatible-p)))
(setq default-file-name-coding-system coding-system)))
- ;; If coding-system is nil, honor that on MS-DOS as well, so
- ;; that they could reset the terminal coding system.
- (unless (and (eq window-system 'pc) coding-system)
- (setq default-terminal-coding-system coding-system))
+ (setq default-terminal-coding-system coding-system)
(setq default-keyboard-coding-system coding-system)
;; Preserve eol-type from existing default-process-coding-systems.
;; On non-unix-like systems in particular, these may have been set
@@ -1789,13 +1786,11 @@
;; The following 2 lines undo the 8-bit display that we set up
;; in standard-display-european-internal, which see. This is in
;; case the user has used standard-display-european earlier in
- ;; this session. (The MS-DOS port doesn't use that setup, so it
- ;; doesn't need to undo it.)
+ ;; this session.
(when standard-display-table
(dotimes (i 128)
(aset standard-display-table (+ i 128) nil))))
- (or (eq window-system 'pc)
- (set-terminal-coding-system (or coding-system coding) display))))
+ (set-terminal-coding-system (or coding-system coding) display)))
(defun set-language-environment (language-name)
"Set up multi-lingual environment for using LANGUAGE-NAME.
@@ -1967,7 +1962,7 @@
;; defined.
(let ((nonascii (get-language-info language-name 'nonascii-translation)))
(if (eq window-system 'pc)
- (setq nonascii (intern "cp%d" dos-codepage)))
+ (setq nonascii (intern (format "cp%d" dos-codepage))))
(or (and (charsetp nonascii)
(get-charset-property nonascii :ascii-compatible-p))
(setq nonascii 'iso-8859-1))
- [Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,v,
Eli Zaretskii <=