From: Jim Blandy <jimb@redhat.com>
Date: Tue, 6 Jul 1993 06:18:50 +0000 (+0000)
Subject: * vc.el (vc-start-entry): Don't call file-name-nondirectory on
X-Git-Tag: emacs-19.34~11851
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf50f71757a88c37d8c35f458d53fbe697a8e11b;p=emacs.git

* vc.el (vc-start-entry): Don't call file-name-nondirectory on
	FILE before passing it to vc-mode-line.  Everyplace else passes
	vc-mode-line full filenames, and vc-mode-line now needs the real
	file name to decide which version-control system the file is under.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 830444feee6..6670ed68e9a 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -513,7 +513,7 @@ lock steals will raise an error."
     (set (make-local-variable 'vc-parent-buffer) parent)
     (set (make-local-variable 'vc-parent-buffer-name)
 	 (concat " from " (buffer-name vc-parent-buffer)))
-    (vc-mode-line (if file (file-name-nondirectory file) " (no file)"))
+    (vc-mode-line (or file " (no file)"))
     (vc-log-mode)
     (setq vc-log-operation action)
     (setq vc-log-file file)