]> git.eshelyaron.com Git - emacs.git/commitdiff
* vc.el (vc-start-entry): Don't call file-name-nondirectory on
authorJim Blandy <jimb@redhat.com>
Tue, 6 Jul 1993 06:18:50 +0000 (06:18 +0000)
committerJim Blandy <jimb@redhat.com>
Tue, 6 Jul 1993 06:18:50 +0000 (06:18 +0000)
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.

lisp/vc.el

index 830444feee662a8961f09464e8c94b37ea643277..6670ed68e9a588cc8534ab562d8e46f440b7d3d2 100644 (file)
@@ -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)