Commit 2bd5041b authored by Paul Eggert's avatar Paul Eggert
Browse files

(vc-name): Move to vc-hooks.el.

parent ee1a4f84
......@@ -154,13 +154,6 @@ is sensitive to blank lines.")
;; Random helper functions
(defun vc-name (file)
"Return the master name of a file, nil if it is not registered."
(or (vc-file-getprop file 'vc-name)
(vc-file-setprop file 'vc-name
(let ((name-and-type (vc-registered file)))
(and name-and-type (car name-and-type))))))
(defun vc-registration-error (file)
(if file
(error "File %s is not under version control" file)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment