(vc-svn-registered): Make it work for non-existent

files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 800fb5a0571644bb84b46d3447d3bd23a662b925..65556e2eb65773dd5fce28a17873c632c6a2b0c9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index b3db2df7f69699bf0963ca15e1b937d3dc3a52f9..368d9f36166c197cc079d7420c417fca897de9c3 100644 (file)
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -132,8 +132,8 @@ If you want to force an empty list of arguments, use t."
                ;; 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'."