diff options
| -rw-r--r-- | guix/lint.scm | 2 | ||||
| -rw-r--r-- | tests/lint.scm | 2 |
2 files changed, 2 insertions, 2 deletions
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 @@ trademark sign '~a' at ~d") (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 @@ '() (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: ™" |