# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1024653227 0
# Node ID 738d95b72204f7a01e54f500b0b87accc4beb090
# Parent  6ccb89338ab18c14ca16d60bcf271e3c4ca8752d
(format-annotate-function): Copy multibyte flag
and selective-display into the new temp buffer.

diff -r 6ccb89338ab1 -r 738d95b72204 lisp/format.el
--- a/lisp/format.el	Fri Jun 21 09:53:01 2002 +0000
+++ b/lisp/format.el	Fri Jun 21 09:53:47 2002 +0000
@@ -221,7 +221,12 @@
 	(if modify
 	    ;; To-function wants to modify region.  Copy to safe place.
 	    (let ((copy-buf (get-buffer-create (format " *Format Temp %d*"
-						       format-count))))
+						       format-count)))
+		  (sel-disp selective-display)
+		  (multibyte enable-multibyte-characters))
+	      (with-current-buffer copy-buf
+		(setq selective-display sel-disp)
+		(set-buffer-multibyte multibyte))
 	      (copy-to-buffer copy-buf from to)
 	      (set-buffer copy-buf)
 	      (format-insert-annotations write-region-annotations-so-far from)