From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 13 May 2005 16:05:31 +0000 (+0000)
Subject: (get-editor-command): Bugfix: allow full
X-Git-Tag: release/2.5.25~37
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=98f70fa322281e680334e896cbb12724a9d6c6cd;p=lilypond.git

(get-editor-command): Bugfix: allow full
LYEDITOR setting, partial XEDITOR setting.
---

diff --git a/ChangeLog b/ChangeLog
index 5a44f07a14..3ae1e736fd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-05-13  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* 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))))