diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-06-09 01:17:59 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-06-09 01:17:59 +0000 |
| commit | f1b82fc8cfdbe0c0f91ba753b8cf9d42cb83e2e0 (patch) | |
| tree | c569a07d5d36a8bdf197c141dffb2eb3876092f2 | |
| parent | 41015a196c0380a5fa7f010ecac2468ea6163565 (diff) | |
| download | emacs-f1b82fc8cfdbe0c0f91ba753b8cf9d42cb83e2e0.tar.gz | |
(vc-register): Check for a visited file first thing.
| -rw-r--r-- | lisp/vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index c68973505e8..4d5e29c86f6 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -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 |