From 19f3d076b847b61fae1f8313d588207cc0d41ab0 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 17 Jun 1999 04:59:51 +0000 Subject: [PATCH] (byte-compile-insert-header): Use utf-8 as coding-system if `utf-2000' is provided. --- lisp/bytecomp.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/bytecomp.el b/lisp/bytecomp.el index 1ce8d27..b63d8e1 100644 --- a/lisp/bytecomp.el +++ b/lisp/bytecomp.el @@ -1759,8 +1759,14 @@ With argument, insert value in current buffer after the form." (char-to-string 255))) (eq (point) (point-max))) (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 -- 1.7.10.4