comparison lisp/vc.el @ 21329:58dc75416c30

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

21328:d5ffccfcea21

;; Copyright (C) 1992, 93, 94, 95, 96, 97 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.213 1998/03/31 17:19:32 spiegel Exp spiegel $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

      (pop-to-buffer vc-parent-buffer))
  (let ((file buffer-file-name)
	;; 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 (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)))
    (vc-backend-revert file)
    (vc-resynch-window file t t)
    )
  )

;;;###autoload
(defun vc-cancel-version (norevert)
  "Get rid of most recently checked in version of this file.
A prefix argument means do not revert the buffer afterwards."

21329:58dc75416c30

;; Copyright (C) 1992, 93, 94, 95, 96, 97 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.214 1998/03/31 18:08:36 spiegel Exp spiegel $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

      (pop-to-buffer vc-parent-buffer))
  (let ((file buffer-file-name)
	;; This operation should always ask for confirmation.
	(vc-suppress-confirm nil)
	(obuf (current-buffer)) (changed (vc-diff nil t)))
    (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))))
    (set-buffer obuf)
    (vc-backend-revert file)
    (vc-resynch-window file t t)))

;;;###autoload
(defun vc-cancel-version (norevert)
  "Get rid of most recently checked in version of this file.
A prefix argument means do not revert the buffer afterwards."