Mercurial > emacs
changeset 87864:54863df609a3
(vc-svn-registered): Make it work for non-existent
files.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 20 Jan 2008 19:56:43 +0000 |
| parents | 9559756a0070 |
| children | 1a3c90d4d8fa |
| files | lisp/ChangeLog lisp/vc-svn.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jan 20 10:35:27 2008 +0000 +++ b/lisp/ChangeLog Sun Jan 20 19:56:43 2008 +0000 @@ -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.
--- a/lisp/vc-svn.el Sun Jan 20 10:35:27 2008 +0000 +++ b/lisp/vc-svn.el Sun Jan 20 19:56:43 2008 +0000 @@ -132,8 +132,8 @@ ;; 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'."