From 5af72a47bb2786e2eda849682f791f932d97375f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 25 Jun 2010 00:38:07 +0300 Subject: [PATCH] * lisp/vc/vc.el (vc-diff-internal): Set `revert-buffer-function' buffer-locally to lambda that re-runs the vc diff command. (Bug#6447) --- lisp/ChangeLog | 6 ++++++ lisp/vc/vc.el | 3 +++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 23d7045532c..6e19fb7b650 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-06-24 Juri Linkov + + * 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 * kmacro.el (kmacro-call-macro): Don't issue hint message if the diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 0d6584fb343..ae3f6a0ed38 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -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. -- 2.39.2