procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-register): Check for a visited file first thing.

Browse source
This commit is contained in:
Karl Heuer 1995-06-09 01:17:59 +00:00
parent 41015a196c
commit f1b82fc8cf
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc.el
View file

@ -639,9 +639,9 @@ merge in the changes into your working copy."
(defun vc-register (&optional override comment)
"Register the current file into your version-control system."
(interactive "P")
(or buffer-file-name
(error "No visited file"))
(let ((master (vc-name buffer-file-name)))
(or buffer-file-name
(error "No visited file"))
(and master (file-exists-p master)
(error "This file is already registered"))
(and master