# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1277415487 -10800
# Node ID 50dd8d98f75b2ac68990d8b0f684d609166ad17c
# Parent  87285390c61effc6a94f9363a4864afc3351f92a
* lisp/vc/vc.el (vc-diff-internal): Set `revert-buffer-function'
buffer-locally to lambda that re-runs the vc diff command.  (Bug#6447)

diff -r 87285390c61e -r 50dd8d98f75b lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 24 15:16:33 2010 -0400
+++ b/lisp/ChangeLog	Fri Jun 25 00:38:07 2010 +0300
@@ -1,3 +1,9 @@
+2010-06-24  Juri Linkov  <juri@jurta.org>
+
+	* vc/vc.el (vc-diff-internal): Set `revert-buffer-function'
+	buffer-locally to lambda that re-runs the vc diff command.
+	(Bug#6447)
+
 2010-06-24  Chong Yidong  <cyd@stupidchicken.com>
 
 	* kmacro.el (kmacro-call-macro): Don't issue hint message if the
diff -r 87285390c61e -r 50dd8d98f75b lisp/vc/vc.el
--- a/lisp/vc/vc.el	Thu Jun 24 15:16:33 2010 -0400
+++ b/lisp/vc/vc.el	Fri Jun 25 00:38:07 2010 +0300
@@ -1547,6 +1547,9 @@
           (message "%s" (cdr messages))
           nil)
       (diff-mode)
+      (set (make-local-variable 'revert-buffer-function)
+	   `(lambda (ignore-auto noconfirm)
+	      (vc-diff-internal ,async ',vc-fileset ,rev1 ,rev2 ,verbose)))
       ;; Make the *vc-diff* buffer read only, the diff-mode key
       ;; bindings are nicer for read only buffers. pcl-cvs does the
       ;; same thing.