(vc-svn-registered): Make it work for non-existent
files.
This commit is contained in:
@@ -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.
|
||||
|
||||
@@ -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'."
|
||||
|
||||
Reference in New Issue
Block a user