* lisp/vc/vc.el (vc-diff-internal): Set `revert-buffer-function'

buffer-locally to lambda that re-runs the vc diff command.  (Bug#6447)
This commit is contained in:
Juri Linkov 2010-06-25 00:38:07 +03:00
parent 8f8043160b
commit 5af72a47bb
2 changed files with 9 additions and 0 deletions

View file

@ -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

View file

@ -1547,6 +1547,9 @@ returns t if the buffer had changes, nil otherwise."
(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.