(cond
((not (fboundp 'find-coding-system)) nil)
((find-coding-system 'emacs-mule)
- (if (string-match "nt\\|windows" system-configuration)
+ (if (memq system-type '(windows-nt ms-dos ms-windows))
'emacs-mule-dos 'emacs-mule))
((find-coding-system 'escape-quoted) 'escape-quoted)
((find-coding-system 'no-conversion) 'no-conversion)