(vc-svn-registered): Return the correct value for

ignored and unregistered files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc938a899290c3d2a3a72b89858740358deb09be..dbba47e0883180838eef90d8a093db1f414349b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-10  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-svn.el (vc-svn-registered): Return the correct value for
+       ignored and unregistered files.
+
 2008-01-10  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (tramp): Require tramp because we use

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index f50d5ab5deeefd40dd6f2d0449f89c7618f80a89..e387b57d4fe97d5d105f329ccb230ce89cd887c5 100644 (file)
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -132,7 +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)
-          (vc-svn-parse-status file))))))
+         (not (memq (vc-svn-parse-status file) 
+                    '(ignored unregistered))))))))
 
 (defun vc-svn-state (file &optional localp)
   "SVN-specific version of `vc-state'."