From 2fd0d27447b8ce6620ec3f6d68c9d5ca62bb9f02 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Thu, 11 Jul 2024 23:08:42 +0200
Subject: global-functions: $Unix2Dos: use :tocrlf

---
 global-functions.rsc | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/global-functions.rsc b/global-functions.rsc
index 950ccd6..54dcb68 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -1433,12 +1433,7 @@
 
 # convert line endings, UNIX -> DOS
 :set Unix2Dos do={
-  :local Input [ :tostr $1 ];
-
-  :global CharacterReplace;
-
-  :return [ $CharacterReplace [ $CharacterReplace $Input \
-    ("\n") ("\r\n") ] ("\r\r\n") ("\r\n") ];
+  :return [ :tocrlf [ :tostr $1 ] ];
 }
 
 # url encoding
-- 
cgit v1.2.3-70-g09d2