* scripts/lilypond-invoke-editor.scm (dissect-uri): Handle URIs

[lilypond.git] / scm / editor.scm

diff --git a/scm/editor.scm b/scm/editor.scm
index 4bf560d24342530a8884fc48c578e9e35704000f..aeea02b615eb95cb432133ed256c6133bef8894a 100644 (file)
--- a/scm/editor.scm
+++ b/scm/editor.scm
@@ -29,7 +29,7 @@
   (define (get-command-template alist editor)
     (if (null? alist)
        (if (string-match "%\\(file\\)s" editor)
-           (editor)
+           editor
            (string-append editor " %(file)s"))
        (if (string-match (caar alist) editor)
            (cdar alist)