changeset 21448:1b5746e92464

(vc-next-action): Fixed bug that prevented registering files using C-x v v.
author André Spiegel <spiegel@gnu.org>
date Thu, 09 Apr 1998 13:45:44 +0000
parents 42e8acda5021
children 9a81f6034063
files lisp/vc.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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 <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $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