(set-language-environment-nonascii-translation): Fix nonascii value for

`pc' ``window-system''.
(set-display-table-and-terminal-coding-system, set-default-coding-systems):
Don't special-case `pc'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54d2634ced3c0ffbb87b2e15ad8b99620b2c367a..4c5fbe99dcdea75def2c5e5fa02048c30774d4af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2008-10-01  Eli Zaretskii  <eliz@gnu.org>
+
+       * international/mule-cmds.el
+       (set-language-environment-nonascii-translation): Fix nonascii
+       value for `pc' ``window-system''.
+       (set-display-table-and-terminal-coding-system)
+       (set-default-coding-systems): Don't special-case `pc'.
+
 2008-10-01  Glenn Morris  <rgm@gnu.org>
 
        * filesets.el (filesets-menu-name): Fix type.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index a5312599b31c7903bd16585ec3f8adb2f52f96ba..72b7e049b889ea8d3a6dcb45cda12efb819741b3 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -344,10 +344,7 @@ This also sets the following values:
             (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 default status is as follows:
       ;; 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 @@ Setting this variable directly does not take effect.  See
   ;; 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))