emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/vc-fossil 419877b 030/111: squelch dead computation; clari


From: ELPA Syncer
Subject: [nongnu] elpa/vc-fossil 419877b 030/111: squelch dead computation; clarify logic
Date: Wed, 29 Sep 2021 08:59:15 -0400 (EDT)

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)))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]