From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Aug 1995 21:18:36 +0000 (+0000)
Subject: (vc-revert-buffer): In a dedicated solitary window,
X-Git-Tag: emacs-19.34~3054
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fab2e906baee1924e34d9006dfb7998eb3b40d5f;p=emacs.git

(vc-revert-buffer): In a dedicated solitary window,
make the frame invisible instead of trying to delete window.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index af950518703..fa38ca4f0d5 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1372,11 +1372,17 @@ the file on the branch you are editing."
     (if (and changed (or vc-suppress-confirm
 			 (not (yes-or-no-p "Discard changes? "))))
 	(progn
-	  (delete-window)
+	  (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
-	(delete-window))
+	(if (and (window-dedicated-p (selected-window))
+		 (one-window-p t 'selected-frame))
+	    (make-frame-invisible (selected-frame))
+	  (delete-window)))
     (vc-backend-revert file)
     (vc-resynch-window file t t)
     )