CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Jan Nieuwenhuizen <[EMAIL PROTECTED]> 05/05/13 16:05:31
Modified files:
scm : editor.scm
. : ChangeLog
Log message:
(get-editor-command): Bugfix: allow full
LYEDITOR setting, partial XEDITOR setting.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/editor.scm.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3610&tr2=1.3611&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3610 lilypond/ChangeLog:1.3611
--- lilypond/ChangeLog:1.3610 Fri May 13 15:45:33 2005
+++ lilypond/ChangeLog Fri May 13 16:05:31 2005
@@ -1,5 +1,8 @@
2005-05-13 Jan Nieuwenhuizen <[EMAIL PROTECTED]>
+ * 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.
Index: lilypond/scm/editor.scm
diff -u lilypond/scm/editor.scm:1.1 lilypond/scm/editor.scm:1.2
--- lilypond/scm/editor.scm:1.1 Tue May 10 21:58:45 2005
+++ lilypond/scm/editor.scm Fri May 13 16:05:31 2005
@@ -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))))
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
