[shepherd] 03/05: args: Add missing 'l10n' annotations.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit a786d65653ea75065a5170c3635093b1660d271c
Author: Ludovic Courtès <address@hidden>
Date:   Fri Mar 2 10:22:00 2018 +0100

    args: Add missing 'l10n' annotations.
    
    * modules/shepherd/args.scm (process-args): Add missing 'l10n' calls.
---
 modules/shepherd/args.scm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/modules/shepherd/args.scm b/modules/shepherd/args.scm
index bbc3be4..ebb33e4 100644
--- a/modules/shepherd/args.scm
+++ b/modules/shepherd/args.scm
@@ -133,13 +133,13 @@
   (set! options
        (cons* (make <option>
                 #:long "version"
-                #:description "display version information and exit"
+                #:description (l10n "display version information and exit")
                 #:action (lambda ()
                            (display-version program-name)
                            (quit)))
               (make <option>
                 #:long "usage"
-                #:description "display short usage message and exit"
+                #:description (l10n "display short usage message and exit")
                 #:action (lambda ()
                            (display program-name)
                            (display " ")
@@ -186,11 +186,11 @@
                            (quit)))
               (make <option>
                 #:long "help"
-                #:description "display this help and exit"
+                #:description (l10n "display this help and exit")
                 #:action (lambda ()
                            (for-each display
                                      (list program-name
-                                           " [OPTIONS...] "
+                                           (l10n " [OPTIONS...] ")
                                            args-syntax))
                            (newline)
                            (display args-desc)
@@ -246,7 +246,7 @@ General help using GNU software: 
<http://www.gnu.org/gethelp/>~%")
                             (l10n "Option `--~a' is ambigous.")
                           (l10n "Unknown option: `--~a'."))
                         name)
-                       (local-output "Try `--help'.")
+                       (local-output (l10n "Try `--help'."))
                        (quit 1)))
                 (and (takes-arg? target-option)
                      (not (optional-arg? target-option))
@@ -270,7 +270,8 @@ General help using GNU software: 
<http://www.gnu.org/gethelp/>~%")
                    (param #f))
               (if (not target-option)
                   (begin
-                    (local-output "Unknown option: `-~a'." opt-char)
+                    (local-output (l10n "Unknown option: `-~a'.")
+                                   opt-char)
                     (quit 1))
                 (if (takes-arg? target-option)
                     (begin
@@ -282,7 +283,8 @@ General help using GNU software: 
<http://www.gnu.org/gethelp/>~%")
                               (or (optional-arg? target-option)
                                   (begin
                                     (local-output
-                                     "Argument required by `-~a'." opt-char)
+                                     (l10n "Argument required by `-~a'.")
+                                      opt-char)
                                     (quit 1)))
                             (begin
                               (set! ptr (cdr ptr))