Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
2070:3399b2ba4302 2071:0f60caa73962
54 default, but this may change. NOTE: You *REALLY* should not turn off EOL 54 default, but this may change. NOTE: You *REALLY* should not turn off EOL
55 detection on Windows! Your files will have lots of annoying ^M's in them 55 detection on Windows! Your files will have lots of annoying ^M's in them
56 if you do this." 56 if you do this."
57 (dolist (x '(buffer-file-coding-system-for-read 57 (dolist (x '(buffer-file-coding-system-for-read
58 keyboard 58 keyboard
59 default-process-coding-system-read 59 default-process-coding-system-read))
60 no-conversion-coding-system-mapping))
61 (set-coding-system-variable 60 (set-coding-system-variable
62 x (coding-system-change-eol-conversion (get-coding-system-variable x) 61 x (coding-system-change-eol-conversion (get-coding-system-variable x)
63 (if flag nil 'lf))))) 62 (if flag nil 'lf))))
63 (set-coding-category-system
64 'no-conversion
65 (coding-system-change-eol-conversion (coding-category-system 'no-conversion)
66 (if flag nil 'lf))))
64 67
65 (defun coding-system-current-system-configuration () 68 (defun coding-system-current-system-configuration ()
66 (cond ((memq system-type '(windows-nt cygwin32)) 69 (cond ((memq system-type '(windows-nt cygwin32))
67 (if (featurep 'mule) 'windows-mule 'windows-no-mule)) 70 (if (featurep 'mule) 'windows-mule 'windows-no-mule))
68 ((featurep 'mule) 'unix-mule) 71 ((featurep 'mule) 'unix-mule)