# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1200859003 0
# Node ID 54863df609a34e602f585145e34054e8ba9dbf4a
# Parent  9559756a007094c2dc7349abda307a6b4604401e
(vc-svn-registered): Make it work for non-existent
files.

diff -r 9559756a0070 -r 54863df609a3 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jan 20 10:35:27 2008 +0000
+++ b/lisp/ChangeLog	Sun Jan 20 19:56:43 2008 +0000
@@ -1,3 +1,8 @@
+2008-01-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-svn.el (vc-svn-registered): Make it work for non-existent
+	files.
+
 2008-01-20  Martin Rudalics  <rudalics@gmx.at>
 
 	* repeat.el (repeat-undo-count): New variable.
diff -r 9559756a0070 -r 54863df609a3 lisp/vc-svn.el
--- a/lisp/vc-svn.el	Sun Jan 20 10:35:27 2008 +0000
+++ b/lisp/vc-svn.el	Sun Jan 20 19:56:43 2008 +0000
@@ -132,8 +132,8 @@
                ;; an `error' by vc-do-command.
                (error nil))))
         (when (eq 0 status)
-	  (not (memq (vc-svn-parse-status file) 
-		     '(ignored unregistered))))))))
+	  (let ((parsed (vc-svn-parse-status file)))
+	    (and parsed (not (memq parsed '(ignored unregistered))))))))))
 
 (defun vc-svn-state (file &optional localp)
   "SVN-specific version of `vc-state'."