# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232600075 0
# Node ID cab16dfe3737904f6b466e657e95607d3ecaf7b3
# Parent  50175350da19633d380948cd1d179239aca6c0dc
(format-annotate-function): Set write-region-post-annotation-function.

diff -r 50175350da19 -r cab16dfe3737 lisp/format.el
--- a/lisp/format.el	Thu Jan 22 04:53:41 2009 +0000
+++ b/lisp/format.el	Thu Jan 22 04:54:35 2009 +0000
@@ -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))