[nongnu] elpa/vc-fossil b1429cb 019/111: flush assignment warnings via let augmentation

[ELPA Syncer]

branch: elpa/vc-fossil
commit b1429cbb274d934deaad9b3a1c4b59b68ce4df0c
Author: barak <barak>
Commit: barak <barak>

    flush assignment warnings via let augmentation
---
 vc/el/vc-fossil.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index c550f32..ac2e344 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -132,7 +132,8 @@
   (insert (vc-fossil--run "update" "-n" "-v" "current" dir))
   (let* ((result)
         (done nil)
-        (root (vc-fossil-root dir)))
+        (root (vc-fossil-root dir))
+        line status-word file)
     (goto-char (point-min))
     (while (and (not (eobp)) (not done))
       (setq line (buffer-substring-no-properties (point) (line-end-position)))
@@ -149,7 +150,7 @@
 (defun vc-fossil-after-dir-status (callback)
   "Function to call after the status process has finished"
   (message "after-dir-status called %s" (buffer-string))
-  (let (result)
+  (let (result line state status-word file)
     (goto-char (point-min))
     (while (not (eobp))
       (setq line (buffer-substring-no-properties (point) (line-end-position)))
@@ -267,7 +268,8 @@
   (if file
       (with-temp-buffer 
        (let* ((found (not rev))
-              (newver nil))
+              (newver nil)
+              line version)
          (insert (vc-fossil--run "finfo" "-l" "-b" file))
                                        ;(vc-fossil--call "fossil" "finfo" "-l" 
"-b" file)
          (goto-char (point-min))
@@ -285,7 +287,8 @@
   (if file
       (with-temp-buffer 
        (let* ((found (not rev))
-              (oldver nil))
+              (oldver nil)
+              line version)
          (insert (vc-fossil--run "finfo" "-l" "-b" file))
                                        ;(vc-fossil--call "fossil" "finfo" "-l" 
"-b" file)
          (goto-char (point-min))