diff options
| -rw-r--r-- | guix/lint.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index 1ea43df6b3b..059ee6894dd 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -370,8 +370,11 @@ superfluous when building natively and incorrect when cross-compiling." (define (properly-starts-sentence? s) (string-match "^[(\"'`[:upper:][:digit:]]" s)) +(define %starts-with-texinfo-markup-rx + (make-regexp "^@(acronym|dfn|code|command|emph|file|quotation|samp|uref|url)\\{.*?\\}")) + (define (starts-with-texinfo-markup? s) - (string-match "^@(acronym|dfn|code|command|emph|file|quotation|samp|uref|url)\\{.*?\\}" s)) + (regexp-exec %starts-with-texinfo-markup-rx s)) (define (starts-with-abbreviation? s) "Return #t if S starts with what looks like an abbreviation or acronym." |