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

files.
This commit is contained in:
Dan Nicolaescu
2008-01-20 19:56:43 +00:00
parent 9a407f8262
commit b5e791bdb7
2 changed files with 7 additions and 2 deletions

View File

@@ -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.

View File

@@ -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'."