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

coding-system to avoid eol conversion.

(set-keyboard-coding-system): Force *-unix
coding-system to avoid eol conversion.
af0403e0 · Kenichi Handa · f144038a · af0403e0 · af0403e0
Commit af0403e0 authored Jul 02, 2009 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/international/mule.el lisp/international/mule.el +4 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

--- 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))