Fix git parsing.

This commit is contained in:
Dominik Pantůček 2023-04-16 21:40:51 +02:00
parent 67da5d9be1
commit c0ee924d90

View file

@ -88,8 +88,10 @@
res
(let* ((line (car lines))
(st (substring line 0 2))
(fname (substring line 4))
(status (or (assoc st git-status-types)
(fname (substring line 3))
(maybe-status (assoc st git-status-types))
(status (if maybe-status
(cadr maybe-status)
'unknown)))
(loop (cdr lines)
(ldict-set res