From: André Spiegel <spiegel@gnu.org>
Date: Wed, 1 Apr 1998 12:26:43 +0000 (+0000)
Subject: (vc-revert-buffer): Rewrote handling of vc-diff buffer,
X-Git-Tag: emacs-20.3~1745
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=751fa74742ce39a9ab99764005d72a26247e9696;p=emacs.git

(vc-revert-buffer): Rewrote handling of vc-diff buffer,
        so that the file's buffer is always current when the actual
        revert is done.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 657325462c2..2257363ae5a 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc.el,v 1.213 1998/03/31 17:19:32 spiegel Exp spiegel $
+;; $Id: vc.el,v 1.214 1998/03/31 18:08:36 spiegel Exp spiegel $
 
 ;; This file is part of GNU Emacs.
 
@@ -1940,23 +1940,17 @@ use C-u \\[vc-next-action] RET to do so."
 	;; This operation should always ask for confirmation.
 	(vc-suppress-confirm nil)
 	(obuf (current-buffer)) (changed (vc-diff nil t)))
-    (if (and changed (not (yes-or-no-p "Discard changes? ")))
-	(progn
+    (if changed
+        (unwind-protect
+            (if (not (yes-or-no-p "Discard changes? "))
+                (error "Revert cancelled"))
 	  (if (and (window-dedicated-p (selected-window))
 		   (one-window-p t 'selected-frame))
 	      (make-frame-invisible (selected-frame))
-	    (delete-window))
-	  (error "Revert cancelled"))
-      (set-buffer obuf))
-    (if changed
-	(if (and (window-dedicated-p (selected-window))
-		 (one-window-p t 'selected-frame))
-	    (make-frame-invisible (selected-frame))
-	  (delete-window)))
+	    (delete-window))))
+    (set-buffer obuf)
     (vc-backend-revert file)
-    (vc-resynch-window file t t)
-    )
-  )
+    (vc-resynch-window file t t)))
 
 ;;;###autoload
 (defun vc-cancel-version (norevert)