brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Pass on blame properly to listing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-15 13:54:04 +02:00
parent 6564ff927f
commit 0e230ec7a2
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/util-git.scm
View file

@ -119,9 +119,9 @@
(loop (cdr lines)
(ldict-set blame 'commit (car ll))
blames)))
((eq? (string-ref line 0) #\space)
((memq (string-ref line 0) '(#\space #\tab))
;; Actual line with data
(let ((rline (substring line 8)))
(let ((rline (substring line 1)))
(loop (cdr lines)
(make-ldict)
(cons (ldict-set blame 'line rline)