[Emacs-diffs] emacs/lisp format.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/22 04:54:35

Modified files:
        lisp           : format.el 

Log message:
        (format-annotate-function): Set write-region-post-annotation-function.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/format.el?cvsroot=emacs&r1=1.65&r2=1.66

Patches:
Index: format.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/format.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- format.el   5 Jan 2009 03:19:12 -0000       1.65
+++ format.el   22 Jan 2009 04:54:35 -0000      1.66
@@ -218,6 +218,9 @@
                  (multibyte enable-multibyte-characters)
                  (coding-system buffer-file-coding-system))
              (with-current-buffer copy-buf
+               (set (make-local-variable
+                     'write-region-post-annotation-function)
+                    'kill-buffer)
                (setq selective-display sel-disp)
                (set-buffer-multibyte multibyte)
                (setq buffer-file-coding-system coding-system))