(format-annotate-function): Copy coding system into the new temp buffer.

diff --git a/lisp/format.el b/lisp/format.el
index c9259fd31a41045e0c32a01644a63894ae9db785..97818c79ef440bb7b6d4076e6f7301aa8d019f7a 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -223,10 +223,12 @@ For most purposes, consider using `format-encode-region' instead."
            (let ((copy-buf (get-buffer-create (format " *Format Temp %d*"
                                                       format-count)))
                  (sel-disp selective-display)
-                 (multibyte enable-multibyte-characters))
+                 (multibyte enable-multibyte-characters)
+                 (coding-system buffer-file-coding-system))
              (with-current-buffer copy-buf
                (setq selective-display sel-disp)
-               (set-buffer-multibyte multibyte))
+               (set-buffer-multibyte multibyte)
+               (setq buffer-file-coding-system coding-system))
              (copy-to-buffer copy-buf from to)
              (set-buffer copy-buf)
              (format-insert-annotations write-region-annotations-so-far from)