# HG changeset patch # User Andr Spiegel # Date 892129544 0 # Node ID 1b5746e9246421189fbb8a1d7a0b4007e98d09bd # Parent 42e8acda50215a36ba0ff18d41b797d0415cc7e8 (vc-next-action): Fixed bug that prevented registering files using C-x v v. diff -r 42e8acda5021 -r 1b5746e92464 lisp/vc.el --- a/lisp/vc.el Thu Apr 09 12:31:57 1998 +0000 +++ b/lisp/vc.el Thu Apr 09 13:45:44 1998 +0000 @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; Maintainer: Andre Spiegel -;; $Id: vc.el,v 1.218 1998/04/05 18:45:06 spiegel Exp spiegel $ +;; $Id: vc.el,v 1.219 1998/04/05 18:54:35 spiegel Exp spiegel $ ;; This file is part of GNU Emacs. @@ -960,8 +960,11 @@ "Enter a change comment for the marked files." 'vc-next-action-dired)) (throw 'nogo nil))) - (vc-ensure-vc-buffer) - (vc-next-action-on-file buffer-file-name verbose))) + (while vc-parent-buffer + (pop-to-buffer vc-parent-buffer)) + (if buffer-file-name + (vc-next-action-on-file buffer-file-name verbose) + (error "Buffer %s is not associated with a file" (buffer-name))))) ;;; These functions help the vc-next-action entry point