1 From: David Kastrup <dak@gnu.org>
2 Date: Tue, 28 Nov 2017 11:19:02 +0000 (+0100)
3 Subject: Issue 5243/2: Let get-editor use shell-quote-argument
4 X-Git-Url: http://git.savannah.gnu.org/gitweb/?p=lilypond.git;a=commitdiff_plain;h=39f800a7e5acb7cc5da6424c99fd2690e389495a
6 Issue 5243/2: Let get-editor use shell-quote-argument
8 Addresses security concerns.
11 diff --git a/scm/editor.scm b/scm/editor.scm
12 index 9406055..f0132a0 100644
15 @@ -169,7 +169,7 @@ See Info node `(elisp)Security Considerations'."
16 (let* ((editor (get-editor))
17 (template (get-command-template editor-command-template-alist editor))
19 - (re-sub "%\\(file\\)s" (format #f "~S" file-name)
20 + (re-sub "%\\(file\\)s" (shell-quote-argument file-name)
21 (re-sub "%\\(line\\)s" (format #f "~a" line)
22 (re-sub "%\\(char\\)s" (format #f "~a" char)