- (insert "(require 'mule)\n;;;###coding system: escape-quoted\n")
- (setq buffer-file-coding-system 'escape-quoted)
+ (cond ((featurep 'utf-2000)
+ (insert "(require 'mule)\n;;;###coding system: utf-8\n")
+ (setq buffer-file-coding-system 'utf-8)
+ )
+ (t
+ (insert "(require 'mule)\n;;;###coding system: escape-quoted\n")
+ (setq buffer-file-coding-system 'escape-quoted)
+ ))