From: André Spiegel <spiegel@gnu.org>
Date: Thu, 21 Sep 2000 13:15:26 +0000 (+0000)
Subject: (vc-name): Force correct computation of the value in case it is missing.
X-Git-Tag: emacs-pretest-21.0.90~1453
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64341022ab59a4a65c1f0a9512ab309a255c2046;p=emacs.git

(vc-name): Force correct computation of the value in case it is missing.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 624d5f61a89..64b511b56d4 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc-hooks.el,v 1.118 2000/09/06 10:41:10 gerd Exp $
+;; $Id: vc-hooks.el,v 1.119 2000/09/12 13:00:30 fx Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -289,7 +289,10 @@ If the file is not registered, or the master name is not known, return nil."
   ;; TODO: This should ultimately become obsolete, at least up here
   ;; in vc-hooks.
   (or (vc-file-getprop file 'vc-name)
-      (if (vc-backend file)
+      ;; force computation of the property by calling
+      ;; vc-BACKEND-registered explicitly
+      (if (and (vc-backend file)
+	       (vc-call-backend (vc-backend file) 'registered file))
 	  (vc-file-getprop file 'vc-name))))
 
 (defun vc-checkout-model (file)