branch: elpa/vc-fossil commit 419877b96c573a0d82118b97ebf24001e0b8c6b3 Author: barak <barak> Commit: barak <barak>
squelch dead computation; clarify logic --- vc/el/vc-fossil.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el index 334002d..4ca96da 100644 --- a/vc/el/vc-fossil.el +++ b/vc/el/vc-fossil.el @@ -136,10 +136,10 @@ (let* ((line (buffer-substring-no-properties (point) (line-end-position))) (status-word (car (split-string line)))) (setq done (string-match "-----" status-word)) - (let ((file (if done "." (substring line (+ (length status-word) 1))))) - (let ((file (expand-file-name file root))) - (let ((file (file-relative-name file dir))) - (unless done + (unless done + (let ((file (substring line (+ (length status-word) 1)))) + (let ((file (expand-file-name file root))) + (let ((file (file-relative-name file dir))) (setq result (cons (list file (vc-fossil-state-code status-word)) result)))))))