[Emacs-diffs] Changes to emacs/lisp/format.el

[Richard M. Stallman]

Index: emacs/lisp/format.el
diff -c emacs/lisp/format.el:1.37 emacs/lisp/format.el:1.38
*** emacs/lisp/format.el:1.37   Tue Jun 11 15:26:45 2002
--- emacs/lisp/format.el        Fri Jun 21 05:53:47 2002
***************
*** 221,227 ****
        (if modify
            ;; To-function wants to modify region.  Copy to safe place.
            (let ((copy-buf (get-buffer-create (format " *Format Temp %d*"
!                                                      format-count))))
              (copy-to-buffer copy-buf from to)
              (set-buffer copy-buf)
              (format-insert-annotations write-region-annotations-so-far from)
--- 221,232 ----
        (if modify
            ;; To-function wants to modify region.  Copy to safe place.
            (let ((copy-buf (get-buffer-create (format " *Format Temp %d*"
!                                                      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)