(set-keyboard-coding-system): Force *-unix

coding-system to avoid eol conversion.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 068e8532dc5..2efcf47f1eb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-02  Kenichi Handa  <handa@m17n.org>
+
+        * international/mule.el (set-keyboard-coding-system): Force *-unix
+        coding-system to avoid eol conversion.
+
 2009-07-01  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist): Add
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index ebbc86a62ff..cd0f127a025 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1310,7 +1310,10 @@ graphical terminals."
                                         'keyboard-coding-saved-meta-mode
                                         (cons (nth 2 (current-input-mode))
                                               nil)))
-            (set-input-meta-mode 8)))
+            (set-input-meta-mode 8))
+          ;; Avoid end-of-line conversion.
+          (setq coding-system
+                (coding-system-change-eol-conversion coding-system 'unix)))
 
       (when saved-meta-mode
         (set-input-meta-mode (car saved-meta-mode))