Mercurial > emacs
comparison lisp/vc.el @ 12152:19ced24c2963
(vc-register): Check for a visited file first thing.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 09 Jun 1995 01:17:59 +0000 |
| parents | 5556c83c675a |
| children | 69c24a37a560 |
comparison
equal
deleted
inserted
replaced
| 12151:43b030e896eb | 12152:19ced24c2963 |
|---|---|
| 637 | 637 |
| 638 ;;;###autoload | 638 ;;;###autoload |
| 639 (defun vc-register (&optional override comment) | 639 (defun vc-register (&optional override comment) |
| 640 "Register the current file into your version-control system." | 640 "Register the current file into your version-control system." |
| 641 (interactive "P") | 641 (interactive "P") |
| 642 (or buffer-file-name | |
| 643 (error "No visited file")) | |
| 642 (let ((master (vc-name buffer-file-name))) | 644 (let ((master (vc-name buffer-file-name))) |
| 643 (or buffer-file-name | |
| 644 (error "No visited file")) | |
| 645 (and master (file-exists-p master) | 645 (and master (file-exists-p master) |
| 646 (error "This file is already registered")) | 646 (error "This file is already registered")) |
| 647 (and master | 647 (and master |
| 648 (not (y-or-n-p "Previous master file has vanished. Make a new one? ")) | 648 (not (y-or-n-p "Previous master file has vanished. Make a new one? ")) |
| 649 (error "This file is already registered"))) | 649 (error "This file is already registered"))) |