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) (#{)))