diff lisp/code-init.el @ 2071:0f60caa73962

[xemacs-hg @ 2004-05-11 11:33:08 by stephent] gensym docstring <87r7tryzla.fsf@tleepslib.sk.tsukuba.ac.jp> set-eol-detection fix <87vfj3yzs8.fsf@tleepslib.sk.tsukuba.ac.jp> etags.el tests <87zn8fz03v.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 11 May 2004 11:33:22 +0000
parents 4b7295e5a412
children 13a418960a88
line wrap: on
line diff
--- a/lisp/code-init.el	Mon May 10 21:50:25 2004 +0000
+++ b/lisp/code-init.el	Tue May 11 11:33:22 2004 +0000
@@ -56,11 +56,14 @@
 if you do this."
   (dolist (x '(buffer-file-coding-system-for-read
 	       keyboard
-	       default-process-coding-system-read
-	       no-conversion-coding-system-mapping))
+	       default-process-coding-system-read))
     (set-coding-system-variable
      x (coding-system-change-eol-conversion (get-coding-system-variable x)
-					    (if flag nil 'lf)))))
+					    (if flag nil 'lf))))
+  (set-coding-category-system
+   'no-conversion
+   (coding-system-change-eol-conversion (coding-category-system 'no-conversion)
+					(if flag nil 'lf))))
 
 (defun coding-system-current-system-configuration ()
   (cond ((memq system-type '(windows-nt cygwin32))