Mercurial > emacs

diff lisp/format.el @ 101345:cab16dfe3737

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a9dc0e7c3f2b
children aa590c490d6f
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))