diff --git a/guix/lint.scm b/guix/lint.scm index 1c8be911eb..1ea43df6b3 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -473,7 +473,7 @@ (define (check-end-of-sentence-space description) (string-match "[A-Z]$" pre) ;; Initial found (find (lambda (s) (string-suffix-ci? s pre)) - '("i.e" "e.g" "a.k.a" "resp"))) + '("i.e" "e.g" "a.k.a" "resp" "cf" "al"))) r (cons (match:start m) r)))))))) (if (null? infractions) diff --git a/tests/lint.scm b/tests/lint.scm index 09be160f5d..3e9dbd29db 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -173,7 +173,7 @@ (define (warning-contains? str warnings) '() (let ((pkg (dummy-package "x" (description - "E.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD). Name O. Person")))) + "O. Person e.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD). Name et al. cf. some paper.")))) (check-description-style pkg))) (test-equal "description: may not contain trademark signs: ™"