summaryrefslogtreecommitdiff
path: root/lisp/format.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2009-01-22 04:54:35 +0000
committerChong Yidong <cyd@stupidchicken.com>2009-01-22 04:54:35 +0000
commit1d1cf99f755b85114fe722c6b6d02419bdc30df9 (patch)
treebed59e6038fa2af1bd84130aef08efd69a6320d0 /lisp/format.el
parentae12425c9d1bb813a2c58ec94cb835b76c18fb6a (diff)
downloademacs-1d1cf99f755b85114fe722c6b6d02419bdc30df9.tar.gz
(format-annotate-function): Set write-region-post-annotation-function.
Diffstat (limited to 'lisp/format.el')
-rw-r--r--lisp/format.el3
1 files changed, 3 insertions, 0 deletions
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))