From 98f70fa322281e680334e896cbb12724a9d6c6cd Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 13 May 2005 16:05:31 +0000 Subject: [PATCH] (get-editor-command): Bugfix: allow full LYEDITOR setting, partial XEDITOR setting. --- ChangeLog | 3 +++ scm/editor.scm | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 5a44f07a14..3ae1e736fd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2005-05-13 Jan Nieuwenhuizen + * scm/editor.scm (get-editor-command): Bugfix: allow full + LYEDITOR setting, partial XEDITOR setting. + * Documentation/pictures/lilypond-48.xpm: New file. * flower/file-path.cc (to_string): Bugfix: use PATHSEP. diff --git a/scm/editor.scm b/scm/editor.scm index 962627941a..b57d7c2d5d 100644 --- a/scm/editor.scm +++ b/scm/editor.scm @@ -28,7 +28,9 @@ (define-public (get-editor-command file-name line column) (define (get-command-template alist editor) (if (null? alist) - #f + (if (string-match "%\\(file\\)s" file-name) + (file-name) + (string-append file-name " %(file)s")) (if (string-match (caar alist) editor) (cdar alist) (get-command-template (cdr alist) editor)))) -- 2.39.2