diff options
| author | Paul Eggert | 1993-07-05 03:20:12 +0000 |
|---|---|---|
| committer | Paul Eggert | 1993-07-05 03:20:12 +0000 |
| commit | 2bd5041b8e26c85cfd56dea9079392da793f215d (patch) | |
| tree | bdff33c8840e17803242614f0ca9ec09adb82117 | |
| parent | ee1a4f843b87b9336eeb86483a838da218ed3117 (diff) | |
| download | emacs-2bd5041b8e26c85cfd56dea9079392da793f215d.tar.gz emacs-2bd5041b8e26c85cfd56dea9079392da793f215d.zip | |
(vc-name): Move to vc-hooks.el.
| -rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index b619a7b6abe..830444feee6 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -154,13 +154,6 @@ is sensitive to blank lines.") | |||
| 154 | 154 | ||
| 155 | ;; Random helper functions | 155 | ;; Random helper functions |
| 156 | 156 | ||
| 157 | (defun vc-name (file) | ||
| 158 | "Return the master name of a file, nil if it is not registered." | ||
| 159 | (or (vc-file-getprop file 'vc-name) | ||
| 160 | (vc-file-setprop file 'vc-name | ||
| 161 | (let ((name-and-type (vc-registered file))) | ||
| 162 | (and name-and-type (car name-and-type)))))) | ||
| 163 | |||
| 164 | (defun vc-registration-error (file) | 157 | (defun vc-registration-error (file) |
| 165 | (if file | 158 | (if file |
| 166 | (error "File %s is not under version control" file) | 159 | (error "File %s is not under version control" file) |