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

coding-system to avoid eol conversion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 068e853..2efcf47 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 ebbc86a..cd0f127 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))