/[emacs]/emacs/lisp/format.el
ViewVC logotype

Diff of /emacs/lisp/format.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by rms, Tue Jun 11 19:26:45 2002 UTC revision 1.38 by rms, Fri Jun 21 09:53:47 2002 UTC
# Line 221  For most purposes, consider using `forma Line 221  For most purposes, consider using `forma
221          (if modify          (if modify
222              ;; To-function wants to modify region.  Copy to safe place.              ;; To-function wants to modify region.  Copy to safe place.
223              (let ((copy-buf (get-buffer-create (format " *Format Temp %d*"              (let ((copy-buf (get-buffer-create (format " *Format Temp %d*"
224                                                         format-count))))                                                         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))
230                (copy-to-buffer copy-buf from to)                (copy-to-buffer copy-buf from to)
231                (set-buffer copy-buf)                (set-buffer copy-buf)
232                (format-insert-annotations write-region-annotations-so-far from)                (format-insert-annotations write-region-annotations-so-far from)

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26