From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 22 Jan 2009 04:54:35 +0000 (+0000)
Subject: (format-annotate-function): Set write-region-post-annotation-function.
X-Git-Tag: emacs-pretest-23.0.90~320
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d1cf99f755b85114fe722c6b6d02419bdc30df9;p=emacs.git

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

diff --git a/lisp/format.el b/lisp/format.el
index 34545810c56..27253a2c47d 100644
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -218,6 +218,9 @@ For most purposes, consider using `format-encode-region' instead."
 		  (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))