diff options
author | Eric S. Raymond <esr@thyrsus.com> | 2014-11-22 00:10:31 -0500 |
---|---|---|
committer | Eric S. Raymond <esr@thyrsus.com> | 2014-11-22 00:10:31 -0500 |
commit | af46a2a43fab936a43d918fe0572eae51798a332 (patch) | |
tree | 0d4c34dbdc7210f57eb1a403c7198059b5347ec5 /lisp/vc/vc-hooks.el | |
parent | 280eb43f6521d7803ecf581982f18be51bd350c5 (diff) | |
download | emacs-af46a2a43fab936a43d918fe0572eae51798a332.tar.gz emacs-af46a2a43fab936a43d918fe0572eae51798a332.tar.bz2 emacs-af46a2a43fab936a43d918fe0572eae51798a332.zip |
Rename vc-name to vc-master-rename.
* vc-hooks.el, vc-rcs.el, vc-sccs.el: vc-name -> vc-master-name. This
is preaparatory to isolating all the 'master' functions used only by
the file-oriented back ends. With this done first, the substantive
diffs will be easier to read.
Diffstat (limited to 'lisp/vc/vc-hooks.el')
-rw-r--r-- | lisp/vc/vc-hooks.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el index 28fbaae9d1d..b62a64012e9 100644 --- a/lisp/vc/vc-hooks.el +++ b/lisp/vc/vc-hooks.el @@ -454,18 +454,18 @@ If the argument is a list, the files must all have the same back end." "Return where the repository for the current directory is kept." (symbol-name (vc-backend file))) -(defun vc-name (file) +(defun vc-master-name (file) "Return the master name of FILE. If the file is not registered, or the master name is not known, return nil." ;; TODO: This should ultimately become obsolete, at least up here ;; in vc-hooks. - (or (vc-file-getprop file 'vc-name) + (or (vc-file-getprop file 'vc-master-name) ;; force computation of the property by calling ;; vc-BACKEND-registered explicitly (let ((backend (vc-backend file))) (if (and backend (vc-call-backend backend 'registered file)) - (vc-file-getprop file 'vc-name))))) + (vc-file-getprop file 'vc-master-name))))) (defun vc-checkout-model (backend files) "Indicate how FILES are checked out. @@ -647,7 +647,7 @@ If FILE is not registered, this function always returns nil." (put backend 'vc-templates-grabbed t)) (let ((result (vc-check-master-templates file (symbol-value sym)))) (if (stringp result) - (vc-file-setprop file 'vc-name result) + (vc-file-setprop file 'vc-master-name result) nil)))) ; Not registered (defun vc-possible-master (s dirname basename) |