From 4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 11 Mar 2022 15:27:00 -0700 Subject: replace ESCAPE-SH-TOKEN and ESCAPE-SH-COMMAND with new SH-ESCAPE Signed-off-by: Sean Whitton --- src/property/file.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/property/file.lisp') diff --git a/src/property/file.lisp b/src/property/file.lisp index 26ce4a1..d9ca42a 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -430,8 +430,7 @@ commented out; the first commented or uncommented line for each key will be uncommented and used to set the value, if it exists." (:desc (format nil "~A has ~{~A=~S~^, ~}" file pairs)) (:apply (simple-conf-update file (loop for (k v) on pairs by #'cddr - collect k - collect (escape-sh-token v)) + collect k collect (sh-escape v)) ;; include quoting as part of the value so we ;; don't end up substituting double quotation ;; marks for single, or similar -- cgit v1.2.3