mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(vc-revert-buffer): Rewrote handling of vc-diff buffer,

Browse Source 
so that the file's buffer is always current when the actual
        revert is done.
This commit is contained in:
André Spiegel 1998-04-01 12:26:43 +00:00
parent 3f251fcd3b
commit 751fa74742
1 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/vc.el
View File

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