Mercurial > hg > xemacs-beta

comparison lisp/w3/mule-sysdp.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 1370575f1259
children 5a88923fcbfe
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
73 (or code (setq code 'automatic-conversion)) 73 (or code (setq code 'automatic-conversion))
74 (decode-coding-region st nd code) 74 (decode-coding-region st nd code)
75 (set-buffer-file-coding-system code))) 75 (set-buffer-file-coding-system code)))
76 (xemacs 76 (xemacs
77 (if (and (listp code) (not (car code))) 77 (if (and (listp code) (not (car code)))
78 (setq code 'automatic-conversion)) 78 (progn
79 (setq code 'autodetect)
80 (condition-case ()
81 (get-coding-system 'autodetect)
82 (error (setq code 'automatic-conversion)))))
79 (decode-coding-region (point-min) (point-max) code) 83 (decode-coding-region (point-min) (point-max) code)
80 (set-buffer-file-coding-system code)) 84 (set-buffer-file-coding-system code))
81 (otherwise 85 (otherwise
82 nil))) 86 nil)))
83 87