From 11f6a31de4d94c6151cfbcc9f78eccfb82de6113 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 10 Jan 2008 14:17:06 +0000 Subject: [PATCH] (vc-svn-registered): Return the correct value for ignored and unregistered files. --- lisp/ChangeLog | 5 +++++ lisp/vc-svn.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc938a89929..dbba47e0883 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-01-10 Dan Nicolaescu + + * vc-svn.el (vc-svn-registered): Return the correct value for + ignored and unregistered files. + 2008-01-10 Tassilo Horn * doc-view.el (tramp): Require tramp because we use diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index f50d5ab5dee..e387b57d4fe 100644 --- 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'." -- 2.39.5