mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(format-annotate-function): Copy coding system into the new temp buffer.

Browse Source
This commit is contained in:
Juanma Barranquero 2003-05-14 21:30:21 +00:00
parent 9ee1638e3f
commit 5258c763ce
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/format.el
View File

@ -223,10 +223,12 @@ For most purposes, consider using `format-encode-region' instead."
(let ((copy-buf (get-buffer-create (format " *Format Temp %d*"
format-count)))
(sel-disp selective-display)
(multibyte enable-multibyte-characters))
(multibyte enable-multibyte-characters)
(coding-system buffer-file-coding-system))
(with-current-buffer copy-buf
(setq selective-display sel-disp)
(set-buffer-multibyte multibyte))
(set-buffer-multibyte multibyte)
(setq buffer-file-coding-system coding-system))
(copy-to-buffer copy-buf from to)
(set-buffer copy-buf)
(format-insert-annotations write-region-annotations-so-far from)