;; mrb- There must be a better way than skip-chars-forward
(skip-chars-forward (concat (char-to-string 0) "-"
(char-to-string 255)))
- (eq (point) (point-max)))
+ (and (eq (point) (point-max))
+ (not
+ (re-search-backward
+ "\\\\u[0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f]" nil t))))
(setq buffer-file-coding-system 'raw-text)
- (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)
+ ))
;; #### Lazy loading not yet implemented for MULE files
;; mrb - Fix this someday.
(save-excursion