summaryrefslogtreecommitdiff
path: root/lisp/vc/vc-hooks.el
diff options
context:
space:
mode:
authorEric S. Raymond <esr@thyrsus.com>2014-11-22 00:10:31 -0500
committerEric S. Raymond <esr@thyrsus.com>2014-11-22 00:10:31 -0500
commitaf46a2a43fab936a43d918fe0572eae51798a332 (patch)
tree0d4c34dbdc7210f57eb1a403c7198059b5347ec5 /lisp/vc/vc-hooks.el
parent280eb43f6521d7803ecf581982f18be51bd350c5 (diff)
downloademacs-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.el8
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)