mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
André Spiegel 2000-09-21 13:15:26 +00:00
parent 42ac0ae5f3
commit 64341022ab
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/vc-hooks.el
View File

@ -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)