Mercurial > hg > xemacs-beta

comparison lisp/w3/mule-sysdp.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 318232e2a3f0
children
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
39 (defconst mule-no-coding-system 39 (defconst mule-no-coding-system
40 (case mule-sysdep-version 40 (case mule-sysdep-version
41 (2.3 *noconv*) 41 (2.3 *noconv*)
42 (2.4 'no-conversion) 42 (2.4 'no-conversion)
43 (3.0 'no-conversion) 43 (3.0 'no-conversion)
44 (xemacs 'binary) 44 (xemacs 'no-conversion)
45 (otherwise nil)) 45 (otherwise nil))
46 "Coding system that means no coding system should be used.") 46 "Coding system that means no coding system should be used.")
47 47
48 (defun mule-detect-coding-version (st nd) 48 (defun mule-detect-coding-version (st nd)
49 (case mule-sysdep-version 49 (case mule-sysdep-version
79 (setq code 'autodetect) 79 (setq code 'autodetect)
80 (condition-case () 80 (condition-case ()
81 (get-coding-system 'autodetect) 81 (get-coding-system 'autodetect)
82 (error (setq code 'automatic-conversion))))) 82 (error (setq code 'automatic-conversion)))))
83 (decode-coding-region (point-min) (point-max) code) 83 (decode-coding-region (point-min) (point-max) code)
84 (set-buffer-file-coding-system code)) 84 (set-file-coding-system code))
85 (otherwise 85 (otherwise
86 nil))) 86 nil)))
87 87
88 (defun mule-inhibit-code-conversion (proc) 88 (defun mule-inhibit-code-conversion (proc)
89 (if (process-buffer proc) 89 (if (process-buffer proc)