global-functions: $Unix2Dos: use :tocrlf

This commit is contained in:
Christian Hesse 2024-07-11 23:08:42 +02:00
parent 8f75d542f3
commit 2fd0d27447

View file

@ -1433,12 +1433,7 @@
# convert line endings, UNIX -> DOS # convert line endings, UNIX -> DOS
:set Unix2Dos do={ :set Unix2Dos do={
:local Input [ :tostr $1 ]; :return [ :tocrlf [ :tostr $1 ] ];
:global CharacterReplace;
:return [ $CharacterReplace [ $CharacterReplace $Input \
("\n") ("\r\n") ] ("\r\r\n") ("\r\n") ];
} }
# url encoding # url encoding