diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2015-03-01 17:51:31 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2015-03-01 17:51:31 +0100 |
| commit | 7f9b037245ddb662ad98685e429a2498ae6b7c62 (patch) | |
| tree | d0dd5c637abef752ea0d2949a14a9c253d249e0c /lisp/vc/vc-src.el | |
| parent | bb13183c1bb56724fc3c4ab5ed8f1eaf6ed5338d (diff) | |
| download | emacs-7f9b037245ddb662ad98685e429a2498ae6b7c62.tar.gz emacs-7f9b037245ddb662ad98685e429a2498ae6b7c62.tar.bz2 emacs-7f9b037245ddb662ad98685e429a2498ae6b7c62.zip | |
Fix problems found by vc-tests.el
* vc/vc-hooks.el (vc-state, vc-working-revision):
Use `vc-responsible-backend' in order to support unregistered files.
* vc/vc-rcs.el (vc-rcs-fetch-master-state):
* vc/vc-sccs.el (vc-sccs-working-revision): Handle undefined
master name.
* vc/vc-rcs.el (vc-rcs-unregister): Support unregistered files.
* vc/vc-src.el (vc-src-working-revision): Do not return an empty string.
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 |