changeset 101345:cab16dfe3737

(format-annotate-function): Set write-region-post-annotation-function.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 22 Jan 2009 04:54:35 +0000
parents 50175350da19
children 99d8b439eca6
files lisp/format.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))