221 |
(if modify |
(if modify |
222 |
;; To-function wants to modify region. Copy to safe place. |
;; To-function wants to modify region. Copy to safe place. |
223 |
(let ((copy-buf (get-buffer-create (format " *Format Temp %d*" |
(let ((copy-buf (get-buffer-create (format " *Format Temp %d*" |
224 |
format-count)))) |
format-count))) |
225 |
|
(sel-disp selective-display) |
226 |
|
(multibyte enable-multibyte-characters)) |
227 |
|
(with-current-buffer copy-buf |
228 |
|
(setq selective-display sel-disp) |
229 |
|
(set-buffer-multibyte multibyte)) |
230 |
(copy-to-buffer copy-buf from to) |
(copy-to-buffer copy-buf from to) |
231 |
(set-buffer copy-buf) |
(set-buffer copy-buf) |
232 |
(format-insert-annotations write-region-annotations-so-far from) |
(format-insert-annotations write-region-annotations-so-far from) |