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

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

[nongnu] elpa/vc-fossil 086622b 015/111: Handle headers in update -n -v


From: ELPA Syncer
Subject: [nongnu] elpa/vc-fossil 086622b 015/111: Handle headers in update -n -v (currently ignore any line with a :).
Date: Wed, 29 Sep 2021 08:59:12 -0400 (EDT)

branch: elpa/vc-fossil
commit 086622b1a3a03de5e27daed640082da6eac47260
Author: venkat <venkat>
Commit: venkat <venkat>

    Handle headers in update -n -v (currently ignore any line with a :).
---
 vc/el/vc-fossil.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index e9d7e49..1dbe03e 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -137,14 +137,15 @@
       (setq line (buffer-substring-no-properties (point) (line-end-position)))
       ;(message line)
       (setq status-word (car (split-string line)))
-      (setq state (vc-fossil-state-code status-word))
       (setq file (substring line (+ (length status-word) 1)))
       ;(message file)
       (setq file (expand-file-name file root))
       ;(message file)
       (setq file (file-relative-name file dir))
       ;(message file)
-      (setq result (cons (list file state) result))
+      (setq result 
+           (if (string-match ":" line) result 
+             (cons (list file (vc-fossil-state-code status-word)) result)))
       (forward-line))
     (funcall update-function result nil)))
 



reply via email to

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