[gsharp-cvs] CVS gsharp

[mjonsson]

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))