mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(format-annotate-function): Copy multibyte flag

Browse source 
and selective-display into the new temp buffer.
This commit is contained in:
Richard M. Stallman 2002-06-21 09:53:47 +00:00
parent 5cfe1cece1
commit 8a2f1176c4
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/format.el
View file

@ -221,7 +221,12 @@ For most purposes, consider using `format-encode-region' instead."
(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)