[Emacs-diffs] /srv/bzr/emacs/trunk r100637: * lisp/vc/vc.el (vc-diff-internal): Set `revert-buffer-function'

[Juri Linkov]

------------------------------------------------------------
revno: 100637
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2010-06-25 00:38:07 +0300
message:
  * lisp/vc/vc.el (vc-diff-internal): Set `revert-buffer-function'
  buffer-locally to lambda that re-runs the vc diff command.  (Bug#6447)
modified:
  lisp/ChangeLog
  lisp/vc/vc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-24 19:16:33 +0000
+++ b/lisp/ChangeLog    2010-06-24 21:38:07 +0000
@@ -1,3 +1,9 @@
+2010-06-24  Juri Linkov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * kmacro.el (kmacro-call-macro): Don't issue hint message if the

=== modified file 'lisp/vc/vc.el'
--- a/lisp/vc/vc.el     2010-06-11 19:09:57 +0000
+++ b/lisp/vc/vc.el     2010-06-24 21:38:07 +0000
@@ -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.