diff options
| author | Jim Blandy | 1993-07-06 06:18:50 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-07-06 06:18:50 +0000 |
| commit | cf50f71757a88c37d8c35f458d53fbe697a8e11b (patch) | |
| tree | 2b163e433c911244d736de3a740f3a4120097c63 | |
| parent | fc593b05890222a0cbc128e2f8888a9d1405ced5 (diff) | |
| download | emacs-cf50f71757a88c37d8c35f458d53fbe697a8e11b.tar.gz emacs-cf50f71757a88c37d8c35f458d53fbe697a8e11b.zip | |
* 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.
| -rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 513 | (set (make-local-variable 'vc-parent-buffer) parent) | 513 | (set (make-local-variable 'vc-parent-buffer) parent) |
| 514 | (set (make-local-variable 'vc-parent-buffer-name) | 514 | (set (make-local-variable 'vc-parent-buffer-name) |
| 515 | (concat " from " (buffer-name vc-parent-buffer))) | 515 | (concat " from " (buffer-name vc-parent-buffer))) |
| 516 | (vc-mode-line (if file (file-name-nondirectory file) " (no file)")) | 516 | (vc-mode-line (or file " (no file)")) |
| 517 | (vc-log-mode) | 517 | (vc-log-mode) |
| 518 | (setq vc-log-operation action) | 518 | (setq vc-log-operation action) |
| 519 | (setq vc-log-file file) | 519 | (setq vc-log-file file) |