diff options
Diffstat (limited to 'lisp/vc/vc-src.el')
| -rw-r--r-- | lisp/vc/vc-src.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc/vc-src.el b/lisp/vc/vc-src.el index f497f951005..d9aa1b13e88 100644 --- a/lisp/vc/vc-src.el +++ b/lisp/vc/vc-src.el @@ -200,10 +200,10 @@ This function differs from vc-do-command in that it invokes `vc-src-program'." (defun vc-src-working-revision (file) "SRC-specific version of `vc-working-revision'." - (or (ignore-errors - (with-output-to-string - (vc-src-command standard-output file "list" "-f{1}" "@"))) - "0")) + (let ((result (ignore-errors + (with-output-to-string + (vc-src-command standard-output file "list" "-f{1}" "@"))))) + (if (zerop (length result)) "0" result))) ;;; ;;; State-changing functions |