Mercurial > emacs
changeset 45940:738d95b72204
(format-annotate-function): Copy multibyte flag
and selective-display into the new temp buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Jun 2002 09:53:47 +0000 |
| parents | 6ccb89338ab1 |
| children | c4e0e965ce70 |
| files | lisp/format.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/format.el Fri Jun 21 09:53:01 2002 +0000 +++ b/lisp/format.el Fri Jun 21 09:53:47 2002 +0000 @@ -221,7 +221,12 @@ (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)