diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-05-14 21:30:21 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-05-14 21:30:21 +0000 |
| commit | 5258c763ce67c0712ff543b0bf3001d156a9ac48 (patch) | |
| tree | ee846ea14614da7b5cff2965309467924edda31d /lisp/format.el | |
| parent | 9ee1638e3f157628c5d6be7c98e701ada04773a1 (diff) | |
| download | emacs-5258c763ce67c0712ff543b0bf3001d156a9ac48.tar.gz | |
(format-annotate-function): Copy coding system into the new temp buffer.
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/format.el b/lisp/format.el index c9259fd31a4..97818c79ef4 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -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) |