global-functions: $PrettyPrint: use :tocrlf

This commit is contained in:
Christian Hesse 2024-07-11 23:06:57 +02:00
parent 8074305b92
commit 8f75d542f3

View file

@ -909,11 +909,7 @@
# print lines with trailing carriage return
:set PrettyPrint do={
:local Input [ :tostr $1 ];
:global Unix2Dos;
:put [ $Unix2Dos $Input ];
:put [ :tocrlf [ :tostr $1 ] ];
}
# strip protocol from from url string