diff --git a/guix/build/po.scm b/guix/build/po.scm index 62362e933e4..4d153478c9a 100644 --- a/guix/build/po.scm +++ b/guix/build/po.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019, 2021 Julien Lepiller ;;; Copyright © 2020 Ludovic Courtès -;;; Copyright © 2023 Florian Pelz +;;; Copyright © 2023, 2025 Florian Pelz ;;; ;;; This file is part of GNU Guix. ;;; @@ -38,9 +38,9 @@ (and (* (or flags comment (ignore (* whitespace)))) (ignore "msgid ") msgid (ignore (* whitespace)) (ignore "msgstr ") msgstr)) -(define-peg-pattern escape body (or "\\\\" "\\\"" "\\n")) -(define-peg-pattern str-chr body (or " " "!" (and (ignore "\\") "\"") - "\\n" (and (ignore "\\") "\\") +(define-peg-pattern str-chr body (or " " "!" + "\\\\" + "\\\"" (range #\# #\頋))) (define-peg-pattern msgid all content) (define-peg-pattern msgstr all content)