From 40c65814aece83823982357320e7d2a958af2977 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Wed, 11 Mar 2015 14:45:29 +0100
Subject: 'base' package: Internationalize error messages.

* src/guile/skribilo/package/base.scm (source): Use '_' to
  internationalize error messages.
* po/POTFILES.in: Add it.
---
 src/guile/skribilo/package/base.scm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index 4cc5f93..b6f9780 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -535,19 +535,21 @@
       (cond
 	 ((and (not (null? body)) (or file start stop definition))
 	  (skribe-error 'source
-			"file, start/stop, and definition are exclusive with body"
+			(_ "file, start/stop, and definition\
+ are exclusive with body")
 			body))
 	 ((and start stop definition)
 	  (skribe-error 'source
-			"start/stop are exclusive with a definition"
+			(_ "start/stop are exclusive with a definition")
 			body))
 	 ((and (or start stop definition) (not file))
 	  (skribe-error 'source
-			"start/stop and definition require a file specification"
+			(_ "start/stop and definition require a\
+ file specification")
 			file))
 	 ((and definition (not language))
 	  (skribe-error 'source
-			"definition requires a language specification"
+			(_ "definition requires a language specification")
 			definition))
 	 ((and file (not (string? file)))
           (invalid-argument-error 'source file 'file))
@@ -557,7 +559,7 @@
           (invalid-argument-error 'source stop 'stop))
 	 ((and (integer? start) (integer? stop) (> start stop))
 	  (skribe-error 'source
-			"start line > stop line"
+			(_ "start line is greater than stop line")
 			(format #f "~a/~a" start stop)))
 	 ((and language (not (language? language)))
           (invalid-argument-error 'source language 'language))
-- 
cgit v1.2.3