X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Flilypond-invoke-editor.scm;h=f9716bfec69d63891ecdbb127228eb04a04acec4;hb=f4beff9cdba290efe94de240e38a5f2ec19c8388;hp=9fe02c467f5beef121b207a2607e2ad63d6fbd05;hpb=33c0649870f190c379ea4d8faceae31d394fd8b0;p=lilypond.git

diff --git a/scripts/lilypond-invoke-editor.scm b/scripts/lilypond-invoke-editor.scm
index 9fe02c467f..f9716bfec6 100755
--- a/scripts/lilypond-invoke-editor.scm
+++ b/scripts/lilypond-invoke-editor.scm
@@ -120,9 +120,10 @@ Options:
 	  (exit 1)))))
 
 (define (run-browser uri)
-
-  ;; TODO: make educated guess which browser to run.
-  (system (format #f "firefox -remote 'OpenURL(~a,new-tab)'" uri)))
+  (system
+   (if (getenv "BROWSER")
+       (format "~a ~a" (getenv "BROWSER") uri)
+       (format #f "firefox -remote 'OpenURL(~a,new-tab)'" uri))))
 
 (define (main args)
   (let ((files (parse-options args)))