[gsharp-cvs] CVS gsharp

rstrandh rstrandh at common-lisp.net
Wed Jun 14 19:06:55 UTC 2006


Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv30173

Modified Files:
	modes.lisp 
Log Message:
Make com-up and com-down work for rests as well. 


--- /project/gsharp/cvsroot/gsharp/modes.lisp	2006/06/13 19:39:56	1.16
+++ /project/gsharp/cvsroot/gsharp/modes.lisp	2006/06/14 19:06:55	1.17
@@ -60,6 +60,8 @@
 (set-key 'com-fewer-rbeams 'rhythmic-table '((#\x) (#\])))
 (set-key 'com-rotate-notehead 'rhythmic-table '((#\h :meta)))
 (set-key 'com-rotate-notehead 'rhythmic-table '((#\r :control))) ; why this one too?
+(set-key 'com-up 'rhythmic-table '((#\u :meta)))
+(set-key 'com-down 'rhythmic-table '((#\d :meta)))
 
 ;;; the cluster table contains commands that are specific to 
 ;;; clusters
@@ -76,8 +78,6 @@
 (set-key 'com-add-note-g 'cluster-table '(#\G))
 (set-key 'com-add-note-a 'cluster-table '(#\A))
 (set-key 'com-add-note-b 'cluster-table '(#\B))
-(set-key 'com-up 'cluster-table '((#\u :meta)))
-(set-key 'com-down 'cluster-table '((#\d :meta)))
 (set-key 'com-tie-note-left 'cluster-table '((#\{)))
 (set-key 'com-tie-note-right 'cluster-table '((#\})))
 (set-key 'com-untie-note-left 'cluster-table '((#\x) (#\{)))




More information about the Gsharp-cvs mailing list