changeset 4000:45b5a7ac812f

* 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.
author Jim Blandy <jimb@redhat.com>
date Tue, 06 Jul 1993 06:18:50 +0000
parents 6ad80fc3c559
children 20abae0de304
files lisp/vc.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Tue Jul 06 06:16:20 1993 +0000
+++ b/lisp/vc.el	Tue Jul 06 06:18:50 1993 +0000
@@ -513,7 +513,7 @@
     (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)