Mercurial > emacs

diff lisp/vc/vc.el @ 109043:50dd8d98f75b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/vc/vc.el (vc-diff-internal): Set `revert-buffer-function' buffer-locally to lambda that re-runs the vc diff command. (Bug#6447)
author Juri Linkov <juri@jurta.org>
date Fri, 25 Jun 2010 00:38:07 +0300
parents d928a6a7c3f2
children b44ac3c3bafd c70ff40ac4ce edba7a045a72
line wrap: on
line diff
--- 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.