diff options
| author | André Spiegel <spiegel@gnu.org> | 2000-09-21 13:15:26 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 2000-09-21 13:15:26 +0000 |
| commit | 64341022ab59a4a65c1f0a9512ab309a255c2046 (patch) | |
| tree | 1bb76cf6e9a60ab365e3a27ba123edd19015756a /lisp/vc-hooks.el | |
| parent | 42ac0ae5f3d53713d8b8e7b1c27f502447d167dd (diff) | |
| download | emacs-64341022ab59a4a65c1f0a9512ab309a255c2046.tar.gz | |
(vc-name): Force correct computation of the value in case it is missing.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 7 |
1 files changed, 5 insertions, 2 deletions
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) |