mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases 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
Show Stats 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)