1
0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-27 07:40:10 +01:00

Don't use \n sequence inside Lisp strings needing translation...

... Because xgettext will just remove the \, not replace \n with newline.

That's consistent with Lisp reader behavior in this documentation:
http://www.lispworks.com/documentation/lw70/CLHS/Body/02_de.htm

The XLisp reader, which replaces \n with newline, is nonstandard.

So, to accommodate xgettext, use (format nil "...~%...") instead, or where
you can't do that in a $ header line, just make a line break inside the ""

There are a few "\n" left alone in sample-data-export.ny which are neither
in $ lines nor inside (_ "...")
This commit is contained in:
Paul Licameli
2018-03-02 08:59:13 -05:00
parent da39cc451f
commit ac9148e48f
13 changed files with 38 additions and 27 deletions

View File

@@ -5,7 +5,10 @@
$name (_"Sound Finder")
;manpage "Sound_Finder"
$action (_"Finding sound...")
$info (_"Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration.")
$info (_"Adds region labels for areas of sound according to the specified level
and duration of surrounding silence. If too many labels are produced,
increase the silence level and duration; if too few are produced,
reduce the level and duration.")
$author (_"Jeremy R. Brown")
$copyright (_"Released under terms of the GNU General Public License version 2")
@@ -149,7 +152,7 @@ s-in))
;If no sound markers were found, return a message
;Otherwise, if some sounds were found, also optionally place a label at the end of the file.
(if (null l)
(setq l (_"No sounds found. Try reducing the silence\nlevel and minimum silence duration."))
(setq l (format nil (_"No sounds found. Try reducing the silence~%level and minimum silence duration.")))
(if (= finallabel 1) (add-label (/ s1-length s1-srate) (/ s1-length s1-srate) (_"[End]")))
)
l