Mercurial > emacs
comparison lisp/format.el @ 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 | 8dd957dbfbcc |
| children | 22a18a9dae2a |
comparison
equal
deleted
inserted
replaced
| 45939:6ccb89338ab1 | 45940:738d95b72204 |
|---|---|
| 219 (modify (nth 5 info))) | 219 (modify (nth 5 info))) |
| 220 (if to-fn | 220 (if to-fn |
| 221 (if modify | 221 (if modify |
| 222 ;; To-function wants to modify region. Copy to safe place. | 222 ;; To-function wants to modify region. Copy to safe place. |
| 223 (let ((copy-buf (get-buffer-create (format " *Format Temp %d*" | 223 (let ((copy-buf (get-buffer-create (format " *Format Temp %d*" |
| 224 format-count)))) | 224 format-count))) |
| 225 (sel-disp selective-display) | |
| 226 (multibyte enable-multibyte-characters)) | |
| 227 (with-current-buffer copy-buf | |
| 228 (setq selective-display sel-disp) | |
| 229 (set-buffer-multibyte multibyte)) | |
| 225 (copy-to-buffer copy-buf from to) | 230 (copy-to-buffer copy-buf from to) |
| 226 (set-buffer copy-buf) | 231 (set-buffer copy-buf) |
| 227 (format-insert-annotations write-region-annotations-so-far from) | 232 (format-insert-annotations write-region-annotations-so-far from) |
| 228 (format-encode-run-method to-fn (point-min) (point-max) orig-buf) | 233 (format-encode-run-method to-fn (point-min) (point-max) orig-buf) |
| 229 nil) | 234 nil) |