Mercurial > emacs

changeset 12152:19ced24c2963

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 43b030e896eb
children 69c24a37a560
files lisp/vc.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Fri Jun 09 01:15:14 1995 +0000
+++ b/lisp/vc.el	Fri Jun 09 01:17:59 1995 +0000
@@ -639,9 +639,9 @@
 (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