[gsharp-cvs] CVS update: gsharp/gui.lisp

[Christophe Rhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv14720

Modified Files:
	gui.lisp 
Log Message:
Workaround the :shift problem with #\# commands: add an unshifted 
variant.

Date: Wed Feb 18 13:16:16 2004
Author: crhodes

Index: gsharp/gui.lisp
diff -u gsharp/gui.lisp:1.3 gsharp/gui.lisp:1.4
--- gsharp/gui.lisp:1.3	Mon Feb 16 13:43:54 2004
+++ gsharp/gui.lisp	Wed Feb 18 13:16:16 2004
@@ -50,8 +50,10 @@
 (add-command '(#\.) 'com-more-dots *global-command-table*)
 (add-command '(#\[) 'com-more-lbeams *global-command-table*)
 (add-command '(#\]) 'com-more-rbeams *global-command-table*)
+(add-command '(#\#) 'com-sharper *global-command-table*)
 (add-command '(#\# :shift) 'com-sharper *global-command-table*)
 (add-command '(#\@ :shift) 'com-flatter *global-command-table*)
+(add-command '(#\# :meta) 'com-more-sharps *global-command-table*)
 (add-command '(#\# :meta :shift) 'com-more-sharps *global-command-table*)
 (add-command '(#\@ :meta :shift) 'com-more-flats *global-command-table*)
 (add-command '(#\u :meta) 'com-up *global-command-table*)