Mercurial > emacs

changeset 12806:826ee893ebdf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-revert-buffer): In a dedicated solitary window, make the frame invisible instead of trying to delete window.
author Richard M. Stallman <rms@gnu.org>
date Tue, 08 Aug 1995 21:18:36 +0000
parents 6bf9976041ca
children 34d269b30df1
files lisp/vc.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Tue Aug 08 20:08:09 1995 +0000
+++ b/lisp/vc.el	Tue Aug 08 21:18:36 1995 +0000
@@ -1372,11 +1372,17 @@
     (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)
     )