[Emacs-diffs] master 01/01: Fix bug that produced spurious nil state.

[Eric S. Raymond]

branch: master
commit e14c4354cf29fab12fb414c7ebc94bf1a9920dd0
Author: Eric S. Raymond <address@hidden>
Date:   Fri Nov 21 07:29:51 2014 -0500

    Fix bug that produced spurious nil state.
---
 lisp/ChangeLog    |    4 ++++
 lisp/vc/vc-src.el |    3 ++-
 2 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ffa3823..6bf57b6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-21  Eric S. Raymond  <address@hidden>
+
+       * vc/vc-src.el (vc-src-state): Fix bug that produced spurious nil state.
+
 2014-11-21  Eli Zaretskii  <address@hidden>
 
        * vc/vc.el (vc-deduce-fileset): Support invocation from
diff --git a/lisp/vc/vc-src.el b/lisp/vc/vc-src.el
index d0787b0..520708c 100644
--- a/lisp/vc/vc-src.el
+++ b/lisp/vc/vc-src.el
@@ -159,6 +159,7 @@ For a description of possible values, see 
`vc-check-master-templates'."
   "SRC-specific version of `vc-state'."
   (let*
       ((status nil)
+       (default-directory (file-name-directory file))
        (out
        (with-output-to-string
          (with-current-buffer
@@ -168,7 +169,7 @@ For a description of possible values, see 
`vc-check-master-templates'."
                  (condition-case nil
                      (process-file
                       vc-src-program nil t nil
-                      "status" "-a" file)
+                      "status" "-a" (file-relative-name file))
                    (error nil)))))))
     (when (eq 0 status)
       (when (null (string-match "does not exist or is unreadable" out))