Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv14891 Modified Files: modes.lisp Log Message: mcclim bug workaround in key bindings for microsharper/microflatter --- /project/gsharp/cvsroot/gsharp/modes.lisp 2007/06/28 13:56:53 1.25 +++ /project/gsharp/cvsroot/gsharp/modes.lisp 2007/06/28 14:36:14 1.26 @@ -84,8 +84,10 @@ (set-key 'com-sharper 'cluster-table '((#\#))) (set-key 'com-flatter 'cluster-table '(#\@)) -(set-key 'com-microsharper 'cluster-table '((#\# :control :shift))) -(set-key 'com-microflatter 'cluster-table '((#\@ :control :shift))) +(set-key 'com-microsharper 'cluster-table '((#\# :control))) +(set-key 'com-microsharper 'cluster-table '((#\# :control :shift))) ;; mcclim bug workaround +(set-key 'com-microflatter 'cluster-table '((#\@ :control))) +(set-key 'com-microflatter 'cluster-table '((#\@ :control :shift))) ;; mcclim bug workaround (set-key 'com-add-note-c 'cluster-table '(#\C)) (set-key 'com-add-note-d 'cluster-table '(#\D)) (set-key 'com-add-note-e 'cluster-table '(#\E))