diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-14 21:08:16 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 23:28:34 +0200 |
| commit | 78fd74622dca5f2def261506c3f8d4c0a940a6c4 (patch) | |
| tree | 87b8362454c759b680fe566229b5adbc3f25e712 /module/vcomponent/formats/vdir | |
| parent | Change NOTE to TODO. (diff) | |
| download | calp-78fd74622dca5f2def261506c3f8d4c0a940a6c4.tar.gz calp-78fd74622dca5f2def261506c3f8d4c0a940a6c4.tar.xz | |
Change gettext '_' to 'G_'.
Guile 3 reserves _ for other stuff.
Diffstat (limited to 'module/vcomponent/formats/vdir')
| -rw-r--r-- | module/vcomponent/formats/vdir/parse.scm | 2 | ||||
| -rw-r--r-- | module/vcomponent/formats/vdir/save-delete.scm | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/module/vcomponent/formats/vdir/parse.scm b/module/vcomponent/formats/vdir/parse.scm index 46626402..4e21d4d0 100644 --- a/module/vcomponent/formats/vdir/parse.scm +++ b/module/vcomponent/formats/vdir/parse.scm @@ -64,7 +64,7 @@ ;; by RECURRENCE-ID. As far as I can tell this goes against ;; the standard. Section 3.8.4.4. (case (length events) - [(0) (warning (_ "No events in component~%~a") + [(0) (warning (G_ "No events in component~%~a") (prop item '-X-HNH-FILENAME))] [(1) (add-child! calendar (car events))] diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm index ac520463..ab1985b6 100644 --- a/module/vcomponent/formats/vdir/save-delete.scm +++ b/module/vcomponent/formats/vdir/save-delete.scm @@ -26,16 +26,16 @@ (unless calendar (scm-error 'wrong-type-arg "save-event" - (_ "Can only save events belonging to calendars, event uid = ~s") + (G_ "Can only save events belonging to calendars, event uid = ~s") (list (prop event 'UID)) #f)) (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)) (scm-error 'wrong-type-arg "save-event" (string-append - (_ "Can only save events belonging to vdir calendars.") + (G_ "Can only save events belonging to vdir calendars.") " " - (_ "Calendar is of type ~s")) + (G_ "Calendar is of type ~s")) (list (prop calendar '-X-HNH-SOURCETYPE)) #f)) @@ -55,9 +55,9 @@ (define calendar (parent event)) (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)) (scm-error 'wrong-type-arg "remove-event" - (string-append (_ "Can only remove events belonging to vdir calendars.") + (string-append (G_ "Can only remove events belonging to vdir calendars.") " " - (_ "Calendar is of type ~s")) + (G_ "Calendar is of type ~s")) (list (prop calendar '-X-HNH-SOURCETYPE)) #f)) (delete-file (prop event '-X-HNH-FILENAME)) |