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

coding-system to avoid eol conversion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 068e8532dc59bb3410a9d4974b92878da20e73e1..2efcf47f1eb3d5dd2ed46970c60b8ad6a81a080d 100644 (file)
--- 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 ebbc86a62ff397d8a5385e802b0d9388818c6bbe..cd0f127a025a2b3a0be48a56e4a2c96c4a6ad236 100644 (file)
--- 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))