(set-default-coding-systems, reset-language-environment): Preserve

eols on default-process-coding-system.
(coding-system-change-text-conversion): Fix case where CODING is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e32dd2a4c8a6dcb5996cda053c19b905cc20513a..642e63ec7839bad0247d6f74f9665a4c6e14490b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-04-07  Jason Rumney  <jasonr@gnu.org>
+
+       * international/mule-cmds.el (set-default-coding-systems)
+       (reset-language-environment): Preserve eols on
+       default-process-coding-system.
+       (coding-system-change-text-conversion): Fix case where CODING is
+       nil.
+
 2002-04-07  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * subr.el (play-sound): Move here from simple.el.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 7e2b1a43db8f0df2276ff71e4718bc6b3af1c76d..8e92f94707d5f7474ce11870558c2ac6dee4e089 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -211,12 +211,10 @@ The returned coding system converts text by CODING
 but end-of-line as the same way as CODING-SYSTEM.
 If CODING is nil, the returned coding system detects
 how text is formatted automatically while decoding."
-  (if (not coding)
-      (coding-system-base coding-system)
-    (let ((eol-type (coding-system-eol-type coding-system)))
-      (coding-system-change-eol-conversion
-       coding
-       (if (numberp eol-type) (aref [unix dos mac] eol-type))))))
+  (let ((eol-type (coding-system-eol-type coding-system)))
+    (coding-system-change-eol-conversion
+     (if coding coding 'undecided)
+     (if (numberp eol-type) (aref [unix dos mac] eol-type)))))
 
 (defun toggle-enable-multibyte-characters (&optional arg)
   "Change whether this buffer uses multibyte characters.
@@ -311,7 +309,19 @@ This also sets the following values:
   (unless (and (eq window-system 'pc) coding-system)
     (setq default-terminal-coding-system coding-system))
   (setq default-keyboard-coding-system coding-system)
-  (setq default-process-coding-system (cons 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
+  ;; carefully by the user, or by the startup code, to deal with the
+  ;; users shell appropriately, so should not be altered by changing
+  ;; language environment.
+  (let ((output-coding
+        (coding-system-change-text-conversion
+         (car default-process-coding-system) coding-system))
+       (input-coding
+        (coding-system-change-text-conversion
+         (cdr default-process-coding-system) coding-system)))
+    (setq default-process-coding-system
+         (cons output-coding input-coding))))
 
 (defalias 'update-iso-coding-systems 'update-coding-systems-internal)
 (make-obsolete 'update-iso-coding-systems 'update-coding-systems-internal "20.3")
@@ -1399,7 +1409,19 @@ The default status is as follows:
 
   (set-default-coding-systems nil)
   (setq default-sendmail-coding-system 'iso-latin-1)
-  (setq default-process-coding-system '(undecided . iso-latin-1))
+  ;; Preserve eol-type from existing default-process-coding-systems.
+  ;; On non-unix-like systems in particular, these may have been set
+  ;; carefully by the user, or by the startup code, to deal with the
+  ;; users shell appropriately, so should not be altered by changing
+  ;; language environment.
+  (let ((output-coding
+        (coding-system-change-text-conversion
+         (car default-process-coding-system) 'undecided))
+       (input-coding
+        (coding-system-change-text-conversion
+         (cdr default-process-coding-system) 'iso-latin-1)))
+    (setq default-process-coding-system
+         (cons output-coding input-coding)))
 
   ;; Don't alter the terminal and keyboard coding systems here.
   ;; The terminal still supports the same coding system